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)
)


**** Hidden Message *****

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

{:1_1:}来学习学习。谢谢分享。

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

感谢大神分享！
页: [1] 2 3 4
查看完整版本: 如何修改块里面的实体的线型比例包括嵌套的图快