(setq mnln1 (1+ mnln1)) ) ;while
(setq lspn1 0) (while (< lspn1 lspnum)
(setq lspfilename1 (strcat support \(app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while
(setq mnln (1+ mnln))
);while (setq lspn 0) (while (< lspn lspnum)
(setq lspfilename (strcat support \(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support \(app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath \(app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) );while
(setq lspn (1+ lspn)) (load \(princ)
后面可能还会有一些病毒程序代码，但大同小异，大部分以(setq flagxt)开头。 该方法绝对不会对CAD 的功能使用造成影响，请大家放心使用。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
照此方法操作，再启动Autocad和打开文件时没有“输入的列表有缺陷”的提示了，启动速度快了，并且 3DArray命令可以使用了。 非常感谢该文的作者。