自贡黄明儒 发表于 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

值得学习，谢谢分享{:1_1:}

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

RE: 画垂线 [修改]

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

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

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

夜路走得少;P

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

上dwg文件、贴码诊断……
页: [1] 2
查看完整版本: 画垂线