Topic: square to circle lisp

[ELOQUINTET]

hey guys just wondering if anyone has a lisp which will change a square to a circle?

[CAB]

A square is nothing more that a closed pline, so if you select a 4 sided
closed pline you could find the center but what would the radius be?
The object could be a rectangle. The radius could be closest side, farthest
side, or to corner.

CAB

PS No I don't have one.

[JohnK]

I wonder if the best solution would be to take the avg radius. (Just a thought)

[ELOQUINTET]

it's not a big deal i already did what i needed to do manually. the thought just entered my mind that would be nice to have in my arsenal if someone else had it lying around.

[t-bear]

Are you looking to have the square and circle both with the same area, perimiter or?

[SMadsen]

it's not a big deal i already did what i needed to do manually. the thought just entered my mind that would be nice to have in my arsenal if someone else had it lying around.

That's a shame. It would make a really good beginners exercise for those who wanted to learn a bit of AutoLISP.

[M-dub]

a quick and dirty solution could be done with a quick script?
^c^ccircle;2p;mid;\mid;\erase;\;


It would be a good starter for lisp though...
My excuse though is: "no time"

[JohnK]

WHAT?! I dont care! Sign up anyways!!  (If someone walks up to you on the street saying "Heres 5 bucks." Your reply is gonna be "Oh sorry, my wallet is full" ??!?!!?)  If you dont sign up for this im gonna drive up there and slap you in the back of the head so hard, your head is gonna bounce off the floor!

[ELOQUINTET]

easy you little devil you

[JohnK]

Stig, I'm in.

[M-dub]

