ziele_o2k Posted November 26, 2018 Share Posted November 26, 2018 This solution work form me, but maybe I'm missing something? (vlax-for #item (vla-get-LineTypes (vla-get-ActiveDocument (vlax-get-acad-object))) (if (and (not (wcmatch (strcase (vla-get-name #item)) "BYBLOCK,BYLAYER")) (= (logand (cdr (assoc 70 (entget (vlax-vla-object->ename #item)))) 16) 0) ) (setq line_types_in_drawing (cons (strcase (vla-get-name #item)) line_types_in_drawing)) ) ) Quote Link to comment Share on other sites More sharing options...
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.