查找（find)命令的定位效果如何实现？

USER2128

回复看贴，谢谢！

SunSpring

菜卷鱼 发表于 2015-6-27 16:18
不喜欢对话框

功能单一的话当然不需呀，稍复杂点，还是对话框方便

edata

你的代码少了个sslist 函数
分解大法求多重引线文字边框

1. (defun c:tt ( / en enx ex ll pt1 pt2 ss ssn ssx ur)
   
2.   (if (setq ss (ssget '((304 . "*"))))
   
3.     (while (setq en (ssname ss 0))
   
4.       (setq enx (entmakex (entget en)))
   
5.       (command "EXPLODE" enx)
   
6.       (if (setq ssx (ssget "P"))
   
7.         (progn
   
8.           (setq ssn (ssget "p" '((0 . "*text"))))
   
9.           (setq ex (ssname ssn 0))
   
10.           (vla-getboundingbox (vlax-ename->vla-object ex) 'LL 'UR)
    
11.           (setq        pt1 (vlax-safearray->list LL) ;取左下角点
    
12.                 pt2 (vlax-safearray->list UR)
    
13.           )                                ;取右上角点
    
14.           (command "RECTANG" "non" pt1 "non" pt2)
    
15.           (setq ssx (ssdel ex ssx))
    
16.           (entdel ex)
    
17.         )
    
18.       )
    
19.       (print (sslength ssx))
    
20.       (print "ss")
    
21.       (command "ERASE" ssx "")
    
22.       (setq ss (ssdel en ss))
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt ( / en enx ex ll pt1 pt2 ss ssn ssx ur)<br />   (if (setq ss (ssget '((304 . "*"))))<br />     (while (setq en (ssname ss 0))<br />       (setq enx (entmakex (entget en)))<br />       (command "EXPLODE" enx)<br />       (if (setq ssx (ssget "P"))<br />         (progn<br />           (setq ssn (ssget "p" '((0 . "*text"))))<br />           (setq ex (ssname ssn 0))<br />           (vla-getboundingbox (vlax-ename->vla-object ex) 'LL 'UR)<br />           (setq        pt1 (vlax-safearray->list LL) ;取左下角点<br />                 pt2 (vlax-safearray->list UR)<br />           )                                ;取右上角点<br />           (command "RECTANG" "non" pt1 "non" pt2)<br />           (setq ssx (ssdel ex ssx))<br />           (entdel ex)<br />         )<br />       )<br />       (print (sslength ssx))<br />       (print "ss")<br />       (command "ERASE" ssx "")<br />       (setq ss (ssdel en ss))<br />     )<br />   )<br />   (princ)<br /> )

spp_wall

看看卷菜鱼的怎么样看看卷菜鱼的怎么样

菜卷鱼

edata 发表于 2015-6-27 16:50
你的代码少了个sslist 函数
分解大法求多重引线文字边框

sslist 补上去了

friendship

xiexie louzhu

FANGZHENG158

看看卷菜鱼的怎么样

lzg8877

我也想找找看有没有带#号查找的

sz721

是这个效果？