[求助]求一个提取直线起点终点坐标的lisp程序

ZZXXQQ

1. ;返回实体的起点和终点坐标(DEFUN S_E_POINT ( / SS ENT ENM PC R)
2. (IF (SETQ SS (ENTSEL "\nSelect a Object 选择一个实体 :")) (PROGN
3.   (SETQ ENT (ENTGET (CAR SS))
4.              ENM (CDR (ASSOC 0 ENT)))
5.   (COND
6.    ((= ENM "LINE")
7.      (SETQ PT1 (CDR (ASSOC 10 ENT))
8.                  PT2 (CDR (ASSOC 11 ENT))
9.      )
10.    )
11.    ((= ENM "ARC")
12.      (SETQ PC (CDR (ASSOC 10 ENT))
13.                  R   (CDR (ASSOC 40 ENT))
14.                  PT1 (POLAR PC (CDR (ASSOC 50 ENT)) R)
15.                  PT2 (POLAR PC (CDR (ASSOC 51 ENT)) R)
16.      )
17.    )
18.    ((= ENM "LWPOLYLINE")
19.      (SETQ PT1 (CDR (ASSOC 10 ENT))
20.                  PT2 (CDR (ASSOC 10 (REVERSE ENT)))
21.      )
22.    )
23.    ((= ENM "SPLINE")
24.      (SETQ PT1 (CDR (ASSOC 10 ENT))
25.                  PT2 (CDR (ASSOC 10 (REVERSE ENT)))
26.      )
27.    )
28.    (T (SETQ PT1 nil PT2 nil))
29.   )
30. ))
31. (LIST PT1 PT2)
32. )

复制代码

angelatwo

这是我运行成功的一个，大家给评一下这个程序，谢谢 (defun c:xianduandd()
(princ "\n选择要获取端点的直线:")
(setq ss (ssget '((0 . "line"))))
(setq n (sslength ss))
(setq dm(ssname ss (1- n))
dml(entget dm)
dml1(cdr (assoc 10 dml))
dml2(cdr (assoc 11 dml))
c (distance dml1 dml2))
(princ "线段端点坐标为：")
(princ dml1)
(princ dml2)
(princ "\n")
(princ "线段的长度为：")
(princ c)
(princ "\n")
(entmod dml)
(princ)
)

木子歌

还是老兄你编的水平高，我编程还不太熟练，语句比较僵硬，看你的程序，让人感觉有了水平的提高！！谢谢！


那个小弟发的我的程序，请给我指出不足让我改进，非常感激！！！！

angelatwo

我是新手，对程序不懂，同样完成一个功能却有好多程序，我只是希望能从大家的评论中多总结一下编程的技巧，希望让自己得到提高。


另：上个程序是一个好心的姐姐在百忙中帮我写的，让我感到人间好人真多，也让我继续有耐心有信气把毕设做下去，非常感谢木子歌姐姐的古道热肠！

小冰人

不好意思