如何修改块里面的实体的线型比例包括嵌套的图快

lisp_beginner · 发表于 2017-5-13 21:54:51

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

×

如何修改块里面的实体的线型比例包括嵌套的图快？

普通的实体，我知道用 (vla-put-linetypescale obj scl)，但图块内的实体，包括可能有嵌套的图快内的实体，怎么设置？

Lispboy · 发表于 2017-5-13 22:21:50

(defun c:lts ( / lts:processed idx scl sel )
(initget 6)
(if (setq scl (getreal "\nSpecify new linetype scale: "))
(if (setq sel (ssget "_:L"))
(repeat (setq idx (sslength sel))
(lts:obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))) scl)
)
)
)
(vla-regen lts:acdoc acallviewports)
(princ)
)
(defun lts:obj ( obj scl )
(if (and (vlax-write-enabled-p obj) (vlax-property-available-p obj 'linetypescale t))
(vla-put-linetypescale obj scl)
)
(if (= "AcDbBlockReference" (vla-get-objectname obj))
(lts:blk obj scl)
)
)
(setq lts:acdoc (vla-get-activedocument (vlax-get-acad-object))
lts:acblk (vla-get-blocks lts:acdoc)
)

游客，如果您要查看本帖隐藏内容请回复

qqqincccken · 发表于 2017-5-14 09:34:07

谢谢楼上的大神的解答学习了

cable2004 · 发表于 2017-5-14 09:39:55

学习一下，大师的代码！

HLCAD · 发表于 2017-5-14 11:10:55

感谢大师的源代码

liunian0524 · 发表于 2017-5-18 14:02:48

感谢分享,正是需要

819534890 · 发表于 2017-5-18 14:36:11

回复学习学习

nemo1233 · 发表于 2018-1-22 16:36:16

一直在寻找，希望能解决，谢谢

dnbcgrass · 发表于 2018-1-22 17:20:56

回复学习学习！

yoyoho · 发表于 2018-1-22 20:53:23

感谢分享,源碼程序！！

VBAVBAA · 发表于 2018-1-23 00:03:47

来学习学习

sicky111 · 发表于 2018-1-23 00:13:56

谢谢分享。

bonny123 · 发表于 2018-5-27 20:07:49

学习了呢，这个很便捷

7325pink · 发表于 2018-5-30 06:07:07

来学习学习。谢谢分享。

zhangfaren · 发表于 2018-8-10 20:44:13

感谢大神分享！

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

[求助] 如何修改块里面的实体的线型比例包括嵌套的图快