没有UCS通信的UCS世界

chulse · 发表于 2022-7-6 11:23:50

好的，我从ASMI中找到了这个小宝石（一个可以在文件中完成各种事情的反应堆）。我希望它也能自动将UCS设置为文件关闭时的世界。
如果我正确理解您不能在反应堆中使用“command”（请阅读此处，我对反应堆完全陌生……对lisp几乎完全陌生……），有没有其他方法可以将UCS改变回世界？

谢谢

Lee Mac · 发表于 2022-7-6 11:43:44

除了创建临时UCS之外，我不确定还有什么其他方法可以做到这一点：

copy


(defun UCSWorld (/ doc tmp)
 (setq doc (vla-get-ActiveDocument
             (vlax-get-acad-object)))
 
 (vla-put-ActiveUCS doc
   (vla-add (vla-get-usercoordinatesystems doc)
     (vlax-3D-point '(0. 0. 0.))
       (vlax-3D-point '(1. 0. 0.))
         (vlax-3D-point '(0. 1. 0.)) "TempWord_UCS")))