关于 ucs

登山

Dim ucsobj As AcadUCSs
Dim originp(0 To 2) As Double
Dim xaxisp(0 To 2) As Double
Dim yaxisp(0 To 2) As Double
originp(0) = -4948.574: originp(1) = 1398.2545: originp(2) = 880.4883
xaxisp(0) = -4949.0472: xaxisp(1) = 1498.2534: xaxisp(2) = 880.4883
yaxisp(0) = -4909.5055: yaxisp(1) = 1398.4394: yaxisp(2) = 972.5405
Set ucsobj = acadapp.ActiveDocument.UserCoordinateSystems.Add(originp, xaxisp, yaxisp, "ucs1")
那位大哥能不能帮我看看那里错了。在cad里面能够创建。在vb里面却创建错误？

zfbj

出现什么样的错误？是不是因为图形中已经存在这个UCS了？

登山

登山

创建不上

登山

创建不上