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

轴断面绘制

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

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

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

本帖最后由 尘缘一生 于 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:09

本帖最后由 尘缘一生 于 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:03

谢谢分享！

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

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

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

感谢大师新作

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

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

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

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

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

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

太牛逼，这么多的款式～

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

谢谢楼主共享源码，必须顶一下
页: [1] 2 3
查看完整版本: 轴断面绘制