直线中垂线！还差一点点

趣意人生 · 发表于 2020-11-9 23:08

本帖最后由 highflybir 于 2020-11-10 14:58 编辑

选择直线并绘制其中垂线，中点已经求出来了！弹窗也可以显示其信息！
创建垂线的两个新点时却没能成功！大神们，帮忙看下问题出在哪里？
；(setq zd01 (polar zd (+(angle p1 p2)(/ PI 2))  50)）
；(setq zd02 (polar zd (-(angle p1 p2)(/ PI 2))  50)）
是这两句哪里出了毛病？！！

;;;选择直线并绘制其中垂线
(defun c:gv()
;(setq selL (ssget))
(setq L1 (entsel "\n 选择直线:"))
(setq pt (entget (car L1)))
(setq p1 (cdr (assoc 10 pt)))
(setq p2 (cdr (assoc 11 pt)))
(setq d1 (car p1))
(setq d2 (cadr p1))
(setq d3 (car p2))
(setq d4 (cadr p2))
(setq zd1 (/ (+ d1 d3) 2))
(setq zd2 (/ (+ d2 d4) 2))
(setq zd (list zd1 zd2))

(setq zd01 (polar zd (+(angle p1 p2)(/ PI 2))  50)）
(setq zd02 (polar zd (-(angle p1 p2)(/ PI 2))  50)）

(print  zd)　 ;;;弹窗显示对象
  (textscr)       ;;;弹窗显示对象

(command "_line" zd01 zd02 "")

(princ)
)

start4444 · 发表于 2020-11-9 23:24

关闭捕捉试试

xyp1964 · 发表于 2020-11-9 23:31

;; 注意括号的大小写

;; 选择直线并绘制其中垂线
(defun c:gv ()
(setq L1 (entsel "\n选择直线: ")
pt (entget (car L1))
p1 (cdr (assoc 10 pt))
p2 (cdr (assoc 11 pt))
zd (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)
rr (angle p1 p2)
zd01 (polar zd (+ rr (/ PI 2)) 50)
zd02 (polar zd (- rr (/ PI 2)) 50)
)
(print zd)
(textscr) ;弹窗显示对象
(command "_line" "non" zd01 "non" zd02 "") ;弹窗显示对象
(princ)
)

sunny_8848 · 发表于 2020-11-10 08:16

挺好用的，谢谢分享

趣意人生 · 发表于 2020-11-10 08:50

“xyp1964”大神眼力就是好啊！真是这两行后面的闭括号没注意输入成大写的了

；(setq zd01 (polar zd (+(angle p1 p2)(/ PI 2)) 50)）
；(setq zd02 (polar zd (-(angle p1 p2)(/ PI 2)) 50)）

不过还是大神下面改过的代码更简练！谢谢“xyp1964”大神！

999999 · 发表于 2020-11-10 11:20

谢谢，大神们的分享

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

[已解答] 直线中垂线！还差一点点