[求助]获取直线两端点坐标首次用出错，帮帮忙，谢谢！

xhq1954425 · 发表于 2009-3-26 12:35

运行下面程序后，经检查只能得到一个点的坐标是对的，另一点为0？功底太浅，请求大家指点……非常谢谢！

(defun C:aaa()
    (setq zx (car (entsel"\n选择一直线:<退出>")))
    (SETQ dxf (ENTGET zx))
    (setq p1 (cdr (nth 10 dxf)))
    (setq p2 (cdr (nth 11 dxf)))

    (setq p1x(car p1)) (setq p1y(cadr p1)) (setq p1z(caddr p1))
    (setq p2x(car p2)) (setq p2y(cadr p2)) (setq p2z(caddr p2))
    (print p1x)　
    (print p2x)

(princ)
)

carrot1983 · 发表于 2009-3-26 13:46

(setq P1 (cdr (assoc 10 DXF)))
(setq P2 (cdr (assoc 11 DXF)))

xhq1954425 · 发表于 2009-3-26 20:24

感谢carrot1983的帮，一用就好使，再次感谢！

htys24101 · 发表于 2009-3-26 20:32

学习

xhq1954425 · 发表于 2009-3-27 11:07

谁能给讲讲nth和assoc两种有用法上的区别在哪？谢谢！

(setq p1 (cdr (nth 10 dxf)))

(setq P1 (cdr (assoc 10 DXF)))

wuxuloveguo · 发表于 2009-3-27 11:48

(defun C:aaa()
    (setq zx (car (entsel"\n选择一直线:<退出>")))
    (SETQ dxf (ENTGET zx))
    (setq p1 (cdr (assoc 10 dxf)))
    (setq p2 (cdr (assoc 11 dxf)))

    (setq p1x(car p1)) (setq p1y(cadr p1)) (setq p1z(caddr p1))
    (setq p2x(car p2)) (setq p2y(cadr p2)) (setq p2z(caddr p2))
    (print p1x)　
    (print p2x)
(textscr)
(princ)
)

这样最后结果显示出来比较好!

xhq1954425 · 发表于 2009-3-27 12:55

谢谢楼上的提示，不过我还是不清楚nth和assoc两种在用法上的区别在哪？希望得到指点……谢谢！

caoyin · 发表于 2009-3-27 14:14

(nth 2 '((1)(2)(3))-->(3);;取出表中第三个元素

(assoc 2 '((1)(2)(3))-->(2);;取出表中(第一个元素为2的)子表

zml84 · 发表于 2009-3-27 14:49

本帖最后由作者于 2009-3-27 14:49:39 编辑

(defun C:aaa ()

(if (setq ss (entsel "\n选择一直线: "))

(progn

(setq en (car ss)

ent (ENTGET en)

pt10 (cdr (assoc 10 ent))

pt11 (cdr (assoc 11 ent))

)

(print (car pt10))

(print (car pt11))

)

(princ)

)

建议结构化。

xhq1954425 · 发表于 2009-3-27 17:22

谢谢版主和zml84的帮助！

本人是自学编程，手头资料又少，看见高手书写的规范程序真是羡慕，但有些看不懂，看了zml84这样书写真对我有很大的启发，真的非常感谢！

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