轴断面绘制_CAD中文技术交流网

轴断面绘制

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

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

网友答: 本帖最后由尘缘一生于 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 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)
)

网友答: 谢谢分享！

网友答: 不错…很方便。
谢谢楼主的分享！

网友答: 感谢大师新作

网友答:

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

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

网友答: 感谢大师持续输出实用小工具

网友答: 太牛逼，这么多的款式～

网友答: 谢谢楼主共享源码，必须顶一下

下一篇：没有了