cad中如何得到多个点的z坐标？

ptsos · 发表于 2005-12-28 10:05

请问各位高手cad中如何得到多个点的z坐标？

选择了多个点，想得到各点的高程，能输出到文件最好。

jdhszh · 发表于 2005-12-28 11:28

试试
(defun c:gz()
(setq file (open "c:\\1.txt" "w"))
(setq s(ssget (list(cons 0 "POINT"))))
(setq a 0)
(repeat (sslength s)
(setq ent(entget(ssname s a)))
(setq z(caddr(assoc 10 ent)))
(princ z file)
(princ "\n" file)
(setq a(1+ a))
)
(close file)
)

ptsos · 发表于 2005-12-28 13:20

上面的程序输出结果为Y坐标，我想得到Z坐标。我是新手，请高手修改一下程序。

ptsos · 发表于 2005-12-28 14:14

在线等，请高手帮忙！！！不胜感激！！！！

north911 · 发表于 2005-12-28 15:31

(setq x (car(assoc 10 ent))) x坐标
(setq y (cadr(assoc 10 ent))) y坐标
(setq z (caddr(assoc 10 ent))) z坐标

ptsos · 发表于 2005-12-28 16:07

按楼上老兄的提示，2楼的程序输出应该是Z坐标，但是我测试的结果输出的是Y坐标，不知道问题出哪了？

jdhszh · 发表于 2005-12-30 11:13

对不起代码 (setq z(caddr(assoc 10 ent)))
应该为 (setq z(cadddr(assoc 10 ent)))

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