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

xyp1964

文本内容和字高匹配复制

2. 
   
3. ;; 文本内容和字高匹配复制
   
4. ;; 伪源码需要e派工具箱(XCAD)的支持
   
5. (defun c:tt ()
   
6.   (CMDLA0)
   
7.   (if (and (setq s0 (car (entsel "\n选择标准文本: ")))
   
8.     (xyp-etype s0 "text")
   
9.     (setq ss0 (ssget))
   
10.       )
    
11.     (progn
    
12.       (setq tx (xyp-get-dxf 1 s0)
    
13.      th0 (xyp-get-dxf 40 s0)
    
14.      ss1 (ssget "X" (list '(0 . "text") (cons 1 tx)))
    
15.      p0 (xyp-get-9pt ss0 9)
    
16.      i -1
    
17.       )
    
18.       (while (setq s1 (ssname ss1 (setq i (1+ i))))
    
19. (setq pt (xyp-get-9pt s1 3)
    
20.        th (xyp-get-dxf 40 s1)
    
21.        s0 (entlast)
    
22.        sc (/ th th0 1.)
    
23.        pt (xyp-get-Pt2Y pt (* sc -200))
    
24. )
    
25. (xyp-copymove ss0 p0 pt)
    
26. (if (/= sc 1)
    
27.    (xyp-ScaleEntity (xyp-SSelEntnext s0) pt sc)
    
28. )
    
29.       )
    
30.     )
    
31.   )
    
32.   (CMDLA1)
    
33. )

<br /> ;; 文本内容和字高匹配复制<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (if (and (setq s0 (car (entsel "\n选择标准文本: ")))<br />     (xyp-etype s0 "text")<br />     (setq ss0 (ssget))<br />       )<br />     (progn<br />       (setq tx (xyp-get-dxf 1 s0)<br />      th0 (xyp-get-dxf 40 s0)<br />      ss1 (ssget "X" (list '(0 . "text") (cons 1 tx)))<br />      p0 (xyp-get-9pt ss0 9)<br />      i -1<br />       )<br />       (while (setq s1 (ssname ss1 (setq i (1+ i))))<br /> (setq pt (xyp-get-9pt s1 3)<br />        th (xyp-get-dxf 40 s1)<br />        s0 (entlast)<br />        sc (/ th th0 1.)<br />        pt (xyp-get-Pt2Y pt (* sc -200))<br /> )<br /> (xyp-copymove ss0 p0 pt)<br /> (if (/= sc 1)<br />    (xyp-ScaleEntity (xyp-SSelEntnext s0) pt sc)<br /> )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )

cable2004

e派工具箱XCAD强大！

daidong013

xyp1964 发表于 2012-5-27 10:31
文本内容和字高匹配复制

万分感谢院长！~~！~~

daidong013

xyp1964 发表于 2012-5-27 10:31
文本内容和字高匹配复制

再请教院长，如果插入的东西要匹配到这样的位置可否实现呢？！~~

daidong013

daidong013 发表于 2012-5-27 11:40
再请教院长，如果插入的东西要匹配到这样的位置可否实现呢？！~~

佩服佩服！还望院长出手！~~

xyp1964

daidong013

xyp1964 发表于 2012-5-28 13:19

请教院长，我这里的插入点好向反了，改那个语句可以倒过来啊！~~

daidong013

xyp1964 发表于 2012-5-28 13:19

参考文件！~

pop159

院长好，东西实在好，确实很实用，谢谢。但为了使用这一个命令却要加载一个7MB多的XCAD.VLX文件，实在给咱造成了很大的困扰，希望院长就此命令帮俺“减肥”，不胜感激，谢谢支持真的需要此命令，谢谢。

lisp爱好者

晕，购买了下不了，院长帮忙发我下：610011868@qq.com
版主能办忙的话也可以了，我确实购买了，帮忙发给我下截屏