Search found 655 matches

Re: Layer Transparency

I am having issues with the code below, in that if the kayer 'Insulation' does not exist the layer is created and everyting works fine. However If the layer exists everything executes as expected, but at the end the (CD_SHAPE) is exucuting a second time?? . ; Create Insulation Layer + layer attribut...

Re: Cond help

Sorry Quan, but your change has not improved things :( I'm trying to create a section of Rectangular ductwork, complete with flanges at both ends. In some cases the user will require insulation and in others they will not. So by filtering via the External Insulation Thickness (eit), I want to either...

Re: Cond help

Thanks Quan,
However if I add the '(' as you suggest I am missing the closing ')' ??

edit:
scrap that, I just noticed the ' ) ; end (/= eit 0)'

SteveN

Cond help

Having trouble setting a cond statement. When the value of 'eit' is anything above '0' I want to create the insulation entities. [within the (progn....)] If 'eit' is zero I want to skip this step and go to (INS_MB) The following code does not work & I can't see my error(s) (defun DRAW_INS () ;--...

Re: Layer Transparency

This is where the codes is atm. I've also added a check for the layer existance. (defun MKLAY_INS ( / ) (if (tblsearch "layer" "Insulation") (DRAW_CD) (progn (regapp "accmtransparency") (entmakex (list (cons 0 "LAYER") ;defines create new layer (cons 100 "...

Re: Layer Transparency

Hi Quan, Thanks for the code. I had to go to the thread you kinked to as part of your code failed. It errored here : LM:trans->dxf copied this and all is good now :) (defun LM:trans->dxf ( x ) (logior (fix (* 2.55 (- 100 x))) 33554432) ) . Most of your code I understand, but this confuses me, can yo...

Re: Layer Transparency

Hi Quan, Happy New Year :) :) Thanks for the link, sadly that went way over my head :( I am creating a new layer & setting it's attributes This is where I am so far: (entmakex (list (cons 0 "LAYER") ;defines create new layer (cons 100 "AcDbSymbolTableRecord") (cons 100 "...

Go to advanced search