多重引线的源块属性块的值怎么修改和获取！

aricher · 发表于 2017-8-12 20:54:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多重引线的属性块的值怎么获取修改，纯属性块可以获取修改，但是但是用到多重引线就不行了！

Lisphk · 发表于 2017-8-12 21:31:52

论坛好像是讨论过，适当的关键字搜搜

marting · 发表于 2017-8-12 21:41:29

mleader VLA对象的方法里面有

搜狗截图20170812213621.png

所以，你可以用 vla-getblockattributevalue 获得mleader 属性块的值

例子：

(vl-load-com)
(defun c:Example_BlockAttribute()
;; This example creates an MLeader object and gets and sets values for
;; the block attribute type.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq points (vlax-make-safearray vlax-vbDouble '(0 . 5)))
(vlax-safearray-fill points '(0 4 0
1.5 5 0
)
)
(setq i 0)
(setq modelSpace (vla-get-ModelSpace doc))
(setq oML (vla-AddMLeader modelSpace points i))
(vla-put-ContentType oML acBlockContent)
(vla-put-ContentBlockType oML acBlockBox)
(setq sBlock (vla-get-ContentBlockName oML))
(vlax-for o (vla-Item (vla-get-Blocks doc) sBlock)
(if (= (vla-get-ObjectName o) "AcDbAttributeDefinition")
(progn
(vla-SetBlockAttributeValue oML (vla-get-ObjectID o) "123")
(alert (vla-GetBlockAttributeValue oML (vla-get-ObjectID o)))
)
)
)
(vla-Update acadObj)
(vla-ZoomExtents acadObj)
)

(vl-load-com) 
(defun c:Example_BlockAttribute() 
    ;; This example creates an MLeader object and gets and sets values for 
    ;; the block attribute type. 
    (setq acadObj (vlax-get-acad-object)) 
    (setq doc (vla-get-ActiveDocument acadObj)) 
   
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 5))) 
    (vlax-safearray-fill points '(0 4 0 
                                  1.5 5 0 
                                 ) 
    ) 
    (setq i 0) 
   
    (setq modelSpace (vla-get-ModelSpace doc))   
    (setq oML (vla-AddMLeader modelSpace points i)) 
    
    (vla-put-ContentType oML acBlockContent) 
    (vla-put-ContentBlockType oML acBlockBox) 
 
    (setq sBlock (vla-get-ContentBlockName oML)) 
 
    (vlax-for o (vla-Item (vla-get-Blocks doc) sBlock) 
        (if (= (vla-get-ObjectName o) "AcDbAttributeDefinition") 
                   (progn 
                (vla-SetBlockAttributeValue oML (vla-get-ObjectID o) "123") 
                (alert (vla-GetBlockAttributeValue oML (vla-get-ObjectID o))) 
                   ) 
        ) 
    ) 
   
    (vla-Update acadObj) 
    (vla-ZoomExtents acadObj) 
)

aricher · 发表于 2017-8-12 22:45:14

marting 发表于 2017-8-12 21:41

找到一个可以用的，但是如果有两个值，不知道怎么改成两个不同的，可以帮我改下么，才学lisp 不怎么会

(defun c:data ()
(setq value "值")
(setq ss (ssget ":L" '((0 . "multileader"))))
(setq mleader (ssname ss 0))
(vl-load-com)
;; ? Lee Mac 2010
(if (and (eq "AcDbMLeader"
(vla-get-objectname
(setq mleader (cond ((eq 'vla-object (type mleader)) mleader)
((vlax-ename->vla-object mleader))
)
)
)
)
(= 1 (vla-get-contenttype mleader))
(setq def (lm:itemp (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-get-contentblockname mleader)
)
)
)
(vlax-for obj def
(if (eq "AcDbAttributeDefinition" (vla-get-objectname obj))
;; RJP mod to get existing value and add a new value to it
(if (and (setq id (vla-get-objectid obj))
(setq exval (vla-getblockattributevalue mleader id))
)
(vla-setblockattributevalue mleader id value)
)
)
)
)
)

aricher · 发表于 2017-8-12 22:58:19

marting 发表于 2017-8-12 21:41

(defun lm:itemp (coll item)
;; ? Lee Mac 2010
(if
(not (vl-catch-all-error-p (setq item (vl-catch-all-apply (function vla-item) (list coll item))))
)
item
)
)

newer · 发表于 2017-8-13 00:56:35

aricher 发表于 2017-8-12 22:58

截取个图片说明下吧，什么样的两个不同的，开始前图片，和你修改后的图片

aricher · 发表于 2017-8-13 14:15:17

newer 发表于 2017-8-13 00:56

我想要的效果是最后的那样

Lispboy · 发表于 2017-8-13 14:25:41

aricher 发表于 2017-8-13 14:15

你普通的块的属性，多个文字的，你是怎么写的代码，多重引线属性块是一样的写法，因为都是一个函数
vla-setblockattributevalue

账号		自动登录	找回密码
密码			立即注册

[求助] 多重引线的源块属性块的值怎么修改和获取！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。