Question

CAD 的autolisp编程问题：我用下面这个程序还去掉重合的点，但这个程序不能够循环。

(defun c:ere()
(setq a (ssget))
(setq i (sslength a))
(while (> i 1)
(setq j (- i 1))
(setq b (ssname a (setq i (1- i))))
(setq c (entget b))
(while (> j 0)
(setq b1 (ssname a (setq j (1- j))))
(setq c1 (entget b1))
(if (and (= (rtos (cadr (assoc 10 c)) 2 4)(rtos (cadr (assoc 10 c1)) 2 4))
(= (rtos (caddr (assoc 10 c)) 2 4)(rtos (caddr (assoc 10 c1)) 2 4)))
(command "erase" b1 "")
))))

Answer 1

(defun c:ere ( )
(setq ss (ssget (list (cons 0 "POINT"))) li '() si 0 ei 0)
(repeat (sslength ss)
(setq cs (ssname ss si) si (1+ si) ce (entget cs))
(if (member (vl-princ-to-string (cdr (assoc 10 ce))) li)
(progn
(command "_.Erase" cs "")
(setq ei (1+ ei))
)
(setq li (cons (vl-princ-to-string (cdr (assoc 10 ce))) li))
)
)
(princ (strcat "\n在选择的" (itoa (sslength ss)) "个点中,删除了" (itoa ei) "个重复的点!"))
(princ)
)

上面的程序，我用的是REPEAT，用WHILE也是一样的效果。另外，循环里面套循环个人觉得不太可取，若对象过多会运算很大。

Answer 2

不妨试试下面的代码：
(defun c:ere()
(setq a (ssget (list(cons 0 "point"))))
(setq i (sslength a))
(setq j (1- i))
(while (> j -1)
(setq b (ssname a j))
(setq c (entget b))
(if (/= c nil)
(progn
(setq zb(cdr (assoc 10 c)))
(setq cfdj(ssget "x" (list (cons 10 Zb)(cons 0 "point"))))
(if (/= cfdj nil)(progn(setq cfdj(ssdel b cfdj))(command "erase" cfdj "")))
)
)
(setq j(1- j))
)
)

Answer 3

可以用(repeat (sslength i)
.................)试试，用while循环i值没有在循环体中修正啊，这样不成死循环了。。

Answer 4

fgrdtgrrfg

Answer 5

请问朋友是否有删除重复线的LISP命令