如何用vla-get-Origin获得填充点的坐标!
(setq currOrigin (vla-get-Origin hatch_obj))得到的是一个这样的东西,怎样转换成坐标点形式啊
#<variant 8197 ...>
谢谢
:handshake
(vla-safearray->list (vla_variant_value 点对象))
? (setq currOrigin_pt (vlax-safearray->list (vlax-variant-value currOrigin)))搞定 vlisp中的 变体 需要转换为安全数组 再转换为表 (setq currOrigin (vla-get-Origin (vlax-ename->vla-object (car (nentsel)))))
(setq currOrigin_pt (vlax-safearray->list (vlax-variant-value currOrigin)))
只能得到填充原点坐标怎么能得到填充所有端点坐标 我总是使用 :
(vlax-get(vlax-ename->vla-object (car(entsel))) 'origin)
页:
[1]