[求助]VBA中可不可以在UCS下绘图？？

MouHAns · 发表于 2012-5-24 12:21:21

我已经用usercoorinatesystems 成功建立了一个UCS,运行以后在模型空间也看到UCS是正确的，但是接下去在VBA中绘制点还是会在WCS下……没有有方法可以激活这个UCS，并且在这个UCS下利用VBA绘图

VBALISPER · 发表于 2012-5-24 22:15:16

请参考这个例子:
pointUCS = ThisDrawing.Utility.TranslateCoordinates(startPnt, acWorld, acUCS, False) '将指定点的坐标由世界坐标系转为用户坐标系,否则画的线是指定位置转换成世界坐标系的位置.

MouHAns · 发表于 2012-5-25 08:59:10

VBALISPER 发表于 2012-5-24 22:15
请参考这个例子:
pointUCS = ThisDrawing.Utility.TranslateCoordinates(startPnt, acWorld, acUCS, False ...

那是每一个点都要手动转换吗？

crazylsp · 发表于 2013-5-22 16:54:26

请参考这个例子:
pointUCS = ThisDrawing.Utility.TranslateCoordinates(startPnt, acWorld, acUCS, False) '将指定点的坐标由世界坐标系转为用户坐标系,否则画的线是指定位置转换成世界坐标系的位置.

我下来试试

账号		自动登录	找回密码
密码			注册