如何用lisp实现选择某一个图层上的所有文字？

别晨

初学lisp，请教一下这个功能怎么实现：
选择某一个图层上的所有文字并对其排序

超然

建立一个选择集

（setq ss (ssget "x" '(8 . "某一图层的图层名"）（0 . "text")）)

ssget函数后面跟了3个条件

"x" 为所有图元

组码8对应图元的图层名

组码0对应图元的类型

连在一起的条件就是所有在“某一图层”的文本图元

ljpnb

按什么条件来排序？

BDYCAD

程序是按照你打字的生成顺序来排列的!

别晨

谢谢2楼，不过你的语句好像少了对括号＃￥。

随便逛一逛

（setq ss (ssget "x" '(8 . "某一图层的图层名"）（0 . "*text")）)

xyp1964

2. (defun c:test ()
3.   (while (not (setq s1 (entsel "\n选择任意目标层实体: "))))
4.   (setq la (cdr (assoc 8 (entget (car s1))))
5. ss (ssget "x" (list (cons 0 "*TEXT") (cons 8 la)))
6.   )
7.   (princ "\n选择集名称: !ss")
8.   ss
9. )

(defun c:test ()   (while (not (setq s1 (entsel "\n选择任意目标层实体: "))))   (setq la (cdr (assoc 8 (entget (car s1)))) ss (ssget "x" (list (cons 0 "*TEXT") (cons 8 la)))   )   (princ "\n选择集名称: !ss")   ss )

别晨

xyp1964发表于2006-3-12 0:12:00(defun c:test () (while (not (setq s1 (entsel \"\n选择任意目标层实体: \")))) (setq la (cdr (assoc 8 (entget (car s1))))

xyp1964版主给的这个例子灵活的多了，非常不错

谢谢^_^

userzhl

如果按颜色选择其中的某些图元呢？

Ea

userzhl发表于2006-3-12 20:34:00如果按颜色选择其中的某些图元呢？

如果你学编程，建议你仔细看看 SSGET 函数，如果你只是使用，建议你学习 Filter 和 Qselect 命令；或者你去用一个“选择易”的工具。