kite15 Posted April 15, 2016 Share Posted April 15, 2016 I have a code please, suggest to change the line type into selected blocks (vl-load-com) (or acdoc (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ss (ssget "_:L" '((0 . "INSERT")))) (repeat (setq i (sslength ss)) (setq sn (ssname ss (setq i (1- i)))) (if (not (member (setq name (cdr (assoc 2 (entget sn)))) l)) (progn (setq l (cons name l)) (vlax-for x (setq bd (vla-item (vla-get-blocks acdoc) name)) (if (and (eq :vlax-false (vla-get-isxref bd)) (eq (vla-get-linetype x) "Hidden 1_5")) (vl-catch-all-apply 'vla-put-linetype (list x) "0")) ) ) ) ) (princ) ) (if ss (vla-regen acdoc acAllViewports)) (princ) (setvar "cmdecho" 1) ) Thanks Quote Link to comment Share on other sites More sharing options...
kpblc Posted April 15, 2016 Share Posted April 15, 2016 What did you mean by (vl-catch-all-apply 'vla-put-linetype (list x) "0") ? Try to change it to (vl-catch-all-apply (function (lambda () (vla-put-linetype x "<LineTypeName")))) And don't forget to change "" to requested value. P.S. Linetype should be already loaded to dwg Quote Link to comment Share on other sites More sharing options...
kite15 Posted April 15, 2016 Author Share Posted April 15, 2016 Hi kpblc, Thank you very much its works.. Quote Link to comment Share on other sites More sharing options...
nod684 Posted April 15, 2016 Share Posted April 15, 2016 what i did is i downloaded the FixBlock.lsp here http://www.draftsperson.net/index.php?title=FixBlock_-_Free_LISP and change the Linetype to Hidden Quote Link to comment Share on other sites More sharing options...
SLW210 Posted April 15, 2016 Share Posted April 15, 2016 Please read the Code Posting Guidelines and place your Code in Code Tags. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.