lht 发表于 2005-11-13 17:48:00

[求助]判别多义线

一个选择集ss里有若干个圆、若干条多义线，还有若干个其他图元，怎样判别第n个图元是多义线？

xyp1964 发表于 2005-11-13 20:24:00

(defun num (ss)
(setq i -1)
(while (or (/= etype "POLYLINE")
      (/= etype "LWPOLYLINE")
)
    (setq s1 (ssname ss (setq i (1+ i)))
   etype (cdr (assoc (entget s1)))
    )
)
(princ (1+ i))
)
页: [1]
查看完整版本: [求助]判别多义线