Using a Polygon to create a wipeout for a circle

[chiimayred]

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

[hmsilva]

perhaps something like this

 

(defun c:test (/ obj rad cen)
 (setq obj (entget (car (entsel "\nSelect Circle to Wipeout: "))))
 (setq rad (cdr (assoc 40 obj)))
 (setq cen (cdr (assoc 10 obj)))
 (command "_.polygon" 50 cen "_C" rad)
 (princ)
)

 

HTH

Henrique

[Lee Mac]

This program may help.

[chiimayred]

perhaps something like this

 

(defun c:test (/ obj rad cen)
 (setq obj (entget (car (entsel "\nSelect Circle to Wipeout: "))))
 (setq rad (cdr (assoc 40 obj)))
 (setq cen (cdr (assoc 10 obj)))
 (command "_.polygon" 50 cen "_C" rad)
 (princ)
)

 

HTH

Henrique

 

Hi Henrique,

 

Thanks so much! That's what I was looking for!

 

I'm working now to add some error-checking to the program and I'm running into another error when I'm trying to test it in AutoCAD.

 

(defun c:test (/ obj rad cen wipeout)
 ;;this lisp will create a wipeout for a circle when selected by the user
 (if (setq obj (entget (car(entsel"\nSelect Circle to Wipeout: "))))
   (if (/= circle (cdr (assoc 0 obj)))
 (setq rad (cdr (assoc 40 obj)));;get radius from selection and set to "rad"
 (setq cen (cdr (assoc 10 obj)));;get center point from selection and set to "cen"
 (command
   "_.polygon" 50 cen "_C" rad
   )
 (setq poly (entlast));;set last entity to variable "poly"
 (command
   "_.wipeout" "_p" poly "_Y"
   )
 (setq wipeout (entlast));;set last entity to variable "wipeout"
 (command
   "_.draworder" wipeout "" "_b";;put wipeout behind object
   )
 (princ)
     (ALERT "YOU DIDN'T SELECT A CIRCLE")
     );;END 2ND IF
   (ALERT "YOU DIDN'T SELECT AN OBJECT")
   );;END 1ST IF
 )

 

I'm getting a too many arguments error

 

Maybe someone can give some insight for me in how to run error checking. One of my pet peeves is that when the if runs the nil value that it still continues the command. I'm trying to get it to skip to the end or to repeat back to the beginning.

 

Lee Mac: I will for sure look into that program.

 

Thanks!

[hmsilva]

You're welcome!

 

Try

 

(defun c:test (/ CEN ESEL OBJ POLY RAD WIPEOUT)
 ;;this lisp will create a wipeout for a circle when selected by the user
 (if (setq esel (entsel "\nSelect Circle to Wipeout: "));; get entity name and picked point
   (progn
     (if (and (setq obj (entget (car esel)));; get entity data
       (= "CIRCLE" (cdr (assoc 0 obj)));; test for "CIRCLE"
  );; and
(progn
  (setq rad (cdr (assoc 40 obj)));;get radius from selection and set to "rad"
  (setq cen (cdr (assoc 10 obj)));;get center point from selection and set to "cen"
  (command "_.polygon" 50 cen "_C" rad)
  (setq poly (entlast));;set last entity to variable "poly"
  (command "_.wipeout" "_p" poly "_Y")
  (setq wipeout (entlast));;set last entity to variable "wipeout"
  (command "_.draworder" wipeout "" "_b");;put wipeout behind object
);; progn
(ALERT "YOU DIDN'T SELECT A CIRCLE")
     );;END 2ND IF
   );; progn
   (ALERT "YOU DIDN'T SELECT AN OBJECT")
 );;END 1ST IF
 (princ)
);; test

 

HTH

Henrique

Edited September 3, 2013 by hmsilva
To declare some variables as local.

[chiimayred]

Thanks! That worked.

 

Thank you again Henrique.

[hmsilva]

Thanks! That worked.

 

Thank you again Henrique.

 

You're welcome, chiimayred

glad I could help

 

Henrique