登山 发表于 2004-11-21 19:29:00

关于 ucs

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

zfbj 发表于 2004-11-21 21:00:00

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

登山 发表于 2004-11-22 19:16:00

登山 发表于 2004-11-22 19:17:00

创建不上

登山 发表于 2004-11-22 19:18:00

创建不上
页: [1]
查看完整版本: 关于 ucs