Topic: Linetype...euh ??

[Andrea]

Hi all,

I Know there is a stupid question...
but i don't understand why the last line is not working
please take a look..



(setq celtype (getvar "celtype"))

(IF (OR (NOT (TBLSEARCH "LTYPE" "EXISTANT"))
   (NOT (TBLSEARCH "LTYPE" "DEMOLITION"))
    )
(VL-CMDF "_.-INSERT" "X:\\Acad\\LIN\\LT-MEC.DWG" "0,0" "" "" "")
)

(setq meclt (strcase (getstring "Please enter your LINETYPE :")))

(VL-CMDF "celtype" meclt )
(VL-CMDF "_.LINE")
(VL-CMDF "celtype" celtype);;;THIS IS NOT WORKING
   



so ??

[Keith™]

Because you are issuing a command after the line command.

Perhaps you should look at cmdactive for your line command routine.

[Andrea]

ok, now how can i change the CMDACTIVE ??