VLA创建块定义an

Tharwat · 发表于 2022-7-5 16:32:08

随时欢迎你。

eimimitu · 发表于 2022-7-5 16:37:31

这是我在查看了提供的一些链接后得出的结论：


(setq sav (vlax-ename->vla-object sar))
(vla-Rotate sav (setq spa (vlax-3d-point spo)) (- (dtr 180.0) (angle spo tpo)))
(vlax-invoke doc 'CopyObjects (list sav) (vla-Add (vla-get-Blocks doc) spa "_ClosedFilled"))
(vla-delete sav)
(setq sax (vla-InsertBlock (if (= (getvar 'tilemode) 1) (vla-get-ModelSpace doc) (vla-get-PaperSpace doc)) spa "_ClosedFilled" 1.0 1.0 1.0 0.0))

谢谢大家的意见。。。。

带DCL预览的更改块名非常好

[编程交流] VLA创建块定义an

发表回复

精选推荐