huxu823 发表于 2022-6-14 15:41:42

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

用不了啊
提示no function definition: SYSVAR

crtrccrt 发表于 2022-6-15 09:04:19

本帖最后由 crtrccrt 于 2022-6-15 09:06 编辑

(defun c:tt (/ p1 p2 p3 )
(setq p1 (getpoint "\n 点取第一边线点: "))
(setq p3 (getpoint p1 "\n 点取第二边线点: "))
(setq p2 (polar p1 (angle p1 p3) (* (distance p1 p3) 0.5) ))
(entmake
      (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)
      )
)
(princ)
)

229096767 发表于 2022-6-15 18:16:28

画的好，感谢分享

尘缘一生 发表于 2022-6-15 21:31:05

huxu823 发表于 2022-6-14 15:41
用不了啊
提示no function definition: SYSVAR

注销了，不需要。

smile0421 发表于 2022-6-15 22:22:57

666大佬牛批

mokson 发表于 2022-6-19 15:34:20

支持3D实体就好了。

f4800 发表于 2022-7-28 08:07:09

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

蓦然语嫣 发表于 2022-9-7 09:40:26

谢谢楼主的分享

cjf160204 发表于 2024-5-22 20:41:33

谢谢分享：

寒潮大冬瓜 发表于 2024-5-22 22:59:32

很好→很棒！很好~很棒！！很好……很棒！！！期待管状的洞口
页: 1 [2] 3
查看完整版本: 轴断面绘制