autolisp问题 这段代码老说numberq：nile 那位大人能看出是什么原因？？

如何让CAD不出现（autolisp应用程序源代码）~

那是个病毒，要杀的。

具体方法引用如下：
近期很多CAD用户都出现了同一问题，即打开了一些从网上下载的或从其他地方拷贝过来的图纸后，CAD开始变的非常慢，通常打开一张图纸要等待几分钟的时间，并且一些运行于CAD上的二次开发软件的命令变的不可用。即使重新安装CAD甚至重新安装系统，只要再次打开以前打开过的图纸，问题重现，这个问题对许多CAD设计人员都造成相当大的困扰。

该病毒利用CAD的读取机制，在用户第一次打开从网上下载的带有病毒的图纸后，该病毒即悄悄运行，并感染每一张新打开的图纸，将病毒文件到处复制，并生成很多名为acad.lsp的程序。所以即便是重装CAD甚至重装系统都不能解决问题。

对此我们制作了该病毒的专杀工具，希望对广大设计人员有所帮助。

借此我们也建议广大设计人员：对于网上的一些未知图纸，在下载、打开之前，一定要慎重。
下载http://www.haochenc.com/download/soft/soft.asp?ID=145

那是个病毒，要杀的。

具体方法引用如下：
近期很多CAD用户都出现了同一问题，即打开了一些从网上下载的或从其他地方拷贝过来的图纸后，CAD开始变的非常慢，通常打开一张图纸要等待几分钟的时间，并且一些运行于CAD上的二次开发软件的命令变的不可用。即使重新安装CAD甚至重新安装系统，只要再次打开以前打开过的图纸，问题重现，这个问题对许多CAD设计人员都造成相当大的困扰。

该病毒利用CAD的读取机制，在用户第一次打开从网上下载的带有病毒的图纸后，该病毒即悄悄运行，并感染每一张新打开的图纸，将病毒文件到处复制，并生成很多名为acad.lsp的程序。所以即便是重装CAD甚至重装系统都不能解决问题。

对此我们制作了该病毒的专杀工具，希望对广大设计人员有所帮助。

借此我们也建议广大设计人员：对于网上的一些未知图纸，在下载、打开之前，一定要慎重。

下载http://www.haochenc.com/download/soft/soft.asp?ID=145

