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

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

使用AutoCAD2005版是否无法运行下面程序,应该如何修正呢?

麻烦诸位高手解答.

(defun l2pl (l_name / s2 n e)
   (setq s2 (ssget (list '(-4 . "")
    '
     (-4 . "NOT>")
    '(-4 . "AND>")
     )
     )
   )
   (if s2
     (progn
       (setq n (sslength s2))
       (setq i 0)
       (repeat n
  (if (setq e (ssname s2 i))
    (progn
      (if (wcmatch (cdr (assoc 0 (entget e))) "*POLYLINE")
        (command ".pedit" e "j" s2 "" "")
        (command ".pedit" e "y" "j" s2 "" "")
      )
      (if (= (cdr (assoc 70 (entget e))) 1)
        (progn
   (ssdel e s0)
   (setq n (1- n))
        )
      )
    )
  )
  (setq i (1+ i))
       )
     )
   )
)
(defun C:C_L2PL ()
   (prompt "\n请选择要连接成POLYLINE的LINE(线)和ARC(弧):"
   )
   (l2pl "*")
   (princ)
)

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

   (setq s2 (ssget
(list '(-4 . "")
    '
     (-4 . "NOT>")
    '(-4 . "AND>")
     )
     )
   )

这句啥意思，代码不全啊

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

;;好像不要这么复杂
(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

caoyin你好:

程序收到,測試O.K.

非常謝謝你!

账号		自动登录	找回密码
密码			注册