lisp励遍图块中的实体_实体名创建成的选择集，如何遍历？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

;;-------标准尺寸界线--开始----------------------------

(defun c:ccjx-h(/ ss n p ang pts spname 1st )

(setq spname (nth 0 (entsel "\n请选择尺寸线【定角度】:"))) ;;;;;;取得线性实体的实体名

(setq ang (sl-entang spname))

(setq ang (* 180.0 (/ ang pi)))  ;弧度转角度

(setq 1st (list spname)) ;;;;;实体名构建表1st

(setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

(setq p (sslength ss))

(setq n 0)

(setq p (- p 1))

(while (<= n p)

(setq spname (ssname ss n))

(setq 1st (cons spname 1st))  ;;;;;创建1st表，并把 spname 放在开头

(setq n (+ n 1))

)

(setq 1st (gps->lst-delsame 1st)) ;;;删除表中重复图元

(setq pts (sl-ssinters 1st))

(foreach pt pts

(command "-insert" "_archtick" pt SLBL SLBL ang)

)

)

;;;xshrimp的函数(一级函数)

;;;删除表中重复图元.不支持表中表的重复图元.

;;; (gps->lst-d