(defun c:luomu106 ()
(command "limits" "" "297,210")
(command "zoom" "all")
(setvar "ltscale" 5)
(setq p0106 (getpoint "\n 输入主视图基点p0106:"))
(setq d106 (getdist "\n 螺纹孔直径d106:"))
(setq d1106 (getdist "\n 螺纹孔倒角宽d1106:"))
(setq dad106 (getdist "\n 螺母直径dad106:"))
(setq dad1106 (getdist "\n 螺母小孔中心线直径dad1106:"))
(setq h106 (getdist "\n 螺母高H106:"))
(setq d2106 (getdist "\n 螺母小孔直径d2106:"))
(setq l106 (getdist "\n 螺母小孔深l106:"))
(setq p1106 (polar p0106 (/ pi 2) (/ d1106 2)))
(setq p2106 (polar p0106 (/ pi 2) (/ dad1106 2)))
(setq p3106 (polar p2106 0 h106))
(setq p4106 (polar p2106 (/ pi 2) (/ d2106 2)))
(setq p5106 (polar p4106 0 l106))
(setq p6106 (polar p2106 0 l106))
(setq p7106 (polar p0106 0 (/ d2106 4)))
(setq p8106 (polar p0106 (/ pi 2) (- (/ dad106 2) 1)))
(setq p9106 (polar p8106 (/ pi 2) 1))
(setq p10106 (polar p9106 0 1))
(setq p11106 (polar p9106 0 (/ h106 2)))
(setq p12106 (polar p0106 (/ pi 2) (/ d106 2)))
(setq p13106 (polar p0106 (/ pi 2) (/ (* d106 0.85) 2)))
(setq p14106 (polar p13106 0 0.5))
(setq p15106 (polar p13106 0 (/ h106 2)))
(setq p17106 (polar p12106 0 (/ h106 2)))
(setq p18106 (polar p0106 0 (/ h106 2)))
(setq p19106 (polar p11106 (/ -pi 2) dad106)) ;;;-pi?如果是想要 pi/2的负值 (/ pi -2)
(setq p20106 (polar p0106 0 (* 2 dad16)))
(setq p21106 (polar p0106 0 0.5))
(setq p22106 (polar p20106 (/ -pi 2) (/ dad1106 2))) ;;;-pi?如果是想要 pi/2的负值 (/ pi -2)
(setq p23106 (polar p20106 0 (/ dad1106 2)))
(setq p24106 (polar p20106 (/ pi 2) (/ dad1106 2)))
(setq p25106 (polar p20106 pi (/ dad1106 2)))
(setq p26106 (polar p20106 pi (/ d106 2)))
(setq p27106 (polar p20106 (/ -pi 2) (/ d106 2))) ;;;-pi?如果是想要 pi/2的负值 (/ pi -2)
(setvar "lwdisplay106" 1) ;;"lwdisplay106" 这是啥变量? "lwdisplay"才是吧
(command "layer" "m" "a" "c" 7 "" "lw" 0.3 "" "s" "a" "")
(command "pline" p0106 p8106 p9106 p10106 p11106 "")
(command "pline" p11106 p14106 p15106 "")
(command "pline" p14106 p21106 "")
(command "ciecle" p20106 (/ D106 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p20106 (/ (- D106 2) 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p20106 (/ d1106 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p20106 (/ (* d1106 0.85) 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p22106 (/ d2106 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p23106 (/ d2106 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p24106 (/ d2106 2)) ;"ciecle"???画圆么? "circle"
(command "ciecle" p25106 (/ d2106 2)) ;"ciecle"???画圆么? "circle"
(command "layer" "m" "b" "c" 2 "" "lw" "default" "" "")
(command "pline" p4106 p5106 p7107 "")
(command "pline" p5106 p6106 "")
(command "arc" "c" p27106 p26106) ;你指定圆心画圆弧,则要给出 圆心 起点 终点,少一个点
(command "layer" "m" "c" "c" 1 "" "l" "center" "c" "")
(command "line" (polar p0106 pi 2) (polar p18106 0 2) "")
(command "line" (polar p2106 pi 2) (polar p3106 0 2) "")
(command "line"
(polar p11106 (/ pi 2) 2)
(polar p19106 (/ -pi 2) 2)
""
)
(command "line" (polar p25106 pi 5) (polar p23106 0 5) "")
(command "line"
(polar p24106 (/ pi 2) 5)
(polar p22106 (/ -pi 2) 5)
""
)
(command "ciecle" p20106 (/ D1106 2));"ciecle"???画圆么? "circle"
(command "mirror" "c" p0106 p11106 "" p11106 p19106 "n")
(princ)
)
;;目前我发现的错误全在上面了,另外,你这程序那么多数据要输入,也没个默认值啥的,很不方便.我光是测试一次,就得输入大堆的数才能知道有没有错误,而且我又不知道你的图形最终是画成啥样,所以只能找到以上几个明显的错误,其它的你最好给个数据或是上个图,也好帮你修改.

---

新晃侗族自治县19722813055： 从别人电脑拷贝过来的CAD文件出现Autolisp应用程序源代码怎么处理丶都说是病毒怎么杀不掉的. - ？
邢贱麦味： 那是个病毒,要杀的. 该病毒利用CAD的读取机制,在用户第一次打开从网上下载的带有病毒的图纸后,该病毒即悄悄运行,并感染每一张新打开的图纸,将病毒文件到处复制,并生成很多名为acad.lsp的程序.所以即便是重装CAD甚至重装...

新晃侗族自治县19722813055： 请问为什么我在autolisp编程时,在检查编辑窗口时结果总是提示我“错误: 输入的列表有缺陷”?? - ？
邢贱麦味： 每个if的左括号都要对应一右括号,程序尾端也要加一右括号,半角的哦,如果打印的表(语句)在条件成立时都要执行,那还要加上“(progn ”,当然也要加右括号对应.呵:)

新晃侗族自治县19722813055： autolisp同一段代码,画线却时对时错 - ？
邢贱麦味： 画图的时候,要关闭捕捉,否则会不正确,以下的代码用上就解决你的问题;(setq #os1 (getvar ＂osmode＂));;保存捕捉值(setvar ＂osmode＂ 0);;关闭捕捉(setvar ＂osmode＂ #os1);;还原捕捉设置;;;;0 NON(无)1 END...

新晃侗族自治县19722813055： 我的这段autolisp程序在检查时说参数过多,请问应该怎么改?谢谢 - ？
邢贱麦味： 你的变量是全局变量么?没的输入肯定参数太多,你要定义你函数里面的变量.

新晃侗族自治县19722813055： autolisp随层问题? - ？
邢贱麦味： 第一个P指的是“上一个”选择集,第二个P指的是“特性”,也就是说,你执行这段LISP代码之前,你应该先选中一些图元,比如你可以先选中一条多段线,然后这段程序就会把它的COLOR,变为BYLAYER(随层)

新晃侗族自治县19722813055： AUTOLISP编程输出问题 - ？
邢贱麦味： 书写要完整才可以修改一下:(defun C:M1( / %k1 %k2 %k3 %k4);要使代码不影响其它的程序,这个上面要写代码这个格式 (setvar ＂cmdecho＂ 0) (setvar ＂blipmode＂ 0);加上这两句话,命令行不会出现你不希望的数值 (setq %k1 ...

新晃侗族自治县19722813055： autolisp问题,如图所示,我想用程序得到图1,然后得到图2的圆角,但是按照我的程序 出来图3的圆角 - ？
邢贱麦味： 要添加选择点才可以.1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33(defun c:WQ10 ( / #os1 aa l1 l2 p1 p2 p3 p4 p5 p6 p7 p8) (setq #os1 (getvar ＂osmode＂)) (setq p1 (getpoint ＂\n请选择基点＂)) ...

新晃侗族自治县19722813055： 如何让CAD不出现(autolisp应用程序源代码) - ？
邢贱麦味： 那是个病毒,要杀的.具体方法引用如下:近期很多CAD用户都出现了同一问题,即打开了一些从网上下载的或从其他地方拷贝过来的图纸后,CAD开始变的非常慢,通常打开一张图纸要等待几分钟的时间,并且一些运行于CAD上的二次开发...

新晃侗族自治县19722813055： 求助,cad命令行显示Lisp ErrorLisp Error - ？
邢贱麦味： 1. 有些图纸不是AutoCAD绘制,AutoCAD无法打开,才会出现错误提示.2. 解决办法就是使用第三方软件转换dwg文件.3. 使用【CAD快速看图】软件转换dwg文件版本,就可以顺利解决问题.4. 可能是CAD程序autolisp不能够运行,比如使用了command函数,程序可能会出现错误,那么想办法不使用command函数来达到目的.

新晃侗族自治县19722813055： autolisp提示错误 参数太少 - ？
邢贱麦味： ;------------------------------------------------------------------------------------------- ;有意学习lisp,可以加入我的学习CAD lisp群 202857076 ;------------------------------------------------------------------------------------------- (defun c:be(/ wo pti ptx pty lse lna oce wide sal n ...