不用command的正交视图切换

guosheyang

      刚才有人在问不用command如何切换到正交视图，这里给朋友们分享个不用command的正交视图切换代码 ，当然这个与CAD自身的view命令还是不同，view命令中加入了最大化显示功能，这里只是近似模拟，如有问题请回帖。非正交视图也如法炮制，朋友们自己可完成。
;函数功能：从当前视图切换到正交视图
;作者：ygs-羊羊羊     
;执行 (ygs-2orthview)
(defun ygs-2orthview(/ ACADDOCUMENT ACADOBJECT ACTIVEVIEWPORT NEWDIRECTION)
  (setq AcadObject(vlax-get-acad-object)
　　   AcadDocument(vla-get-ActiveDocument AcadObject)
  )
  (setq ActiveViewport(vla-get-ActiveViewport AcadDocument))
(initget "T B L R F BA")
(setq ss(getkword "请选择[(T)/(B)/(L)/(R)/(F)/(BA)]："))
(cond((= ss "F")
       (setq NewDirection (vlax-3d-point 0 -1 0)) ;前视图
       )
      ((= ss "BA")
       (setq NewDirection (vlax-3d-point 0 1 0))  ;后视图
      )
      ((= ss "L")
       (setq NewDirection (vlax-3d-point -1 0 0)) ;左视图
      )
      ((= ss "R")
       (setq NewDirection (vlax-3d-point 1 0 0))  ;右视图
      )
      ((= ss "T")
       (setq NewDirection (vlax-3d-point 0 0 1))  ;俯视图
      )
      ((= ss "B")
       (setq NewDirection (vlax-3d-point 0 0 -1)) ;仰视图
      )
  )
   (vla-put-Direction activeViewport NewDirection)  
   (vla-put-ActiveViewport AcadDocument activeViewport)
   (vla-ZoomAll AcadObject)
)

guosheyang

感谢 USER2128朋友的认可！  

999999

支持支持，感谢大神的无私分享:D:D

maiko

感谢楼主分享,收下了

mokson

我一直想要这样的功能，楼主真是太厉害了。

alexmai

这几个轴测图按钮，如何设置？

paulpipi

轴测图按钮，如何设置？

henu19

paulpipi 发表于 2022-3-27 11:49
轴测图按钮，如何设置？

你的问题应该不清楚NewDirection列表怎么设置，你可以先调整好CAD视图角度，然后用(vlax-safearray->list (vlax-variant-value (vla-get-Direction activeViewport)))这句代码来获取

guosheyang

alexmai 发表于 2022-3-27 00:26
这几个轴测图按钮，如何设置？

http://bbs.mjtd.com/thread-185041-1-1.html