在CAD中建立地质坐标系的VBA宏代码

清风明月名字

在CAD中建立地质坐标系的VBA宏代码
对地质测量行业的人有用
Private Sub CommandButton5_Click()
'在CAD中建立地质坐标系
ThisDrawing.SendCommand "_UCS W _UCS N Z 90 _UCS _x 180 _UCS S "
ThisDrawing.SendCommand "地质坐标系"&vbCr

'SendKeys "{ENTER}"，不能用此代码，否则执行错误，还是手动按一下回车键
End Sub