怎样实现带过滤的entsel呢？

ivde

xxxycxd 发表于 2016-1-13 23:11
获取选取点是不是需要
(cadr (nth 3 (car (ssnamex (ssget":E:S" '((0 . "TEXT"))) 0)
                ...

没有，:E 可能进子实体了

xyp1964

2. ;; (uentsel "\n选择单行文本: " "TEXT")
   
3. (defun uentsel (msg tp / s1)
   
4.   (while (or (not (setq s1 (car (entsel msg))))
   
5.              (not (= (cdr (assoc 0 (entget s1))) tp))
   
6.          )
   
7.   )
   
8.   s1
   
9. )

;; (uentsel "\n选择单行文本: " "TEXT")<br /> (defun uentsel (msg tp / s1)<br />   (while (or (not (setq s1 (car (entsel msg))))<br />              (not (= (cdr (assoc 0 (entget s1))) tp))<br />          )<br />   )<br />   s1<br /> )

ymcui

xyp1964 发表于 2016-1-14 13:36

老大太有才了,