轴断面绘制

langjs · 发表于 2022-6-9 21:48

本帖最后由 langjs 于 2022-6-15 10:55 编辑

轴断面绘制，画下面这种断面图用

尘缘一生 · 发表于 2022-6-10 08:09

本帖最后由尘缘一生于 2022-6-10 08:41 编辑

;;**************画圆柱截断线*********
(defun c:tt (/ p1 p2 p3 e_lst a)
(setq e_lst (sysvar '("osmode" "hpscale" "hpname" "ORTHOMODE")))
(setvar "OSMODE" 512)
(setvar "ORTHOMODE" 1)
(setq p1 (getpoint "\n 点取第一边线点: "))
(setq p3 (getpoint p1 "\n 点取第二边线点: "))
(setq p2 (sl:mid p1 p3))
(entmake
(append
(list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 8 "MM") (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 0)
(cons 10 p1) (cons 40 0) (cons 41 0) (cons 42 0.414214)
(cons 10 p2) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
(cons 10 p3) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
(cons 10 p2) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
)
)
)
(vla-explode (en2obj (entlast)))
(setvar "OSMODE" 0)
(command "boundary" "a" "o" "p" "" (sl:mid p2 p3) "")
(setq a (entlast))
(setvar "hpname" "ANSI31")
(setvar "hpscale" (* 0.02 (distance p2 p3)))
(command "bhatch" "s" a "" "")
(entdel a)
(mapcar 'eval e_lst)
(princ)
)

尘缘一生 · 发表于 2022-6-10 06:56

本帖最后由尘缘一生于 2022-6-10 07:45 编辑

这个好，画的精细，确实不错，代码有点长，我用的ENTMAKE，可以缩短很多

;;**************画圆柱截断线*********c:syp
(defun c:tt (/ p1 p2 p3 e_lst)
(setq e_lst (sysvar '("osmode" "ORTHOMODE")))
(setvar "OSMODE" 512)
(setvar "ORTHOMODE" 1)
(setq p1 (getpoint "\n 点取第一边线点: "))
(setq p3 (getpoint p1 "\n 点取第二边线点: "))
(setq p2 (sl:mid p1 p3))
(entmake
(append
(list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 8 "0") (cons 62 7) (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 0)
(cons 10 p1) (cons 40 0) (cons 41 0) (cons 42 0.414214)
(cons 10 p2) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
(cons 10 p3) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
(cons 10 p2) (cons 40 0) (cons 41 0) (cons 42 -0.414214)
)
)
)
(mapcar 'eval e_lst)
(princ)
)

xzd716 · 发表于 2022-6-9 22:01

谢谢分享！

p-3-ianlcc · 发表于 2022-6-10 08:48

不错…很方便。
谢谢楼主的分享！

GNJLISP · 发表于 2022-6-10 09:05

感谢大师新作

999999 · 发表于 2022-6-10 09:47

尘缘一生发表于 2022-6-10 08:09
;;**************画圆柱截断线*********
(defun c:tt (/ p1 p2 p3 e_lst a)
(setq e_lst ...

看小图还以为画了好多小蝌蚪呢

lxl217114 · 发表于 2022-6-10 12:56

感谢大师持续输出实用小工具

czb203 · 发表于 2022-6-10 17:16

太牛逼，这么多的款式～

完整武器 · 发表于 2022-6-11 14:04

谢谢楼主共享源码，必须顶一下

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

[源码] 轴断面绘制