如何根据坐标范围获取块内文字内容

ld_117

如题，困扰了好久的问题！
单选可以采用nentsel或者nentselp，但是我想完成鼠标挪至图块内文字上方时动态显示通过文字内容计算出的数据。
论坛以前有人提起过没有结轮，仔细阅读了http://bbs.mjtd.com/thread-84736-1-1.html，也没想到可用的办法。
求大神指点一下思路。

ivde

nentselp + grread

ld_117

ivde 发表于 2016-2-8 19:22
nentselp + grread

nentselp的参数是根据一个点的的坐标来选择，这个拿鼠标单击还好，通过程序给定参数选择的选择范围实在是太小了，对于文字来说大部分地方都是空的很难选中，还有别的办法吗？

springwillow

可以通过坐标转换实现，首先用ssnamex获取ssget选择信息，然后转换到块坐标系下，遍历块内对象，看对象是否在选择范围内，是就选中对象，不是就不选中。这样就能获取选中块内对象的图元名，想做什么都可以了。
给出部分代码做参考，

2.   (setq enamelst '() ss (ssadd) objlst '())
   
3.   (if (setq ssnamexlst(ssnamex (ssget":S"'((0 . "insert"))) 0))
   
4.     (progn
   
5.       (setq cwf (caar ssnamexlst)xref(cadar ssnamexlst))
   
6.       (setq mat (MAT:RefGeom xref))
   
7.       (setq mat (append(mapcar 'append(car Mat)(mapcar 'list (cadr mat)))'((0. 0. 0. 1.))))
   
8.       (setq tmat (vlax-tMatrix mat))
   
9.       (setq remat (MAT:RevRefGeom xref))
   
10.       (setq remat (append(mapcar 'append(car remat)(mapcar 'list (cadr remat)))'((0. 0. 0. 1.))))
    
11.       (setq tremat (vlax-tMatrix remat))
    
12.       (cond
    
13.         ((= cwf 1)(setq pt (last(last(car ssnamexlst)))) (setq ent (nentselp pt) ent (if (and ent (= (type (last (last ent))) 'ename))(car ent)))(setq enamelst (cons ent enamelst)))
    
14.         ((= cwf 3)
    
15.          (setq xy (last ssnamexlst))
    
16.          ;(setq pt1 (last (cadr xy))pt2 (last (caddr xy))  pt3 (last (cadddr xy))pt4(last (car(cddddr xy))) )     ;;提取刚才的窗选对角坐标。
    
17.          (setq PolyPts (mapcar 'cadr (cdr xy))) ;_ 计算多边形点表
    
18.          ;(setq PolyPts (mapcar '(lambda (x)(list (car x)(cadr x)))PolyPts))
    
19.          (setq enamelst(append enamelst (Block:Select xref PolyPts '((0 . "*")) "W" remat)))
    
20.          )
    
21.         )
    
22.       )
    
23.     )

  (setq enamelst '() ss (ssadd) objlst '())<br />   (if (setq ssnamexlst(ssnamex (ssget":S"'((0 . "insert"))) 0))<br />     (progn<br />       (setq cwf (caar ssnamexlst)xref(cadar ssnamexlst))<br />       (setq mat (MAT:RefGeom xref))<br />       (setq mat (append(mapcar 'append(car Mat)(mapcar 'list (cadr mat)))'((0. 0. 0. 1.))))<br />       (setq tmat (vlax-tMatrix mat))<br />       (setq remat (MAT:RevRefGeom xref))<br />       (setq remat (append(mapcar 'append(car remat)(mapcar 'list (cadr remat)))'((0. 0. 0. 1.))))<br />       (setq tremat (vlax-tMatrix remat))<br />       (cond<br />         ((= cwf 1)(setq pt (last(last(car ssnamexlst)))) (setq ent (nentselp pt) ent (if (and ent (= (type (last (last ent))) 'ename))(car ent)))(setq enamelst (cons ent enamelst)))<br />         ((= cwf 3)<br />          (setq xy (last ssnamexlst))<br />          ;(setq pt1 (last (cadr xy))pt2 (last (caddr xy))  pt3 (last (cadddr xy))pt4(last (car(cddddr xy))) )     ;;提取刚才的窗选对角坐标。<br />          (setq PolyPts (mapcar 'cadr (cdr xy))) ;_ 计算多边形点表<br />          ;(setq PolyPts (mapcar '(lambda (x)(list (car x)(cadr x)))PolyPts))<br />          (setq enamelst(append enamelst (Block:Select xref PolyPts '((0 . "*")) "W" remat)))<br />          )<br />         )<br />       )<br />     )

cghdy

springwillow 发表于 2016-10-21 13:27
可以通过坐标转换实现，首先用ssnamex获取ssget选择信息，然后转换到块坐标系下，遍历块内对象，看对象是否 ...

好人，能否给个完整的参考，谢谢

cghdy

springwillow 发表于 2016-10-21 13:27
可以通过坐标转换实现，首先用ssnamex获取ssget选择信息，然后转换到块坐标系下，遍历块内对象，看对象是否 ...

好人，能否给个完整的参考，谢谢

陈伟

springwillow 发表于 2016-10-21 13:27
可以通过坐标转换实现，首先用ssnamex获取ssget选择信息，然后转换到块坐标系下，遍历块内对象，看对象是否 ...

用ssnamex获取ssget选择信息,多选，取消，执行命令，再次重新按获取的信息进行重新选择框选区域，，有相关的实例吗