HVAC管道计划
大家好，这是一个暖通空调管道程序，它有相当多的好功能。该程序带有内置指令。有关加载的信息，请参阅以下链接：
http://www.cadtutor.net/forum/showthread.php?t=1390
命令语法为RMD
看到下面的图片，请给我你的输入好或坏。
有关公制版本中该程序的副本，请访问以下链接或参阅第52篇文章：
http://www.cadtutor.net/forum/showthread.php?p=302134#post302134
注意
RMD_V5现已修订为RMD_V6。lsp和RMD_V6。dcl
见附件
修订清单-2010年2月21日
;/////////////////////////////////////////////////////////////////////////////////////////
;;;
;;; Do Not Remove This Header!
;;;
;;; Revisions
;;;
;;; No. | Description | Date
;;;=====|====================================================================|===========
;;; 1.0 | Modify variable localization | 02|07|10
;;; --- | Reduce multiple font styles to one style (arch.shx) | --------
;;; --- | Remove RMD_FSU Font Style Update Function | --------
;;; --- | Remove RMD_TSU Text Size Update Function | --------
;;; --- | Remove RMD_FIS Font Image Function | --------
;;; --- | Modify RMD_CMT Component Mode Tile Function | --------
;;; --- | Modify RMD_IDP Instructions Dialog Page Function | --------
;;;=====|====================================================================|===========
;;; 2.0 | Added TRANS command function so program will work in UCS system | 02|09|10
;;; --- | Adjust User Interface | --------
;;; --- | Removed 3/8"= 1' Viewport Scale | --------
;;;=====|====================================================================|===========
;;; 3.0 | Removed all entity lists from functions RMD_HDUCT thru RMD_FCON | 02|18|10
;;; --- | Added RMD_DFL, RMD_IL and RMD_DE Functions | --------
;;;=====|====================================================================|===========
;;; 4.0 | Added User Defined inside elbow radius and error trapping | 02|19|10
;;;=====|====================================================================|===========
;;; 5.0 | Added a \ to all instances of the degree character in the dcl | 02|20|10
;;; --- | ------------------------------------------------------------------ | --------
;;;=====|====================================================================|===========
;;; 6.0 | Modified RMD_FS Function to use default font style | 02|21|10
;;; --- | ------------------------------------------------------------------ | --------
;/////////////////////////////////////////////////////////////////////////////////////////
如果要修改文字样式、图层名称、图层颜色、线型、线宽和文字大小。您可以在代码的这个区域，即函数25和27中这样做。
;/////////////////////////////////////////////////////////////////////////////////////////
;
; F25 - Make Layer Function.
;
(defun RMD_ML ()
(if (or (= ITYP$ "INTERNAL")(= ITYP$ "EXTERNAL")(= ITYP$ "BOTH"))
(or (tblsearch "ltype" "DUCT_INSL")
(entmake
(list
(cons 0 "LTYPE")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLinetypeTableRecord")
(cons 2 "DUCT_INSL")
(cons 70 0)
(cons 3 "Duct Insulation _ _ _ _ _ _ _ ")
(cons 72 65)
(cons 73 2)
(cons 40 0.046875)
(cons 49 0.03125)
(cons 74 0)
(cons 49-0.015625)
(cons 74 0)))))
(cond ;Layer Name Layer Color Linetype Lineweight
((and (= DSYS$ "SUPPLY") (= LATYP$ "DUCT")(setq LNAM$ "M-HVAC-SUPP")(setq LCLR# 4)(setq LTYP$ "Continuous")(setq LWGT# 50)))
((and (= DSYS$ "SUPPLY") (= LATYP$ "INSL")(setq LNAM$ "M-HVAC-INSL")(setq LCLR# 1)(setq LTYP$ "DUCT_INSL") (setq LWGT# 18)))
((and (= DSYS$ "SUPPLY") (= LATYP$ "IDEN")(setq LNAM$ "M-HVAC-IDEN")(setq LCLR# 6)(setq LTYP$ "Continuous")(setq LWGT# 35)))
((and (= DSYS$ "RETURN") (= LATYP$ "DUCT")(setq LNAM$ "M-HVAC-RETN")(setq LCLR#23)(setq LTYP$ "Continuous")(setq LWGT# 50)))
((and (= DSYS$ "RETURN") (= LATYP$ "INSL")(setq LNAM$ "M-HVAC-INSL")(setq LCLR# 1)(setq LTYP$ "DUCT_INSL") (setq LWGT# 18)))
((and (= DSYS$ "RETURN") (= LATYP$ "IDEN")(setq LNAM$ "M-HVAC-IDEN")(setq LCLR# 6)(setq LTYP$ "Continuous")(setq LWGT# 35)))
((and (= DSYS$ "DUST") (= LATYP$ "DUCT")(setq LNAM$ "M-DUST-DUCT")(setq LCLR# 203)(setq LTYP$ "Continuous")(setq LWGT# 50)))
((and (= DSYS$ "DUST") (= LATYP$ "IDEN")(setq LNAM$ "M-DUST-IDEN")(setq LCLR# 6)(setq LTYP$ "Continuous")(setq LWGT# 35)))
((and (= DSYS$ "EXHAUST")(= LATYP$ "DUCT")(setq LNAM$ "M-EXHS-DUCT")(setq LCLR#83)(setq LTYP$ "Continuous")(setq LWGT# 50)))
((and (= DSYS$ "EXHAUST")(= LATYP$ "IDEN")(setq LNAM$ "M-EXHS-IDEN")(setq LCLR# 6)(setq LTYP$ "Continuous")(setq LWGT# 35))))
(if (null (tblsearch "layer" LNAM$))
(entmake
(list
(cons 0 "LAYER")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLayerTableRecord")
(cons 2 LNAM$)
(cons 6 LTYP$)
(cons 62 LCLR#)
(cons 70 0)
(cons 2901)
(cons 370LWGT#))))
(princ))
;
;/////////////////////////////////////////////////////////////////////////////////////////
;
; F27 - Text Size Function.
;
(defun RMD_TS ()
(cond
((= FSCL# 0)(setq TSIZ# (setvar "textsize" 9))) ;9" Height
((= FSCL# 1)(setq TSIZ# (setvar "textsize" 4.5))) ;4-1/2" Height
((= FSCL# 2)(setq TSIZ# (setvar "textsize" 2.25)))) ;2-1/4" Height
(princ))
;
;/////////////////////////////////////////////////////////////////////////////////////////
谢谢
秃鹰
RMD_V6。拉链
大家注意，
信源编码现在上传到第一篇文章。这是一个全entmake程序。没有这样的命令调用。
与我过去的一些代码不同，我还广泛使用了列表。此外，我还以更有效的方式使用矢量图像进行了图像处理。
再次请审查，让我知道你发现了什么。
谢谢
秃鹰 你真慷慨，安吉洛（又名秃鹰）。谢谢我将在星期一回到工作岗位后试一试。
非常欢迎您的发言，
我有时写这些东西只是为了打发时间。我一直想为此编写一个代码，但我想我从来没有想过要这么做。只需一个命令，代码就可以为您的lisp美元带来更多好处。我记得我花了很多时间在一个候机楼后面，从头开始做这些事情，这真是太累人了。这是一种可以在工作的每一个工作日使用的代码，如果您在该领域。我一直在努力寻找各种学科来编写代码，但研究可能需要很长时间才能获得所需的信息。
无论如何，请享受并让我知道进展如何。
秃鹰 这是使用此程序创建的典型风管。
我认为字体的选择太过分了，我更喜欢使用公司标准设置的绘图默认字体。除非为该选项添加了一个按钮？？除此之外，我喜欢它。我想我们可以从这里破解它。
S
谢谢stevefr，
我明白你的意思。这与我没有使用图层颜色按钮的原因相同，因为任何人都可以在源代码中设置自己的公司标准。尽管如此，我还是需要一些东西来平衡对话。我曾想过在这个对话框中使用OpenDCL，但这是一个很长的过程，很可能会让其他不熟悉OpenDCL的人感到沮丧。同样有很多选择，即使你不做HVAC，这里使用的方法仍然可以成为一种学习经验，对于那些可能想要为其他东西构建代码的人来说。
因为我要编写这段代码来控制一个标准，所以只有一种字体似乎是合理的。
不管怎样，我很高兴你喜欢它。
享受它。
秃鹰 嘿，巴兹。谢谢这是一个很好的。
那么，这是否意味着DCL对你来说没问题？
只是取笑Viv。
如果你不介意的话，请告诉我所有的怪癖。
这只会让它变得更好。
享受这个节目。
秃鹰 实际上，从我之前的线程中，你知道这不好，：wink：因为它增加了你的输入时间。但我认为这个值得一试。此程序用于英制单位。像我这样的许多公司都使用公制。它也可以有英制/公制的开关吗。（我不知道这是否可能）。另一件事是关于字体。我希望该程序使用默认字体，我在绘图中使用。
谢谢和问候
维维安
页:
[1]
2