随时欢迎你。 这是我在查看了提供的一些链接后得出的结论：
(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预览的更改块名非常好
页:
1
[2]