[求助]哪位高人，能不能帮我看看这样的功能？
 

[求助]哪位高人，能不能帮我看看这样的功能？
www.dimcax.com
[求助]哪位高人，能不能帮我看看这样的功能？
如何能利用：
(setq var (vla-get-coordinates (vlax-ename->vla-object (car (entsel)))))
(setq var (vlax-safearray->list (vlax-variant-value var)))
(repeat (- (length var) 3) (setq var (cdr var)))
批量处理图示中左边的变成右边的：
谢谢！
d
附上文件
该文件为 autocad
d
命令: (type (* dist 2.9)) real
命令: (type (distance pt2 pt3)) real
命令: (distance pt2 pt3) 12.2589
命令: (* dist 2.9) 10.15
命令: (< = (distance pt2 pt3) (* dist 2.9)) ; 错误: 用于比较的参数类型不正确: #<subr @0891c4e8
=> 12.2589
为何会这样？
d
(<= (distance pt2 pt3) (* dist 2.9));;<=之间多了个空格
d
第一个问题谁能帮解决一下？
d