Comments on: 5 Simple AutoLISP Selection Sets http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets AutoCAD tips for the lazy drafter. Thu, 12 Aug 2010 19:18:01 +0000 hourly 1 http://wordpress.org/?v=3.0.1 By: Paramanathan http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets/comment-page-1#comment-498 Paramanathan Wed, 20 May 2009 13:17:03 +0000 http://www.lazydrafter.com/?p=7#comment-498 Dear Sir, i need a pgm that 1. prompts for Radius of circle 2. when Radius is given, all the cirlces of similar diameter ( tolerance of /- .05 , precision two decimal places) in the dwg should be grip selected 3. so that i can change the selected (Grip highlited) circles to different layer with layer name being their diameter. i had almost done, except that, each time i have to alter the radius value in the code, below is the code (defun c:SIMRAD () (setq rad (cdr (assoc 40 (entget (car (entsel)))))) (alert (strcat "Radius = " (rtos rad 2))) (princ) (cadr(sssetfirst nil(setq ss_grip (ssget "_X"'((0 . "CIRCLE")(-4 . "=")(40 . 4.0 )))))) ) can somebody suggest a solution Dear Sir,

i need a pgm that

1. prompts for Radius of circle

2. when Radius is given, all the cirlces of similar diameter ( tolerance of /- .05 , precision two decimal places) in the dwg should be grip selected

3. so that i can change the selected (Grip highlited) circles to different layer with layer name being their diameter.

i had almost done, except that, each time i have to alter the radius value in the code,
below is the code

(defun c:SIMRAD ()

(setq rad (cdr (assoc 40 (entget (car (entsel))))))
(alert (strcat “Radius = ” (rtos rad 2)))
(princ)

(cadr(sssetfirst nil(setq ss_grip (ssget “_X”‘((0 . “CIRCLE”)(-4 . “=”)(40 . 4.0 ))))))

)

can somebody suggest a solution

]]> By: KewlToyZ http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets/comment-page-1#comment-484 KewlToyZ Tue, 28 Apr 2009 14:17:49 +0000 http://www.lazydrafter.com/?p=7#comment-484 Hmmm,(defun scircle()(ssget "x" (list(cons 0 "circle")))(command "chprop" x "" "Layer" "DefPoints" ""))? Hmmm,(defun scircle()(ssget "x" (list(cons 0 "circle")))(command "chprop" x "" "Layer" "DefPoints" ""))?

]]> By: Matt Savone http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets/comment-page-1#comment-258 Matt Savone Tue, 25 Nov 2008 20:27:36 +0000 http://www.lazydrafter.com/?p=7#comment-258 I used notepad to write (ssget "x" (list(cons 0 "circle"))) I named it scircle. The file loaded fine but when I type scircle at the command line I get unknown command. Thanks, Matt I used notepad to write
(ssget "x" (list(cons 0 "circle")))

I named it scircle.
The file loaded fine but when I type scircle at
the command line I get unknown command.

Thanks, Matt

]]> By: CadKicks.com http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets/comment-page-1#comment-208 CadKicks.com Fri, 14 Nov 2008 16:58:19 +0000 http://www.lazydrafter.com/?p=7#comment-208 <strong>5 Simple AutoLISP Selection Sets...</strong> You've been kicked (a good thing) - Trackback from CadKicks.com... 5 Simple AutoLISP Selection Sets…

You’ve been kicked (a good thing) – Trackback from CadKicks.com…

]]> By: Lazy Drafter » Writing Scripts http://www.lazydrafter.com/autocad-tips/5-simple-autolisp-selection-sets/comment-page-1#comment-83 Lazy Drafter » Writing Scripts Wed, 27 Aug 2008 19:27:02 +0000 http://www.lazydrafter.com/?p=7#comment-83 [...] you know that you can plug in AutoLISP code into your scripts? Let’s say you want to create a selection set of objects on a certain layer and change them to another layer. You could write a script like [...] [...] you know that you can plug in AutoLISP code into your scripts? Let’s say you want to create a selection set of objects on a certain layer and change them to another layer. You could write a script like [...]

]]>