[求助]麻烦高手检视下面程序

yoyoho 发表于 2008-7-23 09:36:00

<div class="htmlcode" style="BORDER-RIGHT: #ccc 1px solid; BORDER-TOP: #ccc 1px solid; PADDING-LEFT: 5px; BORDER-LEFT: #ccc 1px solid; BORDER-BOTTOM: #ccc 1px solid;"><div class="htmlcode" style="BORDER-RIGHT: #ccc 1px solid; BORDER-TOP: #ccc 1px solid; PADDING-LEFT: 5px; BORDER-LEFT: #ccc 1px solid; BORDER-BOTTOM: #ccc 1px solid;">使用autocad2005版是否无法运行下面程序,应该如何修正呢?</div><div class="htmlcode" style="BORDER-RIGHT: #ccc 1px solid; BORDER-TOP: #ccc 1px solid; PADDING-LEFT: 5px; BORDER-LEFT: #ccc 1px solid; BORDER-BOTTOM: #ccc 1px solid;">麻烦诸位高手解答.</div></div><div class="htmlcode" style="BORDER-RIGHT: #ccc 1px solid; BORDER-TOP: #ccc 1px solid; PADDING-LEFT: 5px; BORDER-LEFT: #ccc 1px solid; BORDER-BOTTOM: #ccc 1px solid;">(<a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black">defun</a>
l2pl
(l_name / s2 n e)    (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> s2 (<a href="http://www.mjtd.com/object/autolisp/ssget.htm" target="_black">ssget</a>
(<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a> '(-4 . "")     '      (-4 . "NOT>")     '(-4 . "AND>")      )      )    )    (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a> s2      (<a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black">progn</a>        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> n (<a href="http://www.mjtd.com/object/autolisp/sslength.htm" target="_black">sslength</a> s2))        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> i 0)        (<a href="http://www.mjtd.com/object/autolisp/repeat.htm" target="_black">repeat</a> n   (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>
(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> e (<a href="http://www.mjtd.com/object/autolisp/ssname.htm" target="_black">ssname</a> s2 i))     (<a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black">progn</a>       (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>
(<a href="http://www.mjtd.com/object/autolisp/wcmatch.htm" target="_black">wcmatch</a>
(<a href="http://www.mjtd.com/object/autolisp/cdr.htm" target="_black">cdr</a>
(<a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black">assoc</a>
0
(<a href="http://www.mjtd.com/object/autolisp/entget.htm" target="_black">entget</a> e)))
"*POLYLINE")         (<a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black">command</a>
".pedit" e "j" s2 "" "")         (<a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black">command</a>
".pedit" e "y"
"j" s2 "" "")       )       (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>
(<a href="http://www.mjtd.com/object/autolisp/61.htm" target="_black">=</a>
(<a href="http://www.mjtd.com/object/autolisp/cdr.htm" target="_black">cdr</a>
(<a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black">assoc</a>
70
(<a href="http://www.mjtd.com/object/autolisp/entget.htm" target="_black">entget</a> e)))
1)         (<a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black">progn</a>    (<a href="http://www.mjtd.com/object/autolisp/ssdel.htm" target="_black">ssdel</a> e s0)    (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> n (1- n))         )       )     )   )   (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> i (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> i))        )      )    ) ) (<a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black">defun</a>
C:C_L2PL
()    (<a href="http://www.mjtd.com/object/autolisp/prompt.htm" target="_black">prompt</a>
"\n请选择要连接成POLYLINE的LINE(线)和ARC(弧):"    )    (l2pl "*")    (<a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black">princ</a>) ) </div>

caoyin 发表于 2008-7-23 09:48:00

(setq s2 (ssget   (list '(-4 . "")     '      (-4 . "NOT>")     '(-4 . "AND>")      )      )    )这句啥意思，代码不全啊

caoyin 发表于 2008-7-23 09:57:00

;;好像不要这么复杂
(defun c:l2pl (/ a ss di)
(setq a (getvar "peditaccept"))
(setvar "peditaccept" 1)
(if (and (setq ss (ssget '((0 . "LINE,*POLYLINE,ARC"))))
 (or (setq di (getdist "\n输入模糊距离 <0>: "))
 (setq di 0)
 )
 )
(command "_.pedit" "_m" ss "" "_j" di "")
)
(setvar "peditaccept" a)
(princ)
)

yoyoho 发表于 2008-7-23 10:08:00

caoyin你好:程序收到,測試O.K.非常謝謝你!

页: [1]

明经CAD社区's Archiver

[求助]麻烦高手检视下面程序