[求助]：怎么修改坐标标注的坐标原点

yunzhong80 · 发表于 2005-10-31 14:18:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我在开发自动坐标标注程序时，
标注的原点始终只能是世界坐标原点
怎么把坐标原点应用到我所需要的点上？

zcmjw · 发表于 2005-11-1 08:05:23

需转换坐标系，比如建立自定义坐标系后，再使用标注。

yunzhong80 · 发表于 2005-11-1 08:47:09

不行啊，我自己建立了用户坐标系
可是标注的坐标原点还是在世界坐标原点那里

雪山飞狐(lzh) · 发表于 2005-11-2 18:45:14

vba读取的永远是世界坐标系的值，可以用函数转换到UCS中

mountains3 · 发表于 2005-11-2 22:30:18

linestartptucs = ThisDrawing.Utility.TranslateCoordinates(linestartpt, acword, acUCS, False)

yunzhong80 · 发表于 2005-11-3 11:45:30

请问怎样转换UCS,
我想达到的效果是用ThisDrawing.ModelSpace.AddDimOrdinate(ptDef, ptText, xAxis)标注的坐标原点不在世界坐标原点上，而在用户坐标原点？
linestartptucs = ThisDrawing.Utility.TranslateCoordinates(linestartpt, acword, acUCS, False)
只能转换坐标值，标注出来的点都不在原来的点上。

mountains3 · 发表于 2005-11-3 17:51:03

这个函数的原理是：你要标注的是用户坐标系的原点，现在设为（0，0，0），用translatecoordinates函数把此坐标转到世界坐标，假定为（100，500，66），也就是你在世界坐标（100，500，66）处标了，此点刚好是你的用户（0，0，0），上面的函数的参数对你的问题要少做调整linestartptwcs = ThisDrawing.Utility.TranslateCoordinates(linestartpt, acucs, acword, False)

yunzhong80 · 发表于 2005-11-4 09:04:23

这样用来绘图可以，可标注不行的
标注的原点没变

我要通过程序绘制完成以下图形的绘制和标准
（

雪山飞狐(lzh) · 发表于 2005-11-4 09:16:17

先找到UCS的原点(WCS下),各点坐标与之比较

yunzhong80 · 发表于 2005-11-4 10:43:03

斑竹可不可以说明白点，
我不明白
最好是给个小程序我（上边那图的），非常感谢你了！！1

怎么没人帮我，我急急用啊
求各位大虾了

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

[求助]：怎么修改坐标标注的坐标原点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子