-linetype?

[Martin (archive)]

i'm trying to load linetypes from a lin-file through lisp, the problem is that it all goes well till it finds an existing linetype then it prompts (linetype exists, overwrite?), although i've set (cmdecho) to zero the prompt still appears, is there a way to avoid this?

 

[C Witt]

(foreach findltype'("center" "hidden" "phantom" "dashed") (if (= (tblsearch "ltype" findltype) nil) (command "-linetype" "l" findltype "" "") )
)

 

[dean_bourke]

(defun c:load_linetypes (/)
(command "linetype" "LOAD" "*" "")
(while (= (getvar "cmdactive") 1) (command ""))
(princ)
)

 

[Martin (archive)]

it's perfect.
martin

 

[R.K. McSwain]

Set the sysvar "expert" to 3 or higher to suppress these prompts....