HVAC Ducting Program

[The Buzzard]

Hello All,

This is an HVAC ducting program and it has a fair amount of nice features. This program is complete with built-in instructions. For information on loading, see this link:
http://www.cadtutor.net/forum/showthread.php?t=1390

Command Syntax is RMD

See images below and please give me your input good or bad.

For a copy of this program in a Metric Version go to this link below or see Post 52:

http://www.cadtutor.net/forum/showth...134#post302134

Attention!
RMD_V5 has now been Revised to RMD_V6.lsp & RMD_V6.dcl
See Attached

Revision List - 02/21/10

;/////////////////////////////////////////////////////////////////////////////////////////
;;;
;;; 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
;;; --- | ------------------------------------------------------------------ | --------
;/////////////////////////////////////////////////////////////////////////////////////////

If you wish to modify the text style, layer name, layer color, linetype, lineweight and text size. You may do so in this area of the code, Functions 25 and 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 290  1)
        (cons 370  LWGT#))))
  (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))
;
;/////////////////////////////////////////////////////////////////////////////////////////

Thanks,
The Buzzard

[The Buzzard]

Attention All,

Source coding is now uploaded to the first post. This is an all entmake program. There are no command calls what so ever.
Unlike some of my past codes, I made extensive use of lists as well. Also I have done the images with Vector Image in a more effiecient way.

Again please review and let me know what you find.

Thanks,
The Buzzard

[ReMark]

That is very generous of you Angelo (a.k.a. - The Buzzard). Thanks. Will give it a try upon my return to work on Monday.

[The Buzzard]

That is very generous of you Angelo (a.k.a. - The Buzzard). Thanks. Will give it a try upon my return to work on Monday.

Your very welcome ReMark,

I sometimes write this stuff just to pass the time. I always wanted to make a code for this, But never got around to it I guess. Codes that do alot more for your lisp dollar with one command is a neat thing. I remember spending many hours behind a terminal doing all this stuff from scratch and that was a drag. This is the type of code that can get use every working day of your job if your are in that field. I have been trying to find various diciplines to make a code for, But the research can take long to get the information one would need.

Anyway Enjoy and let me know how it goes.
The Buzzard

[The Buzzard]

Here is a typical duct created with this program.

[stevesfr]

Your very welcome ReMark,

I sometimes write this stuff just to pass the time. I always wanted to make a code for this, But never got around to it I guess. Codes that do alot more for your lisp dollar with one command is a neat thing. I remember spending many hours behind a terminal doing all this stuff from scratch and that was a drag. This is the type of code that can get use every working day of your job if your are in that field. I have been trying to find various diciplines to make a code for, But the research can take long to get the information one would need.

Anyway Enjoy and let me know how it goes.
The Buzzard

I think the font choices are overkill, I prefer to use the drawing default font set by the firms standards. Unless there was a button added for this option?? other than that, love it. I guess we can hack it from here.
S

[The Buzzard]

I think the font choices are overkill, I prefer to use the drawing default font set by the firms standards. Unless there was a button added for this option?? other than that, love it. I guess we can hack it from here.
S

Thanks stevefr,

I see your point. Its the same reason I did not put layer color buttons in since anyone can set their own company standards in the source code. I did need something though to balance the dialog all the same. I thought about using OpenDCL for this dialog, But that is such a long process and most likely would frustrate others who are not familar with OpenDCL. There is quite a bit of choice just the same and even if you do not do HVAC the methods used here can still be a learning experience for one who may want to build a code for something else.
Since I was was going to make this code to control a standard, That would seem reasonable to have only one font style.

Anyway I am glad you like it.
Enjoy it.
The Buzzard

[viviancarvalho]

Hey Buzz . Thanks . This is a nice one.

[The Buzzard]

Hey Buzz . Thanks . This is a nice one.

So does that mean DCL is OK by you?
Just teasing Viv.
Let me know of all the quirks if you do not mind.
It only will make it better.

Enjoy the program.
The Buzzard

[viviancarvalho]

Actually it is not ok you know that from my previous thread, because it increases your input time. But I think this one is worth trying. This program is for use with imperial units. Many companies like mine uses metric system. Can it also have a switch for imperial / metric.(i dont know wether it is possible or not). Another thing is about the fonts. I would like the program to use the default fonts which i am using in the drawing.

Thanks & regards
Vivian