cadman6735 Posted July 8, 2010 Posted July 8, 2010 Hi all, Couple of questions When translating from ACAD to Mstation some things don't quite get translated exact. I have narrowed down the issues but am still having problems, Mainly confussion in my head. Operator error! So ignoring what I am doing above and here are my questions: 1. I want to explode all hatch patterns including nested hatch. How do I use (ssget) and (nentsel) together? Because I have hatch patterns that are inside of blocks. Now I really don't want to explode the blocks because this will explode all the blocks including the ones with attributes, which I will loose if I do explode them. (I am curriouse of how to filter blocks with attributes from other blocks) 2. In my search for my answers I ran across the (qaflags) and found this site saying it is undocumented: QAFLAGS been used a long time (QAFLAGS acceps a value between 0 and 32767 bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard ). bit 1 (2) : no pause during text screen listings. bit 2 (4) : no "alert" dialogs (text display instead). bit 7 (128) : accepts "screen picks" (point lists) via (command) function. Normally QAFLAGS should be set to 0. Because it might be set to other values it is a good idea to put (setvar "QAFLAGS" 0) in acaddoc.lsp or any other of your lisp files that you use for startup. I found the above here: http://www.jtbworld.com/autocadtips.htm Can someone educate me more on this (qaflags) and the 32767 options that this can do? But it is more important for me to understand question #1 for now. Thanks Forgot to add my code (this is what I have so far) seem logical (to me) but doesn't work on nested hatch (defun C:exHATCH () (setvar "qaflags" 1) (setq eINSERT (ssget "_X" '((0 . "HATCH")))) (setq eINSERT (nentsel eINSERT) (command "EXPLODE" eINSERT "") (setvar "qaflags" 0) (princ) ) Quote
cadman6735 Posted July 8, 2010 Author Posted July 8, 2010 also, since I am here is there away to explode something in lisp without using the (command "explode") a backdoor way via dxf maybe or other way? Quote
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.