画垂线

自贡黄明儒 · 发表于 2023-5-12 16:12:25

我写了一个画垂线的小程序，最后生成的直线(command "_.line" "non" p1 "non" p2 "")
但老是出错。
改为entmake 才解决了。不知大家遇到过没有？

尘缘一生 · 发表于 2023-5-14 17:15:52

Noangler 发表于 2023-5-13 08:51
谢谢分享，这个做辅助线可以，不用再在线外画一点然后用捕捉垂点生成线再移到想要的位置了

;;绘制垂线(任意曲线之垂线)--------
(defun c:aypercurve1 (/ ee nam p snap)
(setq snap (getvar "osmode"))
(setvar "osmode" 16383) ;打开捕捉
(while (not (and (setq ee (entsel "\n 选择曲线:")))))
(setq nam (car ee))
(while (setq p (getpoint "\n 请点击曲线点位:"))
(aypercurve nam p)
)
(setvar "osmode" snap)
)
;;当前视口取比例值-----(一级)-----
(defun p2uu (pix)
(* pix (/ (getvar "viewsize") (cadr (getvar "screensize"))))
)
;;曲线垂线 nam曲线实体名 p曲线上点---(一级)------
(defun aypercurve (nam p / dd ang p1 p2)
(setq p (vlax-curve-getClosestPointTo nam p nil))
(setq dd (p2uu 88.0))
(setq ang (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv nam (vlax-curve-getparamatpoint nam p)))) ;切线
(setq p1 (polar p (+ ang pi2) dd))
(setq p2 (polar p (- ang pi2) dd))
;;(fy_lineformat (makeline p1 p2) (slmsg "中心线" "いみ絬" "Centerline") "CENTER" 0.4 6)
(makeline p1 p2) ;换成你的画线函数即可
)

尘缘一生 · 发表于 2023-5-12 18:48:28

本帖最后由尘缘一生于 2023-5-12 18:50 编辑

垂线画图也是多需要，对建筑来说，多用于辅助线，三领设计也作了个。

;;绘制垂线(任意曲线之垂线)--------
(defun c:aypercurve1 (/ ee nam p snap)
(setq snap (getvar "osmode"))
(setvar "osmode" 16383) ;打开捕捉
(while (not (and (setq ee (entsel (slmsg "\n 选择曲线:" "\n 匡拒Ρ絬:" "\n Select curve:"))))))
(setq nam (car ee))
(while (setq p (getpoint (slmsg "\n 请点击曲线点位:" "\n 叫翴阑Ρ絬翴︗:" "\n Please click the curve point:")))
(aypercurve nam p)
)
(setvar "osmode" snap)
)
;;曲线垂线 nam曲线实体名 p曲线上点---(一级)------
(defun aypercurve (nam p / dd ang p1 p2)
(setq p (vlax-curve-getClosestPointTo nam p nil))
(setq dd (p2uu 88.0))
(setq ang (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv nam (vlax-curve-getparamatpoint nam p)))) ;切线
(setq p1 (polar p (+ ang pi2) dd))
(setq p2 (polar p (- ang pi2) dd))
(fy_lineformat (makeline p1 p2) (slmsg "中心线" "いみ絬" "Centerline") "CENTER" 0.4 6)
)

Noangler · 发表于 2023-5-13 08:51:40

尘缘一生发表于 2023-5-12 18:48
垂线画图也是多需要，对建筑来说，多用于辅助线，三领设计也作了个。

谢谢分享，这个做辅助线可以，不用再在线外画一点然后用捕捉垂点生成线再移到想要的位置了

Noangler · 发表于 2023-5-13 09:26:10

尘缘一生发表于 2023-5-12 18:48
垂线画图也是多需要，对建筑来说，多用于辅助线，三领设计也作了个。

no function definition: SLMSG

sysu-沼泽 · 发表于 2023-5-13 22:07:05

osmode在运行前修改下试试？

paulpipi · 发表于 2023-5-14 21:31:50

值得学习，谢谢分享

llsheng_73 · 发表于 2023-5-15 23:10:23

你说的这种情况就太没道理了，没碰到过

自贡黄明儒 · 发表于 2023-5-16 07:56:24

llsheng_73 发表于 2023-5-15 23:10
你说的这种情况就太没道理了，没碰到过

夜路走得少

xyp1964 · 发表于 2023-5-16 14:02:16

上dwg文件、贴码诊断……

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

[讨论] 画垂线