您可以:
两个选择提示。。
-
- (ssget ":L" '((0 . "LINE")))
- (ssget ":S:E:L" '((0 . "INSERT")))
或
一气呵成:
-
- (defun c:test (/ ss i ent inspt)
- (setq ss (ssget ":L" '((0 . "INSERT,LINE"))))
- (repeat (setq i (sslength ss))
- (setq ent (entget (ssname ss (setq i (1- i)))))
- (if (eq (cdr (assoc 0 ent)) "INSERT")
- (setq inspt (cdr (assoc 10 ent))
- ss (ssdel (ssname ss i) ss))
- (princ "\nFunctions for lines: ")
- )
- )
- (print inspt)
- (sssetfirst nil ss)
- (princ)
- )
|