qingbo9818 发表于 2012-5-5 09:08:46

怎样设定vla-adddimordinate的原点~

本帖最后由 qingbo9818 于 2012-5-5 09:10 编辑

点PT在世界坐标系中是 （ 5.0 5.0 0.0) ,用户坐标系中是 （3.03.00.0）
我用vla-adddimordinate做坐标标注，标注的坐标值始终是世界坐标系的坐标，比如X轴始终标注值为5.0.可是我想要的是用户坐标系坐标,即X轴坐标为3.0.请各位高人有没有什么办法用用户坐标标注？

adddimordinate
给定定义点和引线终点创建坐标标注。语法 RetVal = object.AddDimOrdinate(DefinitionPoint, LeaderEndPoint, UseXAxis) ObjectModelSpace 命令, PaperSpace 命令, Block
使用该方法的对象。 DefinitionPointVariant[变体] (三元素双精度数组); 仅用于输入
指定标注点的三维WCS坐标。 LeaderEndPointVariant[变体] (三元素双精度数组); 仅用于输入
指定引线终点的三维WCS坐标。它将是标注文字显示的位置。 UseXAxisInteger[整数]; 仅用于输入 TRUE: 创建显示 X 轴值的坐标标注。 FALSE: 创建显示 Y 轴值的坐标标注。 RetValDimOrdinate 对象
新创建的坐标标注对象。

qingbo9818 发表于 2012-5-5 10:13:30

沙发也没人要？？？

wowan1314 发表于 2012-5-5 10:56:52

(trans PT 0 1)是不是要这样转换下？ VLa函数明经的函数参考中没有！

caoyin 发表于 2012-5-5 16:39:51

(defun c:tt()
(setq P1 (getpoint "\n指定点: ") P2 (getpoint "\n指定点: "))
(vlax-invoke
(vla-get-modelspace (vla-get-ActiveDocument(vlax-get-acad-object)))
'AddDimOrdinate
(trans P1 1 0)
(trans P2 1 0)
0
)
)

qingbo9818 发表于 2012-5-5 17:35:03

(setq pt1 (vlax-3d-point (trans (getpoint) 1 0 )))
(setq pt2 (vlax-3d-point (trans (getpoint) 1 0 )))
(vla-adddimordinate (model-space) pt1 pt2 :vlax-true )
这是我的原程序，和你的没区别~
还是没有解决我的问题，我希望的标注的值是用户坐标的~这个还是世界坐标的值~

qingbo9818 发表于 2012-5-7 10:09:08

caoyin问题还没解决啊~~顶起来~

qingbo9818 发表于 2012-5-9 10:44:12

还没有人回答我啊,再顶~~~

qingbo9818 发表于 2012-5-11 20:17:44

TranslateCoordinates 这个函数是转换坐标的,可是我不会用~~
来个高手解释下啊~~~

功夫佬 发表于 2012-5-11 23:33:42

帮你顶，坐标标注

qingbo9818 发表于 2012-5-12 09:42:44

多谢支持,继续顶上去~~
页: [1] 2
查看完整版本: 怎样设定vla-adddimordinate的原点~