视口中UCS问题？

zhong2013

(setq centerPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))  
　　(vlax-safearray-fill centerPnt '(50 50 0))  
　　(setq width 500)  
　　(setq height 500)
　　(vla-put-ActiveSpace AcadDocument acpaperspace)  
　　(setq newPViewportSel(vla-get-PaperSpace acaddocument))  
　　(setq newPViewport(vla-AddPViewport newPViewportSel centerPnt width height))
(vla-ZoomExtents AcadObject)  
　　(vla-Display newPViewport :vlax-true)
(vla-put-MSpace AcadDocument :vlax-true)  
　　(vla-put-ActivePViewport AcadDocument newPViewport)
(vla-put-customscale newPViewport 1) ;_比例
      (vla-Regen AcadDocument acAllViewports)
    (setq origin (vlax-3d-point 0 0 0)  
          xAxis (vlax-3d-point 1 1 0)  
          yAxis (vlax-3d-point -1 1 0))
      (setq newUCS (vla-Add UCSs origin xAxis yAxis "niwtUCS"))  
      (vla-put-ActiveUCS 　　AcadDocument  newUCS)
(print (vla-get-UCSPerViewport newPViewport))
(vla-put-ucsiconatorigin newPViewport :vlax-true) ;_显示原点

zhong2013

怎么视口外面与里面一样的，退出视口怎么没退出UCS，还有怎么实现PLAN啊，除了直接COMMAND“PLAN”外。

st788796

楼主这个录制工具是什么？

zhong2013

网是这种工具很多我用的GIF屏幕录象工具 V1.02.exe

newer

设置完UCS后，你还需要设置VIEW才行。

newer

zhong2013 发表于 2013-11-6 18:07
怎么视口外面与里面一样的，退出视口怎么没退出UCS，还有怎么实现PLAN啊，除了直接COMMAND“PLAN”外。

另外，如果你想实现PLAN，那么你也可以通过设置系统变量 ucsfollow，在设置UCS前。

zhong2013

newer 发表于 2013-11-6 19:41
另外，如果你想实现PLAN，那么你也可以通过设置系统变量 ucsfollow，在设置UCS前。

好像这个 ucsfollow系统变量在图纸空间是不起作用的。我主要想问的是我退出视口后，怎么在视口外还是UCS坐标系。

zhong2013

newer 发表于 2013-11-6 19:24
设置完UCS后，你还需要设置VIEW才行。

view?,,是那个函数里进去？我怎么没查到。说详细点好吗

newer

zhong2013 发表于 2013-11-6 20:13
view?,,是那个函数里进去？我怎么没查到。说详细点好吗

视口是AcDbViewPort类，view是AcDbViewTableRecord 类，不管是模型空间的vport还是图纸空间的viewport 都需要AcDbViewTableRecord来显示。

你查下VLA的setcurrentview方法，看看。

zhong2013

脑壳短路了，在把UCS设为原坐标系就对了。{:soso_e100:}

newer

zhong2013 发表于 2013-11-6 23:19
脑壳短路了，在把UCS设为原坐标系就对了。

那你把修正的代码 对照的原来的贴下吧。

PLAN命令的核心主要就是设置viewdirection.