【求助】按文字插入对应材料编号！~~

daidong013

看到有这么一个工具挺不错的，绘图的时候效率可以提高不少！~
大伙看看，望高手们可以出手山寨一个！~~

水仙的错

很好，收藏了，谢谢！

墨者

谢谢楼主分享

fdb2007

楼主的东西隐形了，走眼了，要程序啊

wudi

这项功能确实不错

daidong013

顶起来！~~

梦醒才知原是梦

守仁格竹GM

顶,有创意服了

xieyanghui

在引线的端点插入就方便了

xyp1964

文本匹配复制：

2. ;; 文本匹配复制
   
3. ;; 伪源码需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (if (and (setq s1 (car (entsel "\n选择: ")))
   
7.     (xyp-etype s1 "text")
   
8.     (setq ss (ssget))
   
9.       )
   
10.     (progn
    
11.       (setq tx (xyp-get-dxf 1 s1)
    
12.      ss0 (ssget "X" (list '(0 . "text") (cons 1 tx)))
    
13.      p0 (xyp-get-9pt ss 9)
    
14.      i -1
    
15.       )
    
16.       (while (setq s1 (ssname ss0 (setq i (1+ i))))
    
17. (setq pt (xyp-get-9pt s1 3)
    
18.        pt (xyp-get-Pt2Y pt -200)
    
19. )
    
20. (xyp-copymove ss p0 pt)
    
21.       )
    
22.     )
    
23.   )
    
24.   (CMDLA1)
    
25. )

;; 文本匹配复制<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (if (and (setq s1 (car (entsel "\n选择: ")))<br />     (xyp-etype s1 "text")<br />     (setq ss (ssget))<br />       )<br />     (progn<br />       (setq tx (xyp-get-dxf 1 s1)<br />      ss0 (ssget "X" (list '(0 . "text") (cons 1 tx)))<br />      p0 (xyp-get-9pt ss 9)<br />      i -1<br />       )<br />       (while (setq s1 (ssname ss0 (setq i (1+ i))))<br /> (setq pt (xyp-get-9pt s1 3)<br />        pt (xyp-get-Pt2Y pt -200)<br /> )<br /> (xyp-copymove ss p0 pt)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )

daidong013

xyp1964 发表于 2012-5-26 13:51
文本匹配复制：

感谢院长的热心帮助！
还是院长厉害！高手高手高高手！

daidong013

xyp1964 发表于 2012-5-26 13:51
文本匹配复制：

院长帮忙看看这里可否调整一下！~