Make Wall..

[vipin_nair]

Hi all,

I have a routine which make wall in specified width. But every time I had to 'explode' that wall to insert Doors & windows, and anyone knows how can we edit this wall (ie. change the wall thickness. This is very useful for us.Thank you.

Routine is here..... PLease try.....

(defun c:w23()
(setq cm(getvar "cmdecho"))
(setvar "cmdecho" 0)
;;; (setq clay(getvar "clayer"))
(setq cclr (getvar "cecolor"))
(command "layer" "m" "wall" "c" "cyan" "" "")
(command "mline" "s" "230")
;;; (command "layer" "m" "0" "c" "white" "" "")
;;; (setvar "clayer" clay)
(setvar "cmdecho" cm)
)

[fixo]

Not sure about how it will work
seems to be worked on my machine


(defun c:wl()
(setq clay (getvar "clayer"))
(setq osm (getvar "osmode"))
(setq cclr (getvar "cecolor"))
(setvar "cmdecho" 0)
(initdia 1)
(setq th (getdist "\n *** Enter wall thickness <230> : "))
(if (not th)(setq th 230.))
(command "._-layer" "m" "wall" "c" "cyan" "" "")
(princ "\n *** Specify points ***")
(setvar "osmode" 0) ; by suit
(command "._mline" "s" th pause)
(while (/= 0 (getvar "cmdactive"))
(command pause))
(setvar "osmode" osm)
(setvar "clayer" clay)
(setvar "cecolor" cclr)
(setvar "cmdecho" 1)
)


~'J'~

[RobertB]

MLines are a poor choice for walls. Why are you reinventing the wheel? Use AutoCAD Architecture.

[vipin_nair]

Hi,
good suggestion, we are more than 10 AutoCAD 2008 users here. That is why I m thinking of this type of routines. And anyone everbeen noticed why this AutoCAD2008 is entirely different with AutoCAD2008 MEP. In MEP we will get all tools which we are trying to make through LSP in AutoCAD other versions.If anyone have any ideas and suggestions , will be appreciated.Thank you.