5币求如下功能，提取

664571221

求如下功能输如命令tt，点击轴线符号，提取轴符号，中间用  /  相连，如果提取多个用中间用  /  来间隔  7-E/7-D

ludaweb

1. ;; Get Attribute Value  -  Lee Mac
   
2. ;; Returns the value held by the specified tag within the supplied block, if present.
   
3. ;; blk - [vla] VLA Block Reference Object
   
4. ;; tag - [str] Attribute TagString
   
5. ;; Returns: [str] Attribute value, else nil if tag is not found.
   
6. 
   
7. (defun LM:vl-getattributevalue ( blk tag )
   
8.     (setq tag (strcase tag))
   
9.     (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
   
10.         (vlax-invoke blk 'getattributes)
    
11.     )
    
12. )
    
13. 
    
14. 
    
15. (defun c:tt( / ss i str ent entdb)
    
16.     (vl-load-com)
    
17.     (princ "\n请选择要连接的轴号")
    
18.         (setq ss (ssget '((0 . "INSERT") (66 . 1))))
    
19.         (setq i 0)
    
20.     (setq str "")
    
21.         (repeat (sslength ss)
    
22.                 (setq ent (ssname ss i))
    
23.                 (setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "A"))
    
24.                 (if (= str "")
    
25.                         (setq str entdb)
    
26.             (setq str (strcat str "/" entdb))
    
27.                 )
    
28.                 (setq i (1+ i))
    
29.         )
    
30.     (princ str)
    
31.     (princ)
    
32. )

;; Get Attribute Value  -  Lee Mac<br /> ;; Returns the value held by the specified tag within the supplied block, if present.<br /> ;; blk - [vla] VLA Block Reference Object<br /> ;; tag - [str] Attribute TagString<br /> ;; Returns: [str] Attribute value, else nil if tag is not found.<br /> <br /> (defun LM:vl-getattributevalue ( blk tag )<br />     (setq tag (strcase tag))<br />     (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))<br />         (vlax-invoke blk 'getattributes)<br />     )<br /> )<br /> <br /> <br /> (defun c:tt( / ss i str 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) "A"))<br />                 (if (= str "")<br />                         (setq str entdb)<br />             (setq str (strcat str "/" entdb))<br />                 )<br />                 (setq i (1+ i))<br />         )<br />     (princ str)<br />     (princ)<br /> )

ludaweb

最好把你的CAD也传上来，不知道你要处理的文档是天正的还是天正分解后的。
如果是天正对象，那就难了，如果是属性块，很容易实现。

664571221

ludaweb 发表于 2016-3-28 21:17
最好把你的CAD也传上来，不知道你要处理的文档是天正的还是天正分解后的。
如果是天正对象，那就难了，如果 ...

你好已经上传，你看下 就是cad

664571221

ludaweb 发表于 2016-3-28 21:35

你好，可以提取，可是我是希望他能保持在复制的状态，我需要把他粘贴到其他地方，可以改进吗

ludaweb

664571221 发表于 2016-3-28 21:43
你好，可以提取，可是我是希望他能保持在复制的状态，我需要把他粘贴到其他地方，可以改进吗

能说的具体点吗？保持在复制的状态时什么意思？

664571221

ludaweb 发表于 2016-3-28 21:46
能说的具体点吗？保持在复制的状态时什么意思？

就是提取以后能够在粘贴板上，我直接按ctrl v就可以复制到word中去

ludaweb

可以的，看附件。

664571221

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

你好怎么复制粘贴不起来

664571221

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

哦 可以了 原来我刚才那个代码的影响 可以了谢谢你