修改匿名块的属性

fxf0000 · 发表于 2018-11-8 23:57:47

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

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

×

请问如何实现不炸开匿名块，利用vba修改匿名块的属性？

longer88 · 发表于 2018-11-9 08:21:15

我也想知道。。。。

fxf0000 · 发表于 2018-11-9 09:50:32

论坛里搜罗一番，找到一个改颜色的

fxf0000 · 发表于 2018-11-9 10:01:38

此程序能修改图中所有匿名块中的子实体的颜色属性，当然包括属性的颜色，但用处不大。已测试，可以用
(defun c:SetGreen (/ a_app a_doc a_blks blk ent)
(vl-load-com)
(setq a_app (vlax-get-acad-object)
a_doc (vla-get-ActiveDocument a_app)
a_blks (vla-get-blocks a_doc)
)
(vlax-for blk a_blks
(if (wcmatch (vla-get-name blk) "*U*")
(vlax-for ent blk
(vla-put-color ent acGreen)
)
)
)
(vlax-release-object a_blks)
(vla-regen a_doc acAllViewports)
(princ)
)

fxf0000 · 发表于 2018-11-9 10:14:50

关于制作匿名块，可以用下面的程序
(defun c:nmk ()
  (setq pt (getpoint "\n插入点： "))
  (entmake
(list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
  )
  (prompt "\n选择实体")
  (setq ss1 (ssget)
i (sslength ss1)
n (- 1)
  )
  (repeat i
(entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
  )
  (setq num (entmake '((0 . "ENDBLK"))))
  (entmake (list '(0 . "INSERT") (cons 2 num) (cons 10 pt)))
  (command "erase" ss1 "")
  (princ)
)

fxf0000 · 发表于 2018-11-13 10:29:39

研究过了，原来修改匿名块属性与改普通块属性一样处理，问题解决了！

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

[求助] 修改匿名块的属性

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