请求Lisp绘制风管

LSA · 发表于 2022-7-5 17:13:51

如果有人愿意分享他们创建风管弯头（圆形和矩形）的lisp，我将不胜感激。

对于那些不在暖通空调领域的人。。。我想要一个lisp，可以绘制：

登录/注册后可看大图

对不起，这张照片太大了。我没有机会调整它的大小。

因此lisp将提示输入起点。（最好是中扣）
提示输入直径。
提示输入半径。（如果半径为1，则内径等于直径，外径等于内径+直径。如果半径为1.5，则内径为直径的1.5倍，依此类推。）

提前谢谢。

LSA公司

fuccaro · 发表于 2022-7-5 17:20:14

你用什么软件？很可能是多恩和一个动态方块。

LSA · 发表于 2022-7-5 17:22:26

我使用ACAD 2006。你能解释一下如何用动态块实现这一点吗？

我的印象是，动态块只是可以编辑而不分解的块。你指的是使用工具托盘吗？

Adesu · 发表于 2022-7-5 17:25:26

嗨，LSA，
这里是我的代码，我只是为您创建了一个特殊的，并进行了测试

copy


(defun c:test (/ loc rad p1 p2 el1 dia p3 el2 p4 el3 el4)
 (setq loc (getpoint "\nClick any location for object<0,0,0>: "))
 (if (= loc nil)(setq loc '(0 0 0)))
 (setq rad (getdist "\nEnter radius for duct<1>: "))
 (if (= rad nil)(setq rad 1))
 (setq p1 (polar loc 0 rad))
 (setq p2 (polar loc (* pi 0.5) rad))
 (command "_arc" "c" loc p1 p2 "")  
 (setq el1 (entlast))
 (setq dia (getdist "\nEnter diameter for duct<2>: "))
 (if (= dia nil)(setq dia 2))
 (setq p3 (polar p1 0 dia))
 (command "_offset" dia el1 p3 "")
 (setq el2 (entlast))
 (setq p4 (polar p2 (* pi 0.5) dia))
 (command "_line" p1 p3 "")
 (setq el3 (entlast))
 (command "_line" p2 p4 "")
 (setq el4 (entlast))
 (command "_region" el1 el2 el3 el4 "")
 (princ)
 )

fixo · 发表于 2022-7-5 17:28:50

我在2005年的工作：

copy


(defun C:duct (/ bpt cpt dia pt rad tpt ulp urp x y)
 (setvar "cmdecho" 0)
 (setvar "osmode" 0)
 (setq    dia (getreal "\nEnter diameter :\n")
   rad (getreal "\nEnter duct radius as diameter fraction : \n")
 )
 (setq pt (getpoint "\nEnter insertion point of duct \n"))
 (setq    x   (car pt)
   y   (cadr pt)
   bpt (list x (- y (/ dia 2)))
   tpt (list x (+ y (/ dia 2)))
   cpt (list x (+ y (+ (* dia 0.5) (* dia rad))))
   ulp (list (+ x (* dia rad)) (+ y (* dia 0.5) (* dia rad)))
   urp (list (+ x dia (* dia rad)) (+ y (* dia 0.5) (* dia rad)))
 )
 (command "arc"  "C"     cpt    tpt    ulp    "arc"  "C"    cpt
      bpt      urp     "line"    tpt    bpt    ""     "line" urp
      ulp      ""
     )
 (setvar "osmode" 703)
 (setvar "cmdecho" 1)
 (princ)
)
;Test : (C:duct)