Does anyone know how to make a flexible hose lintype in LT?

[viviancarvalho]

Hi Kev
Thats for you. Let me know if it worked out for you or not. Coz i ve done it in a bit hurry.

;FLEXIBLE DUCTS english
(defun c:fd2(/ ce osm clyr fr cin c1 c2 c3 c4 c5 c6 c7 cl fb fdia bn terr)
(princ "\n Made easy for you by Vivian")
(setq ce(getvar "cmdecho")
osm(getvar "osmode")
clyr(getvar "clayer")
fr(getvar "filletrad"))
(setq terr *error*)
(setq *error* SAD_SET)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq cl(car (entsel "\n Select the centre line of flexible : ")))
(setq fdia(getdist "\n Specify Diameter of the flexible : "))
(if (> 8 fdia)
(setvar "filletrad" (mti 100))
(setvar "filletrad" (mti 200)))
(if (null (tblsearch "layer" "DUCTING"))
(command "layer" "n" "DUCTING" "c" "magenta" "DUCTING" "")
(princ))
(if (= "LWPOLYLINE" (cdr (assoc 0 (entget cl))))
(command "fillet" "p" cl)
(princ))
(command "change" cl"" "p" "la" "DUCTING" "")
(setq cin(cdr (assoc 10 (entget cl)))
c1(polar cin 1.570796 (/ fdia 2))
c2(polar cin 4.712387 (/ fdia 2))
c3(polar cin 0.0 (mti 20))
c4(polar c3 1.570796 (mti 50))
c5(polar c3 4.712387 (mti 50))
c6(polar c5 3.141592 (mti 40))
c7(polar c4 3.141592 (mti 40)))
(command "pline" c1 c4 c5 c2 c6 c7 "c")
(setq fb(entlast))
(command "change" fb"" "p" "la" "DUCTING" "c" "7" "")
(setq bn (strcat "FLEX"(rtos fdia 2 0)))
(if (null(tblsearch "block" bn))
(progn(command "block" bn cin "previous" "")
(command "measure" cl "b" bn "y" "1.57480315"))
(progn (command "measure" cl "b" bn "y" "1.57480315")
(command "erase" fb"")))
(command "clayer" clyr)
(command "osmode" osm)
(command "filletrad" fr)
(command "cmdecho" ce)
(princ))
(defun SAD_SET (ERRORMSG)
(command nil nil nil)
(if (not (member ERRORMSG '("console break" "Function Cancelled")))
(princ (strcat "\nError:" ERRORMSG)))
(setvar "cmdecho" ce)
(setvar "osmode" osm)
(setvar "clayer" clyr)
(princ "\nAttention! An Error Has Occurred!")
(princ "\nProgram Now Restoring The User Settings.")
(terpri)
(setq *error* terr)
(princ)
)
;mm to inches
(defun mti (a)
(/ a 25.4))

Regards
Vivian

[Tankman]

If you want to create a new custom linetype, you can use the manual way and edit the respective .LIN file using a text editor - e.g. NOTEPAD (following instructions in the AutoCAD Customization Guide).


A more convenient way is to make use of the MKLTYPE Express Tool and generate your linetype directly from a pre-drawn drawing (you can use PLINEs, SHAPEs...). For shapes you can use a similar tool - MKSHAPE.
Express Tools are included in AutoCAD 2004 and higher.