给动态快增加属性定义并同时对引用的块增加属性实体

newer · 发表于 2016-9-8 13:15:01

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

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

×

;;给动态快增加属性定义

(defun c:addattribs ( / blk def )
(while
(not
(or (= "" (setq blk (getstring t "\nName of block to update: ")))
(tblsearch "BLOCK" blk)
)
)
(princ (strcat "\nBlock \"" blk "\" not found."))
)
(if (/= "" blk)
(progn
(setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk))
(vla-addattribute def
(getvar 'textsize)
acattributemodelockposition
"New Attribute 1"
(vlax-3D-point 0 0)
"NEW_TAG1"
"New Value 1"
)
(vla-addattribute def
(getvar 'textsize)
acattributemodelockposition
"New Attribute 2"
(vlax-3D-point 0 (- (* 1.5 (getvar 'textsize))))
"NEW_TAG2"
"New Value 2"
)
(command "_.attsync" "_N" blk)
)
)
(princ)
)
(vl-load-com) (princ)

(defun c:addattribs ( / blk def ) 
    (while 
        (not 
            (or (= "" (setq blk (getstring t "\nName of block to update: "))) 
                (tblsearch "BLOCK" blk) 
            ) 
        ) 
        (princ (strcat "\nBlock \"" blk "\" not found.")) 
    ) 
    (if (/= "" blk) 
        (progn 
            (setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk)) 
            (vla-addattribute def 
                (getvar 'textsize) 
                acattributemodelockposition 
                "New Attribute 1" 
                (vlax-3D-point 0 0) 
                "NEW_TAG1" 
                "New Value 1" 
            ) 
            (vla-addattribute def 
                (getvar 'textsize) 
                acattributemodelockposition 
                "New Attribute 2" 
                (vlax-3D-point 0 (- (* 1.5 (getvar 'textsize)))) 
                "NEW_TAG2" 
                "New Value 2" 
            ) 
            (command "_.attsync" "_N" blk) 
        ) 
    ) 
    (princ) 
) 
(vl-load-com) (princ)

另一个方法：

[it618postdisplay>0]

(defun c:adsk (/ ss pt i ent elist)
; Get Entities
(while (not ss)
(princ "\nSelect Objects to Convert to Blocks:")
(setq ss (ssget '((-4 . "<NOT") (0 . "INSERT,POLYLINE,VIEWPORT") (-4 . "NOT>"))))
) ;_ end while
; Get Block Name and Base Point
(while (or (not bn)
(not (snvalid bn))
) ;_ end or
(setq bn (getstring "Specify Block Name: "))
) ;_ end while
(initget 1)
(setq pt (getpoint "Specify Base Point for Block: "))
;;; Create BLOCK Header
(entmake (list (cons 0 "BLOCK") (cons 10 pt) (cons 2 bn) (cons 70 0)))
;;;STEP THRU THE SET
(setq i (sslength ss))
(while (>= i (setq i (1- i)) 0)
(setq ent (ssname ss i)
elist (entget ent)
) ;_ end setq
(entmake elist)
) ;_ end while
;;;FINISH THE BLOCK DEFINITION
(entmake (list (cons 0 "ENDBLK") (cons 8 "0")))
;;;Insert the Block & Delete Originals
(entmake (list (cons 0 "INSERT") (cons 2 bn) (cons 8 "0") (cons 10 pt)))
(command "_.ERASE" ss "")
(redraw)
(AddAttribs)
(prin1)
) ;_ end defun
;;
(defun addattribs ( / blk def)
(while
(not
(or (= "" (setq blk bn))
(tblsearch "BLOCK" blk)
)
)
(princ (strcat "\nBlock \"" blk "\" not found."))
)
(if (/= "" blk)
(progn
(setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk))
(vla-addattribute def
(getvar 'textsize)
acattributemodelockposition
"New Attribute 1"
(vlax-3D-point 0 0)
"NEW_TAG1"
"New Value 1"
)
(vla-addattribute def
(getvar 'textsize)
acattributemodelockposition
"New Attribute 2"
(vlax-3D-point 0 (- (* 1.5 (getvar 'textsize))))
"NEW_TAG2"
"New Value 2"
)
(command "_.attsync" "_N" blk)
)
)
(princ)
)
(vl-load-com) (princ)

(defun c:adsk (/ ss pt i ent elist) 
  ; Get Entities 
    (while (not ss) 
    (princ "\nSelect Objects to Convert to Blocks:") 
    (setq ss (ssget '((-4 . "<NOT") (0 . "INSERT,POLYLINE,VIEWPORT") (-4 . "NOT>")))) 
    ) ;_  end while 
  ; Get Block Name and Base Point 
    (while (or (not bn) 
           (not (snvalid bn)) 
       ) ;_  end or 
    (setq bn (getstring "Specify Block Name: ")) 
    ) ;_  end while 
    (initget 1) 
    (setq pt (getpoint "Specify Base Point for Block: ")) 
;;; Create BLOCK Header 
    (entmake (list (cons 0 "BLOCK") (cons 10 pt) (cons 2 bn) (cons 70 0))) 
;;;STEP THRU THE SET 
    (setq i (sslength ss)) 
    (while (>= i (setq i (1- i)) 0) 
    (setq ent   (ssname ss i) 
          elist (entget ent) 
    ) ;_  end setq 
    (entmake elist) 
    ) ;_  end while 
;;;FINISH THE BLOCK DEFINITION 
    (entmake (list (cons 0 "ENDBLK") (cons 8 "0"))) 
;;;Insert the Block & Delete Originals 
    (entmake (list (cons 0 "INSERT") (cons 2 bn) (cons 8 "0") (cons 10 pt))) 
    (command "_.ERASE" ss "") 
    (redraw) 
    (AddAttribs)    
    (prin1) 
) ;_  end defun 
;; 
(defun addattribs ( / blk def) 
    (while 
        (not 
            (or (= "" (setq blk bn)) 
                (tblsearch "BLOCK" blk) 
            ) 
        ) 
        (princ (strcat "\nBlock \"" blk "\" not found.")) 
    ) 
    (if (/= "" blk) 
        (progn 
            (setq def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk)) 
            (vla-addattribute def 
                (getvar 'textsize) 
                acattributemodelockposition 
                "New Attribute 1" 
                (vlax-3D-point 0 0) 
                "NEW_TAG1" 
                "New Value 1" 
            ) 
            (vla-addattribute def 
                (getvar 'textsize) 
                acattributemodelockposition 
                "New Attribute 2" 
                (vlax-3D-point 0 (- (* 1.5 (getvar 'textsize)))) 
                "NEW_TAG2" 
                "New Value 2" 
            ) 
            (command "_.attsync" "_N" blk) 
        ) 
    ) 
    (princ) 
) 
(vl-load-com) (princ)

[/it618postdisplay]

iLisp · 发表于 2016-9-8 13:24:32

看标题迷惑了，动态给块添加属性非给“动态块”添加属性

lucas3 · 发表于 2016-9-8 14:04:00

看标题迷惑了，动态给块添加属性非给“动态块”添加属性

819534890 · 发表于 2016-9-8 14:34:02

谢谢分享，回复学习

HLCAD · 发表于 2016-9-8 14:59:48

动态块，还没有接触过，谢谢版主

daierfull0 · 发表于 2016-9-8 17:27:57

看标题迷惑了，动态给块添加属性非给“动态块”添加属性

bikeboy · 发表于 2016-9-9 07:59:17

没太整明白啥意思啊

flydyt · 发表于 2017-5-4 11:53:10

看看是不是可以给单独块对象添加属性

Michael527 · 发表于 2017-5-12 18:41:36

想学习学习动态块技术，感觉很难的

fangzheng158 · 发表于 2017-5-14 09:42:56

想学习学习动态块技术，感觉很难的

xiaominghua174 · 发表于 2017-5-17 15:46:00

需要学习很富哦

xiaominghua174 · 发表于 2017-5-17 15:57:19

怎么调出插件命令是多少？

yukuai2000 · 发表于 2017-6-28 16:45:21

认真学习，增长知识

xinxirong · 发表于 2017-6-30 10:43:19

hhhhhhhhhhhhhhhhhhhhhhhhhhhh

bonny123 · 发表于 2017-11-9 10:31:28

同时对块及其引用修改？那就是批量处理了

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

[每日一码] 给动态快增加属性定义并同时对引用的块增加属性实体

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

点评