5币求如下功能，提取

664571221

ludaweb 发表于 2016-3-28 21:52
可以的，看附件。

你好老师在吗，能不能再优化下，提取轴线符号，比如说有7-D,7-E,还有7-1,7-2.我提取的时候输入命令tt，先提取7-D 7-E中间用7-D/7-E,然后右键一下，在提取7-1 7-2，变成7-D/7-E*7-1/7-2

664571221

ludaweb 发表于 2016-3-28 21:52
可以的，看附件。

老师你好，试下我新传的那个123的图纸附件

ludaweb

1. (defun c:tt( / ss i str str2 ent entdb)
   
2.     (vl-load-com)
   
3.     (princ "\n请选择要连接的轴号")
   
4.         (setq ss (ssget '((0 . "INSERT") (66 . 1))))
   
5.         (setq i 0)
   
6.     (setq str "")
   
7.         (repeat (sslength ss)
   
8.                 (setq ent (ssname ss i))
   
9.                 (setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))
   
10.                 (if (= str "")
    
11.                         (setq str entdb)
    
12.             (setq str (strcat str "/" entdb))
    
13.                 )
    
14.                 (setq i (1+ i))
    
15.         )
    
16.     (princ "\n请再选择要连接的轴号")
    
17.         (setq ss (ssget '((0 . "INSERT") (66 . 1))))
    
18.         (setq i 0)
    
19.     (setq str2 "")
    
20.         (repeat (sslength ss)
    
21.                 (setq ent (ssname ss i))
    
22.                 (setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))
    
23.                 (if (= str2 "")
    
24.                         (setq str2 entdb)
    
25.             (setq str2 (strcat str2 "/" entdb))
    
26.                 )
    
27.                 (setq i (1+ i))
    
28.         )
    
29.     (SET-CLIP-STRING (strcat str "*" str2))
    
30.     (princ)
    
31. )

(defun c:tt( / ss i str str2 ent entdb)<br />     (vl-load-com)<br />     (princ "\n请选择要连接的轴号")<br />         (setq ss (ssget '((0 . "INSERT") (66 . 1))))<br />         (setq i 0)<br />     (setq str "")<br />         (repeat (sslength ss)<br />                 (setq ent (ssname ss i))<br />                 (setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))<br />                 (if (= str "")<br />                         (setq str entdb)<br />             (setq str (strcat str "/" entdb))<br />                 )<br />                 (setq i (1+ i))<br />         )<br />     (princ "\n请再选择要连接的轴号")<br />         (setq ss (ssget '((0 . "INSERT") (66 . 1))))<br />         (setq i 0)<br />     (setq str2 "")<br />         (repeat (sslength ss)<br />                 (setq ent (ssname ss i))<br />                 (setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "XX"))<br />                 (if (= str2 "")<br />                         (setq str2 entdb)<br />             (setq str2 (strcat str2 "/" entdb))<br />                 )<br />                 (setq i (1+ i))<br />         )<br />     (SET-CLIP-STRING (strcat str "*" str2))<br />     (princ)<br /> )