Anyone have a lisp that will find the center of a square?

[Friptzap]

I always thought there should be something built into AutoCAD to do this but I never thought about it much though as far as making a lisp for it till now. (not just a polyline cause it may be part of a block or 4 separate lines or even a rectangle. Maybe just finds midpoint of a diagonal selection from corner to corner?

[btlsp2014]

Yes I'm familiar with mapcar and lambda, thank you for directing me though, what else do you reccomend as I enter this world anew?

Bill

[btlsp2014]

I worked in Carson City Nevada for a Surveying/Engineering firm, the super, big guy wrote his sermons between labeling parcels in a sub-division at his computer for Sunday's performance at the church lost his friend, bad back to disability and they hired me.  Chuck laughed at the command line when up came "Have a nice day" the way I used to sign out a routine that was used.  The routine was my trimcircle.lsp, it removed all remnants of lines passing through a circle.  Very handy when you have dozens of circles all filled with parcel corners and you want to place labeling letters in them.  He was extremely happy for some reason when his bud recovered spontaniously and I was let go after only 3 months.  I did enjoy doing trimcircle though.

[mid-awe]

I know I used trim circle 🙂 long time ago. Nice one, & fast too. kudos to you.

[btlsp2014]

was that my trim circle?



________________________
Click to read the Lonely Road
updated on Sundays
*LONELY ROAD *




Bill Tonnesen


*503-935-2391*

[mid-awe]

I don't know. Same name did the same thing. Coincidence? Maybe.

[btlsp2014]

Maybe.  Would you send me the code?  Thx, Bill

[btlsp2014]

I did a routine a long time ago to produce a shadow of a set of contiguous 3dfaces.  It traces a ray in 3d from the single source point through the points defining the 3dface vertices to the object 3dface.  However it creates a set of one-to-one 3dfaces in the object 3dface plane.  ideally it would further trace a closed polyline circumnavigating the 3dface set and filling that closed polyline, thus creating a more life-like shadow.  as it is it fills each face.  Any ideas?

Like maybe, oh,

   1) Search for an outer-most 3dface point

   2) Starting there examine the 2 adjacent lines of the 3dface and choosing one

   Start of loop:

   3) Search  for the set of 3dfaces a point of which shares the subject point

   4) Find ∠ A

   5)

[btlsp2014]

Sorry this reply belongs in the new meassage zone

[mid-awe]

I'll see if I can find it. It has been years since I had a use for it.