[求助]：cad中如何得到多个点的z坐标？

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

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

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

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

Underway · 发表于 2005-12-28 14:24:58

(setq z (cadddr (assoc 10 ent))))

ptsos · 发表于 2005-12-28 16:26:23

经验证成功了，谢谢楼上老兄！要是输出X坐标，应该怎么写？
是不是(setq x (cadr (assoc 10 ent)))) ？

Underway · 发表于 2005-12-28 19:13:33

(setq ent (entget (ssname s a))
   pt (cdr (assoc 10 ent))
      x (car pt)
      y (cadr pt)
      z (caddr pt)
   ;z (last pt)    ; another func
)

marcoyuwen · 发表于 2005-12-28 19:48:10

(setq z (car (reverse(assoc 10 ent)))) 也可以，多种方法吧。

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

[求助] [求助]：cad中如何得到多个点的z坐标？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子