[求助]求助caoyin 版主，如何获取QLEADER末端的那个端点的坐标？

userzhl · 发表于 2008-12-21 23:51:00

求助caoyin 版主，如何获取QLEADER末端的那个端点的坐标？

caoyin · 发表于 2008-12-22 08:39:00

本帖最后由作者于 2008-12-22 9:05:42 编辑

(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)))

userzhl · 发表于 2008-12-22 09:00:00

谢谢版主，版主太强了，但得出的是倒数第二个节点以及端点的坐标点，如何可以提取只是端点的坐标点吗？

例如：

得出结果是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)

我能怎样转换成："100,100"吗？

caoyin · 发表于 2008-12-22 09:02:00

干嘛要转换成字符串？？字符串无法兼顾点的精度！。

caoyin · 发表于 2008-12-22 09:10:00

(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)))

(substr (apply 'strcat (mapcar '(lambda (x)(strcat "," (rtos x 2))) VAR)) 2)

userzhl · 发表于 2008-12-22 09:21:00

非常感谢caoyin版主!!!

userzhl · 发表于 2008-12-22 09:26:00

还有就是我想问一下：

(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")
(progn
(setq INSc (cdr (assoc 41 edat)))
;当INSc为负数时说明它是镜像了的，如何能够把它镜像回原始状态呢？
)
)

userzhl · 发表于 2008-12-22 09:40:00

还有就是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)

我能怎样转换成(100.0 100.0 0.0)？

caoyin · 发表于 2008-12-22 10:20:00

userzhl发表于2008-12-22 9:40:00还有就是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)我能怎样转换成(100.0 100.0 0.0)？

仔细看5楼的帖

caoyin · 发表于 2008-12-22 10:23:00

本帖最后由作者于 2008-12-22 10:23:36 编辑

还有就是我想问一下：
(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")
(progn
(setq INSc (cdr (assoc 41 edat)))
;当INSc为负数时说明它是镜像了的，如何能够把它镜像回原始状态呢？
)
)

(mapcar 'abs INSc)，然后用entmod更新图元
如 (mapcar 'abs '(-1 -2 -3))->返回(1 2 3)

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