yuangw1234 发表于 2006-6-4 22:09:00

adddimordinate方法怎么改变原点坐标

<P>本人用adddimordinatd方法一直都没有办法将其原点改变，其标注原点永远都是acad的默认原点，输入命令ucs-----o 也不能改变原点，本人想这个原点可以自己选择，请问如何写</P>

yuangw1234 发表于 2006-6-5 18:22:00

<P>版主，可以帮忙吗</P>

yuangw1234 发表于 2006-6-15 11:46:00

不知道這個問題是不是只有我一個人遇到過，為什麼沒有在師可以回答，納悶!!

yuangw1234 发表于 2006-6-15 16:21:00

我只是想问一下怎么样可以让标注出的东西的相对点变掉，不要是wcs，我用过坐标转换为什么不行

goggoo 发表于 2014-4-2 13:27:24

本帖最后由 goggoo 于 2014-4-2 13:38 编辑

用TranslateCoordinates命令进行坐标转换（可以算出世界坐标系与当前用户坐标系的位置偏差），让标注偏移要标注的对象，再用move，将标注对象移到需要的位置

以下图块坐标标注通过测试

Var = BlockObj.InsertionPoint’取出图块的插入点
MoveXY(0) = Var(0): MoveXY(1) = Var(1): MoveXY(2) = Var(2)'取出绝对坐标值
Var = AcadApp.ActiveDocument.Utility.TranslateCoordinates(Var, 2, 1, False) '为坐标转换
DimPo(0) = Var(0): DimPo(1) = Var(1): DimPo(2) = Var(2)   '取出当前坐标系相对坐标值
Ang = 0
Set DimOrd = AcadApp.ActiveDocument.ModelSpace.AddDimOrdinate(DimPo, DPoX, Ang)
'DPoX自己按标注角度定义的

DimOrd.ScaleFactor = 1.2: DimOrd.Move DimPo, MoveXY
'设定标注比例，移动标注到用户坐标系为原点
页: [1]
查看完整版本: adddimordinate方法怎么改变原点坐标