Search the Community

So I have been trying to figure this out with several approaches now and I need some help. I would like to send all Wipeouts, or really any specified entity type, within a block to the back of the draw order. Is there a way to do this using Lee Mac's Apply To Block Objects routine? I tried this in conjunction with his draw order routines but the MovetoBottom command kept failing. I'm pretty rough with VisualLisp which is part of the issue when trying to troubleshoot his great routines. Or what about this approach? (I dont really understand it, again Visual Lisp) Below is what I tried. I do understand Vanilla Lisp. Visual Lisp I barely know the basics, but eager to learn. Please help me improve my capabilities. I love autolisp. Thank you. The issue is clearly with the lambda function and my improper use of it Im sure. The ssget I am trying to do is incorrect approach for use with his function. ;=========================================================== ; 11/Sep/2020 10:09 AM[Friday] AUTHOR: Brandon Gum ;-- ;DESCRIPTION: ;Select block with wipeout. ;Will send wipeout objects the back of the draw orer ;=========================================================== (defun c:test ( / s ) (princ "\nSelect Block: ") (if (setq s (ssget "_+.:E:S" '((0 . "INSERT")))) (LM:ApplytoBlockObjects (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vla-get-effectivename (vlax-ename->vla-object (ssname s 0))) '(lambda ( obj ) (BG:WipeoutToBottom)) ) ) (princ) ) (vl-load-com) (princ) (defun BG:WipeoutToBottom( / ) (LM:movetobottom (ssget "X" '((0 . "WIPEOUT")))) ;(princ) );end of defun ;===============Below here are Lee's draw order functions============== My LeeMac Based Approach.LSP

I'm using AutoCAD 2000. No Express Tools. Would like to find a way to mask behind a construction note cloud block so the notes are more readable since they are being placed in various locations inside busy drawings. I see that if I had Express Tools, the command is there, but unfortunately, I don't so looking for other options. Thanks!

TWO THINGS HERE 1. How can I get the pause to be only asked once in the while loop. 2. Unknown command "MW". Press F1 for help. comes up for the last 2 commands. CODE FOR CREATING MULTIPLE WIPEOUTS: (defun c:mw ( / sset countn n *error* cmde os smode ) (defun *error* (errmsg) (and acDoc (vla-EndUndoMark acDoc)) (and errmsg (not (wcmatch (strcase errmsg) "*CANCEL*,*EXIT*")) (princ (strcat "\n<< Error: " errmsg " >>")) ) (setvar 'cmdecho cmde) (setvar 'osmode os) (setvar 'selectsimilarmode smode) ) (setq acDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (or (vla-EndUndoMark acDoc) (vla-StartUndoMark acDoc)) (setq cmde (getvar 'cmdecho)) (setq os (getvar 'osmode)) (setq smode (getvar 'selectsimilarmode)) (setvar 'cmdecho 0) (setvar 'osmode 0) ; MULTIPLE WIPEOUT (princ "\nSelect items: ") (setq sset (ssget '((0 . "LWPOLYLINE")))) (if sset (progn (setq n (1- (sslength sset))) (setq countn -1) (while (< countn n) (setq countn (1+ countn)) ; HELP HERE ; TWO THINGS HERE. ; 1. How can I get the pause to be only asked once in the while loop. ; 2. Unknown command "MW". Press F1 for help. comes up for the last 2 commands. (progn (command "._wipeout" "_polyline" (ssname sset countn) pause) (command "_.change" (ssname sset countn) "" "properties" "color" "T" "255,255,255" "") (command "DRAWORDER" (ssname sset countn) "" "back" "") ) ) ) (princ "\Sorry, no closed lwpolylines selected. ") ) (setq sset nil) (*error* nil) (vl-load-com) )

(Here is a link to the original post I am referencing) Hi Guys, I found this awesome lisp by Renderman/Black Box and I have run it a few times and it worked great those times. Then I tried to run it to convert maybe 20 wipeouts at once and a bunch of them disappeared. I would really like to be able to use this one time once I finish drawing all the wipeouts and not after everyone, but I also don't want to risk some failing to convert and having to redraw a bunch of them. Does anyone see anything that would cause these errors? ;;;--------------------------------------------------------------------; ;;; c:WIPEOUT->REGION ;;; Courtesy of RenderMan, CADTutor.net ;;;--------------------------------------------------------------------; ;;; Description: ;;; Convert all wipeouts within a given drawing to regions. ;;;--------------------------------------------------------------------; ;;; Exit function: (defun WIPEOUT->REGION:Exit (msg) (cond ((not msg)) ; Normal exit ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n <!> Error: " msg " <!> ")))) ; Fatal error, display it (WIPEOUT->REGION:Quit)) ;;;--------------------------------------------------------------------; ;;; Quit function: (defun WIPEOUT->REGION:Quit () (setvar 'cmdecho *oldCmdecho*) (setq *oldCmdecho* nil) (setq *error* *oldError* *oldError* nil) (vla-endundomark *activeDoc*) (princ)) ;;;--------------------------------------------------------------------; ;;; Main function: (defun c:WIPEOUT->REGION (/ ss) (vl-load-com) (vla-startundomark (cond (*activeDoc*) ((setq *activeDoc* (vla-get-activedocument (vlax-get-acad-object)))))) ;; Error checking (setq *oldError* *error* *error* WIPEOUT->REGION:Exit) (setq *oldCmdecho* (getvar 'cmdecho)) (setvar 'cmdecho 0) ;; Main code (if (and (setq ss (ssget "_x" '((0 . "WIPEOUT")))) (setq ss (ssget "_x"))) ((lambda (i / e v visList wipList mn mx c) (while (setq e (ssname ss (setq i (1+ i)))) (if (/= "WIPEOUT" (strcase (cdr (assoc 0 (entget e))))) (progn (vla-put-visible (setq v (vlax-ename->vla-object e)) :vlax-false) (setq visList (cons v visList))) (setq wipList (cons e wipList)))) (foreach w wipList (vla-getboundingbox (setq v (vlax-ename->vla-object w)) 'mn 'mx) (setq c (mapcar '* (mapcar '+ (setq mn (vlax-safearray->list mn)) (setq mx (vlax-safearray->list mx))) '(0.5 0.5 0.5))) (vl-cmdf "._boundary" c "") (vl-cmdf "._matchprop" w (entlast) "") (vl-cmdf "._region" "") (vla-delete v)) (foreach o visList (vla-put-visible o :vlax-true))) -1) (prompt "\n <!> No Wipeouts Detected in Currect Drawing <!> ")) (WIPEOUT->REGION:Quit))

is there any way to get the osnap to stop finding ends of a wipeout? I have a tag that I use with labels to show a material. because of the tight quarters of sections at times I added a wipeout behind the attribute. the frame around the 'tag' has semi-circles at the ends and it is a polyline. as you know wipeouts don't work with curved polylines so I had to create a new polyline behind the curved polyline with a ton of endpoints so it followed the curve as best as possible. now when I insert the 'tag' and add a leader it snaps to every point that I created with the wipeout polyline. the frame for the wipeout if off and it is still grabbing any point that it finds (except what I am looking for). so is there anything I can do?

Hi, this is an example to explain my issue, the wipeout boarder covered northside of the wall, i want to hide the object and don't want to show on the print, is there a way that i can hide the wipeout border and object but still show the wall? if i put wipeout on Defpoints then the object become visible. Are there alternate tools to use?

Today I met the "wipeout" command for the first time in draw area. I want to know where do you use it and when or where it will show its benefits. Also in my own way of working, if I want to hide something or not print it, usually I turnoff the containing layer. Is it better to use wipeout, instead? What is the difference between wipeout and turn off layer?

Hello! Can I add some extra poinst to an extant wipeout? Can I add arc similar than polyline? Can I make a wipeout from an extant polyline? Thank you for the answers!

Hey everyone, I am currently looking for a tool like the 'WIPEOUT' tool. the main difference being that i would like to wipe just 1 1or 2 layers, so that the other layers still show. Does anyone know the options for this one? tnx in advance,

I need a lisp routing which does the following: -Pick a point -Draw a leader to a 2nd point -Draw a rectangle or preferable a box with rounded ends in which I can insert text -Maximum of 15 characters (based on current text settings) -Leader will go any direction depending on 2nd point, but text is always same orientation -Do a WIPEOUT behind text box It would also be nice if the text is editable. Allen Brier

Hey guys, I'm working on a code but I am having issues with getting the DXF codes assigned to a variable and using the variables for the polygon command. Basically what I am trying to do is to create a polygon that "traces" a circle that will help me with the wipeout command. (defun c:test (/ obj) (setq obj (entsel"\nSelect Circle to Wipeout: ")) (setq rad (assoc 40 obj)) (setq cen (assoc 10 obj)) (command "_.polygon" 50 cen "C" rad ) ) I'm getting this error: error: bad association list: (7ffffb05b50> (3241.76 1416.18 0.0)) Any help is appreciated

I was doing alot of wipeout and was not enjoying the typing to create them when i wanted to select the same things each time. I wrote this lisp to help me speed the process up. It is very simple and is great for showing how you can use lisp to create short cuts for autocad comands. I would love the recive comment/critesim for this lisp and anything to help be better understand lisp. ;wipeout shotcut (defun c:wp() (setq pl1 (entsel "\nSelect closed polyline to convert to wipeout:") );setq (command "wipeout" "polyline" pl1 "yes") (command "change" "last" "" "properties" "color" "green" "") );defun one of this issue i had with is lisp is the command function. If you want an ENTER you have to "" not " ".

hello, i need some help on how to check a selection set if it contain "wipeout" entity? if it does (draworder "back") and proceed to the next string of command. if not then just proceed likewise with some alert msg. please have a look at my simple routine ;this routine will let the user select multiple object ;& PASTEBLOCK the selection - 112011 ;- (defun c:pblk (/ bp opt selx) ;- (princ "Select basepoint: ") (setq bp (getpoint)) (setq opt "_b") ;- (setq selx (ssget)) ;- [color="blue"];check the selection set "selx" if there is any "WIPEOUT" entity selected ;if "wipeout" is/ are PRESENT (command:"_.draworder" "wipeout" opt) ;(alert "wipeout found -> sent to back") ;proceed to next ;if wipeout is/ are NOT found ;(alert "wipeout NOT found") ;proceed to next[/color] ;- (command "_.copybase" bp selx "") (command "_.pasteblock" bp) (command "_.erase" "previous" "") (princ) );end defun ;;; (the BLUE is where i hope i can put in the necessary codes) im using autocad 2009 thanks in advance

Hi All, I was wondering if there is a way to specify a color for wipeouts to make them printable. I have multiple blocks that all have wipeouts and work perfectly for the the most part. On some occasions I need these blocks to be highlighted, so rather than fill each block with a solid hatch of the Color 30, I've been printing, then manually highlighting with an orange highlighter. I wanted to know if there was a quick way to toggle the existing wipeouts to be able to print with the Color 30 and easily return toggle them back to a regular wipeout. Any thoughts?

Hi. I use wipeouts a lot. Is there any way to automatically create an outline around a block that can be converted to a wipeout? Some of our blocks are complex, and it takes a fair amount of time to create. Thanks in advance!

Hello! Not new to Autocad but new to Cadtutor....I have receive a drawing choc full of wipeouts (arg!). What's worse is the wipeout frames are acting as necessary linework so I cannot just delete them through Qselect. Is there a way to convert wipeouts to polyline regions? They are on many different layers with differing linetypes so I want to retain all those characteristics. Thanks!

hi, i'm still a beginner in lisp and need some help from you guys; ;;;---- lets say i have a closed polyline outline (shape like a light bulb) that consist of lines and arc as my base entity. if i were to use "divide" say by "50 segments" (user input) on this polyline can this 50 nodes or more that has been created be use to trace the outline of the entity using "polyline" by lisp. i will then use this newly created closed polyline (all lines) to be the "wipeout" frame as we know that only close "polyline" (all lines) are accepted. i use acad (archi) 2009 (win xp) ;;;sequence summary ;;;-------------------------- ; prepares the base entity using polyline (lines, arc) before lisp initiation. ;(defun c:dw () ; short for divide-wipeout ;(setq oldpdmode (getvar "pdmode")) ;(setq p1 (entsel "\n select entity") ; selection set p1 ; ensure that the selection is a polyline otherwise alert the user and re-select. ;(command ".divide" p1 "ask user for input") ; divide command that will ask user on how many segment req. ; use the nodes/points that the ".divide" command created and begin "pline" command to trace those nodes and then close the pline. ; (command "wipeout" "p" entlast "y") ; deletes all the pdmode points ; (princ) exit cleanly ;;;-------------------------- thank you in advance