Sorry, am I missing something here?  (It wouldn't surprise me)  Sign up for what?

[ELOQUINTET]

he kinda lost me too. i guess for the tutorial

[CAB]

Sign me up....

Already did my homework
No peeking.

Code: [Select]

(40 100 101 102 117 110 32 99 58 115 113 50 99 105 114 99 108 101 32 40 41)
(32 32 59 59 114 101 116 117 114 110 58 32 84 32 105 102 32 99 108 111 115 101 100 44 32 110 105 108 32 111 116 104 101 114 119 105 115 101)
(32 32 40 100 101 102 117 110 32 105 115 112 111 108 121 99 108 111 115 101 100 32 40 101 108 105 115 116 41)
(32 32 32 32 40 61 32 49 32 40 108 111 103 97 110 100 32 49 32 40 99 100 114 32 40 97 115 115 111 99 32 55 48 32 40 101 110 116 103 101 116 32 101 108 105 115 116 41 41 41 41 41)
(32 32 41)
(32 32 40 100 101 102 117 110 32 103 101 116 95 118 101 114 116 101 120 32 40 101 108 105 115 116 41)
(32 32 32 32 40 109 97 112 99 97 114 32 39 99 100 114)
(32 32 32 32 40 118 108 45 114 101 109 111 118 101 45 105 102 45 110 111 116)
(32 32 32 32 32 32 39 40 108 97 109 98 100 97 32 40 120 41 32 40 61 32 40 99 97 114 32 120 41 32 49 48 41 41 32 101 108 105 115 116 41 41)
(32 32 41)
(32 32 59 59 32 32 61 61 61 61 61 61 61 61 61 61 61 61 61 61 32 32 83 84 65 82 84 32 32 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61)
(32 32 40 105 102 32 40 97 110 100 32 40 115 101 116 113 32 115 113 32 40 101 110 116 115 101 108 32 34 92 110 83 101 108 101 99 116 32 115 113 117 97 114 101 32 116 111 32 99 111 110 118 101 114 116 32 116 111 32 97 32 99 105 114 99 108 101 46 34 41 41)
(32 32 32 32 32 32 32 32 32 32 32 40 61 32 40 99 100 114 32 40 97 115 115 111 99 32 48 32 40 115 101 116 113 32 101 110 116 108 115 116 32 40 101 110 116 103 101 116 32 40 115 101 116 113 32 101 110 116 32 40 99 97 114 32 115 113 41 41 41 41 41 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 34 76 87 80 79 76 89 76 73 78 69 34 41)
(32 32 32 32 32 32 32 32 32 32 32 40 61 32 40 108 101 110 103 116 104 32 40 115 101 116 113 32 99 108 115 116 32 40 103 101 116 95 118 101 114 116 101 120 32 101 110 116 108 115 116 41 41 41 32 52 41)
(32 32 32 32 32 32 32 32 32 32 32 40 105 115 112 111 108 121 99 108 111 115 101 100 32 101 110 116 41)
(32 32 32 32 32 32 41)
(32 32 32 32 40 112 114 111 103 110)
(32 32 32 32 32 32 59 59 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61)
(32 32 32 32 32 32 40 115 101 116 113 32 114 102 108 97 103 32 48 41 32 59 32 114 97 100 105 117 115 32 102 108 97 103 32)
(32 32 32 32 32 32 40 99 111 110 100)
(32 32 32 32 32 32 32 32 40 40 61 32 114 102 108 97 103 32 48 41 59 32 32 82 97 100 105 117 115 32 105 115 32 101 110 100 112 111 105 110 116)
(32 32 32 32 32 32 32 32 32 40 115 101 116 113 32 114 97 100 32 40 47 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 48 32 99 108 115 116 41 32 40 110 116 104 32 50 32 99 108 115 116 41 41 32 50 41 41)
(32 32 32 32 32 32 32 32 41)
(32 32 32 32 32 32 32 32 40 40 61 32 114 102 108 97 103 32 49 41 59 32 32 114 97 100 105 117 115 32 105 115 32 99 108 111 115 101 115 116 32 115 105 100 101)
(32 32 32 32 32 32 32 32 32 40 115 101 116 113 32 114 97 100 32 40 47 32 40 109 105 110 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 48 32 99 108 115 116 41 32 40 110 116 104 32 49 32 99 108 115 116 41 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 49 32 99 108 115 116 41 32 40 110 116 104 32 50 32 99 108 115 116 41 41 41 50 41 41)
(32 32 32 32 32 32 32 32 41)
(32 32 32 32 32 32 32 32 40 40 61 32 114 102 108 97 103 32 50 41 59 32 32 114 97 100 105 117 115 32 105 115 32 99 108 111 115 101 115 116 32 115 105 100 101)
(32 32 32 32 32 32 32 32 32 40 115 101 116 113 32 114 97 100 32 40 47 32 40 109 97 120 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 48 32 99 108 115 116 41 32 40 110 116 104 32 49 32 99 108 115 116 41 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 49 32 99 108 115 116 41 32 40 110 116 104 32 50 32 99 108 115 116 41 41 41 50 41 41)
(32 32 32 32 32 32 32 32 41)
(32 32 32 32 32 32 41)
(32 32 32 32 32 32 59 59 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61)
(32 32 32 32 32 32 40 115 101 116 113 32 99 101 110 32 40 112 111 108 97 114 32 40 110 116 104 32 48 32 99 108 115 116 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 40 97 110 103 108 101 32 40 110 116 104 32 48 32 99 108 115 116 41 32 40 110 116 104 32 50 32 99 108 115 116 41 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 40 47 32 40 100 105 115 116 97 110 99 101 32 40 110 116 104 32 48 32 99 108 115 116 41 32 40 110 116 104 32 50 32 99 108 115 116 41 41 32 50 41 41)
(32 32 32 32 32 32 41)
(32 32 32 32 32 32 40 115 101 116 113 32 111 112 116 115 32 40 108 105 115 116 32 40 99 111 110 115 32 48 32 34 67 73 82 67 76 69 34 41)
(32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 40 99 111 110 115 32 56 32 40 99 100 114 32 40 97 115 115 111 99 32 56 32 101 110 116 108 115 116 41 41 41 41)
(32 32 32 32 32 32 41)
(32 32 32 32 32 32 40 105 102 32 40 115 101 116 113 32 108 110 116 121 112 32 40 97 115 115 111 99 32 54 32 101 110 116 108 115 116 41 41)
(32 32 32 32 32 32 32 32 40 115 101 116 113 32 111 112 116 115 32 40 97 112 112 101 110 100 32 111 112 116 115 32 40 108 105 115 116 32 40 99 111 110 115 32 54 32 40 99 100 114 32 108 110 116 121 112 41 41 41 41 41)
(32 32 32 32 32 32 41)
(32 32 32 32 32 32 40 105 102 32 40 115 101 116 113 32 99 111 108 111 114 32 40 97 115 115 111 99 32 54 50 32 101 110 116 108 115 116 41 41)
(32 32 32 32 32 32 32 32 40 115 101 116 113 32 111 112 116 115 32 40 97 112 112 101 110 100 32 111 112 116 115 32 40 108 105 115 116 32 40 99 111 110 115 32 54 50 32 40 99 100 114 32 99 111 108 111 114 41 41 41 41 41)
(32 32 32 32 32 32 41)
(32 32 32 32 32 32 40 115 101 116 113 32 111 112 116 115 32 40 97 112 112 101 110 100 32 111 112 116 115 32 40 108 105 115 116 40 99 111 110 115 32 49 48 32 99 101 110 41 32 40 99 111 110 115 32 52 48 32 114 97 100 41 41 41 41)
(32 32 32 32 32 32 40 105 102 32 40 101 110 116 109 97 107 101 32 111 112 116 115 41)
(32 32 32 32 32 32 32 32 40 101 110 116 100 101 108 32 101 110 116 41)
(32 32 32 32 32 32 41)
(32 32 32 32 41)
(32 32 41)
(41)


[JohnK]

heh! ...like there isnt an Autolisper that couldnt read that.

[CAB]

Is that a little better?