guosheyang 发表于 2022-3-29 09:36:39

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

   有朋友提问，等轴侧按钮变化视图咋实现的，这里加上，请测试，有问题请反馈，谢谢！
;自定义函数功能：从当前视图切换到等轴侧视图
;作者：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 发表于 2022-3-29 20:36:14

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

alexmai 发表于 2022-3-30 13:35:15

感谢，使用方便！
页: [1]
查看完整版本: 不用command从当前视图切换到标准等轴侧视图