求关于点选框输出框内文字

weiqi

希望点选框    提取框内 两个图层的文字（框内有其他图层的文字）并输出（E-ID 和 E-PE）里的文字。（E-ID排在前，E-PE的文字排在后 输出）




感谢 群里 阿然大哥提供的一段 提取一个图层 内的文字并输出    图层里的所有 文字并输出。
但我希望是有 范围的输出。
望高手出手指点指点

叮咚

学习重要，
也只有你这样选吧

已改

weiqi

边查边写，自己试着改了一下。


有几个问题。
我这样写的时候
(ssget  (list (cons 8 "E-ID,E-PE")  (cons 0 "TEXT"))
选对象就可以。
但是我如果先选对象
(setq s1 (ssget))  对象集定义为s1
后 想 从 s1 中  加入条件 (list (cons 8 "E-ID,E-PE")  (cons 0 "TEXT") 得怎么写呢。

weiqi

第三个箱错误 是因为第三个箱的文字 并不在 E-ID 和 E-PE上边。

还搞不懂 ，这个是以什么方式 来计算先输出哪个的。

貌似是按 生成时间来的，要是能就近距离按范围来输出就好了。。。。

免得，大量框选的时候。由于画图的时候顺序不对。    输出的顺 序乱了。

weiqi

感谢楼上~但是 貌似 只能列出 一个屏幕内的内容，如果在框内，但是屏幕没显示的话，列不出来

ZZXXQQ

CAD版本不同，有些命令不一样。

1. (defun c:cdx ()
   
2. (setvar "cmdecho" 0)
   
3. (princ "\n选择方框<空格退出>:")
   
4. (while (setq ss (ssget ":e:s" (list (cons 0 "lwpolyline"))))
   
5.   (setq lin (ssname ss 0) data (entget lin) pts nil)
   
6.   (foreach xx data (if (= 10 (car xx))(setq pts (cons (cdr xx) pts))))
   
7.   (command ".zoom" "W" (car pts) (caddr pts))
   
8.   (setq ens (ssget "cp" pts '((0 . "TEXT") (8 . "E-PE,e-id"))))
   
9.   (command ".zoom" "p")
   
10.   (or ens (setq ens (ssadd)))
    
11.   (setq len (sslength ens) n 0 strs nil)
    
12.   (while (< n len)
    
13.    (setq en (ssname ens n) data (entget en))
    
14.    (setq strs (cons (cons (cdr (assoc 10 data))(strcat " " (cdr (assoc 1 data)))) strs))
    
15.    (setq n (1+ n))
    
16.   )
    
17.   (if strs (progn
    
18.    (setq strs (vl-sort strs '(lambda(e1 e2) (> (cadar e1)(cadar e2)))))
    
19.    (setq str "")
    
20.    (foreach  xx strs (setq str (strcat str (cdr xx))))
    
21.    (initget 1)
    
22.    (setq pt-ins (getpoint "\n指定一点:"))
    
23.    (entmake
    
24.     (list
    
25.      '(0 . "TEXT")
    
26.      '(100 . "AcDbEntity")
    
27.      '(8 . "E-PE")
    
28.      '(62 . 110)
    
29.      '(100 . "AcDbText")
    
30.      (cons 10 pt-ins)
    
31.      '(40 . 444.444)
    
32.      (cons 1  str)
    
33.      '(41 . 0.7)
    
34.      '(7 . "HZ")
    
35.     )
    
36.    )
    
37.   )
    
38.    (princ "\n不包含指定层文字!")
    
39.   )
    
40.   (princ "\n选择方框<空格退出>:")
    
41. )
    
42. (setvar "cmdecho" 1)
    
43. (princ)
    
44. )
    

(defun c:cdx ()<br /> (setvar "cmdecho" 0)<br /> (princ "\n选择方框<空格退出>:")<br /> (while (setq ss (ssget ":e:s" (list (cons 0 "lwpolyline"))))<br />   (setq lin (ssname ss 0) data (entget lin) pts nil)<br />   (foreach xx data (if (= 10 (car xx))(setq pts (cons (cdr xx) pts))))<br />   (command ".zoom" "W" (car pts) (caddr pts))<br />   (setq ens (ssget "cp" pts '((0 . "TEXT") (8 . "E-PE,e-id"))))<br />   (command ".zoom" "p")<br />   (or ens (setq ens (ssadd)))<br />   (setq len (sslength ens) n 0 strs nil)<br />   (while (< n len)<br />    (setq en (ssname ens n) data (entget en))<br />    (setq strs (cons (cons (cdr (assoc 10 data))(strcat " " (cdr (assoc 1 data)))) strs))<br />    (setq n (1+ n))<br />   )<br />   (if strs (progn<br />    (setq strs (vl-sort strs '(lambda(e1 e2) (> (cadar e1)(cadar e2)))))<br />    (setq str "")<br />    (foreach  xx strs (setq str (strcat str (cdr xx))))<br />    (initget 1)<br />    (setq pt-ins (getpoint "\n指定一点:"))<br />    (entmake<br />     (list<br />      '(0 . "TEXT")<br />      '(100 . "AcDbEntity")<br />      '(8 . "E-PE")<br />      '(62 . 110)<br />      '(100 . "AcDbText")<br />      (cons 10 pt-ins)<br />      '(40 . 444.444)<br />      (cons 1  str)<br />      '(41 . 0.7)<br />      '(7 . "HZ")<br />     )<br />    )<br />   )<br />    (princ "\n不包含指定层文字!")<br />   )<br />   (princ "\n选择方框<空格退出>:")<br /> )<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br />

cable2004

为什么要限制图层，合并框里面的就可以？