[LISP]怎样改变vla-get-point得到的坐标值

碎玉す全瓦

请高手指点一下，我用vla-get-point从图形选取一个点，然后我欲使坐标值x+10，y+10，请问要怎么实现呢？

meflying

我这里怎么没有这个函数???

建议你使用getpoint函数,然后X+10,Y+10,然后

(vlax-3d-point pt)

狂刀无痕

飞哥的酷照，哈

碎玉す全瓦

不是意思，打错了，是vla-getpoint 函数得到的坐标值怎么提取x和y呢？

Ea

(safearray-value (variant-value (vlax-3d-point (getpoint))))