[求助]問一個超簡單的問題

vvc221

由於對activex不是很熟.幫請高手或版主解決一下這麼簡單的問題:如何用activex實現cad的下面兩個命令:

(vl-cmdf  "_.UCS" "_m" pt ) 或是(vl-cmdf  "_.UCS" "_n" pt )

也通過此命令學習一下activex的用法.

英雄无敌

activex可以用sendcommand方法来发送命令的吧

vvc221

caoyin版主能否幫助解答一下?

caoyin

我觉得在 UCS 方面用 VLA 函数比较麻烦，大家用command的比较多

vvc221

觉得也是.还是谢谢!

sailorcwx

先设置UCS名称

(vla-put-origin (vla-get-activeucs (vla-get-activedocument (vlax-get-acad-object)))(vlax-3d-point (getpoint)))

caoyin

sailorcwx发表于2009-9-6 1:45:00先设置UCS名称(vla-put-origin (vla-get-activeucs (vla-get-activedocument (vlax-get-acad-object)))(vlax-3d-point (getpoint)))

不仅要先设置名称

而且还要再次vla-get-activeucs  +  regen  ——复位显示活动的UCS

(getpoint))--->(trans (getpoint) 1 0)

vvc221

是這樣的.不如command命隻來簡單.