不用command从当前视图切换到标准等轴侧视图

guosheyang

     有朋友提问，等轴侧按钮变化视图咋实现的，这里加上，请测试，有问题请反馈，谢谢！
;自定义函数功能：从当前视图切换到等轴侧视图
;作者：ygs-羊羊羊 2022年3月29日
;函数名 ygs-2Isometricview     
;执行  (ygs-2Isometricview)   
(defun ygs-2Isometricview(/ ACADDOCUMENT ACADOBJECT ACTIVEVIEWPORT NEWDIRECTION SS)
  (setvar 'cmdecho 0)
  (setq AcadObject(vlax-get-acad-object)
　　   AcadDocument(vla-get-ActiveDocument AcadObject)
  )
  (setq ActiveViewport(vla-get-ActiveViewport AcadDocument))
  (initget "SW NW SE NE")
  (setq ss(getkword "请选择[(SW)/(NW)/(SE)/(NE)]："))
  (cond((= ss "SW")
       (setq NewDirection (vlax-3d-point -1 -1 1));西南等轴侧视图
       )
      ((= ss "NW")
       (setq NewDirection (vlax-3d-point -1 1 1));西北等轴侧视图
      )
      ((= ss "SE")
       (setq NewDirection (vlax-3d-point 1 -1 1));东南等轴侧视图
      )
      ((= ss "NE")
       (setq NewDirection (vlax-3d-point 1 1 1));东北等轴侧视图
      )
   )
   (vla-put-Direction activeViewport NewDirection)  
   (vla-put-ActiveViewport AcadDocument activeViewport)
   (vla-ZoomAll AcadObject)
)

qq1254582201

好东西，先留存了，后期再来研究

alexmai

感谢，使用方便！