5币求如下功能，提取
本帖最后由 664571221 于 2016-3-31 10:04 编辑求如下功能输如命令tt，点击轴线符号，提取轴符号，中间用/相连，如果提取多个用中间用/来间隔7-E/7-D
;; Get Attribute Value-Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - VLA Block Reference Object
;; tag - Attribute TagString
;; Returns: Attribute value, else nil if tag is not found.
(defun LM:vl-getattributevalue ( blk tag )
(setq tag (strcase tag))
(vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
(vlax-invoke blk 'getattributes)
)
)
(defun c:tt( / ss i str ent entdb)
(vl-load-com)
(princ "\n请选择要连接的轴号")
(setq ss (ssget '((0 . "INSERT") (66 . 1))))
(setq i 0)
(setq str "")
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq entdb (LM:vl-getattributevalue (vlax-ename->vla-object ent) "A"))
(if (= str "")
(setq str entdb)
(setq str (strcat str "/" entdb))
)
(setq i (1+ i))
)
(princ str)
(princ)
) 最好把你的CAD也传上来，不知道你要处理的文档是天正的还是天正分解后的。
如果是天正对象，那就难了，如果是属性块，很容易实现。 ludaweb 发表于 2016-3-28 21:17 static/image/common/back.gif
最好把你的CAD也传上来，不知道你要处理的文档是天正的还是天正分解后的。
如果是天正对象，那就难了，如果 ...
你好已经上传，你看下 就是cad ludaweb 发表于 2016-3-28 21:35 static/image/common/back.gif
你好，可以提取，可是我是希望他能保持在复制的状态，我需要把他粘贴到其他地方，可以改进吗 664571221 发表于 2016-3-28 21:43 static/image/common/back.gif
你好，可以提取，可是我是希望他能保持在复制的状态，我需要把他粘贴到其他地方，可以改进吗
能说的具体点吗？保持在复制的状态时什么意思？ ludaweb 发表于 2016-3-28 21:46 static/image/common/back.gif
能说的具体点吗？保持在复制的状态时什么意思？
就是提取以后能够在粘贴板上，我直接按ctrl v就可以复制到word中去 可以的，看附件。 ludaweb 发表于 2016-3-28 21:52 static/image/common/back.gif
可以的，看附件。
你好怎么复制粘贴不起来 ludaweb 发表于 2016-3-28 21:52 static/image/common/back.gif
可以的，看附件。
哦 可以了 原来我刚才那个代码的影响 可以了谢谢你
页:
[1]
2