轴断面绘制

huxu823

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

;;**************画圆柱截断线*********

(defun c:tt (/ p1 p2 p3 e_lst a)  

  (setq e_lst  ...

用不了啊
提示  no function definition: SYSVAR

crtrccrt

(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

画的好，感谢分享

尘缘一生

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

注销了，不需要。

smile0421

666大佬牛批

mokson

支持3D实体就好了。

f4800

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

蓦然语嫣

谢谢楼主的分享