[讨论]取中点，哪里错误？

mmh1

(defun c:zd()
(setq l1 (entsel "\n 选择直线:"))
(setq d (entget (car l1)))
(setq P1 (cdr (assoc 10 d)))
(SETQ P11 (POLAR P1 0 1000))
(setq P2 (cdr (assoc 11 d)))
(setq d1 (car p1))
(setq d2 (cadr p1))
(setq d3 (car p2))
(setq d4 (cadr p2))
(setq m1 (+ d2 d1))
(setq m2 (+ d4 d3))
(setq dd '(m1 m2))
(princ dd)
)

 

dd的输入错误！

Andyhon

旨趣不明,先试这个再论

(setq dd '(m1 m2))
==>

(setq dd (List m1 m2))

mmh1

改正了，输出的m1，怎么不是（d1+d2)的结果？

Andyhon

若不借助Vlide,也可以這麼辦
(setq d1 (car p1))
(terpri)
(princ d1)
(setq d2 (cadr p1))
(terpri)
(princ d2)

 

驗證 D1 & D2

mmh1

(defun c:zd()
(setq sel1 (ssget))
(setq l1 (entsel "\n 选择直线:"))
(setq d (entget (car l1)))
(setq P1 (cdr (assoc 10 d)))
(setq P2 (cdr (assoc 11 d)))
(setq d1 (car p1))
(setq d2 (cadr p1))
(setq d3 (car p2))
(setq d4 (cadr p2))
(setq m1 (/ (+ d1 d3) 2))
(setq m2 (/ (+ d2 d4) 2))
(setq mm (list m1 m2))
(if(> d2 d4)
(command "rotate" sel1 "" mm "r" p2 p1 90 "")
(command "rotate" sel1 "" mm "r" p1 p2 90 "")
)
(princ)
)
谢谢Andyhon 就想自己做一个90°摆正的程序