VLISP求助

xtjd · 发表于 2006-11-8 16:10

各位大大：

(setq obj (vlax-ename->vla-object (car (entsel))));;选择一个圆

(setq var (vla-get-center obj));;取得圆心属性

问：怎样得到这个圆的X、Y、Z轴确实数值？？？

xbtang · 发表于 2006-11-8 16:54

不是car,cadr,caddr就可以提取吗﹖

rongyifei · 发表于 2006-11-8 22:36

(vla-get-center obj)返回的是变体数据,要通过转换才能得到x,y,z值!

rongyifei · 发表于 2006-11-8 22:41

(setq pt (vlax-safearray->list (vlax-variant-value (vla-get-center obj))))

(setq x (car pt)) ,,取得x值

(setq y (cadr pt)) ,,取得y值

(setq z (caddr pt) ,,取得z值

xtjd · 发表于 2006-11-9 08:45

终於明白了这个道理，十分感谢！！！

tcsl9621 · 发表于 2006-11-9 23:05

二年以前我也为这个问题困扰好久。呵……

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