以编程方式创建viewpo

JamCAD · 发表于 2022-7-5 23:30:38

我正在开发一个lisp例程，该例程需要在图纸空间中创建一个具有方向的视口。如果我手动操作，我通常会创建视口，然后从视口内部将“UCSFLOW”设置为1，然后更改ucs，这会将视口捕捉到正确的方向。如果您觉得我的解释令人困惑，请查看快照

显示视口轮廓的模型空间：

显示实际视口的图纸空间：

我花了很长时间试图解决如何使用lisp创建具有方向的视口，但有点卡住了。使用vl/vlax似乎有几个选项，但这些选项似乎只指定高度、宽度、中心等，而不是实际的方向。作为一种学习经验，我希望自己完成大部分编程工作，但如果有任何指向正确方向的指示，我将不胜感激。

Lee Mac · 发表于 2022-7-5 23:46:16

下面是一个快速入门的示例：

copy

(defun c:test ( / sel )
   (if (setq sel (ssget "_+.:E:S:L" '((0 . "VIEWPORT"))))
       (vla-put-twistangle
           (vlax-ename->vla-object (ssname sel 0))
           (/ pi 3.0) ;; Angle in radians
       )
   )
   (princ)
)
(vl-load-com) (princ)