在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
页:
[1]