Leaderboard

Here you are nearly 2000 to choose from. You will have to find the free ones and then in a format you can use. Yeggi is a collection of 3D models from all over the web

Lol, I just love how no one is actually offering any help despite this being a ridiculously easy task, haha... Friend... "Good people always think twice before helping". There's a reason no one is helping you. As much as I'm being an annoying pest, this is all you're getting from me. The rest is on your own. (defun c:arcdetails ( / arc) (and (setq arc (car (entsel "\nSelect arc <exit>: "))) ((lambda (x / ep sp) (princ (strcat "\nArc Start Point: " (vl-prin1-to-string (setq sp (vlax-get x 'StartPoint))) "\nArc Mid Point: " (vl-prin1-to-string (vlax-curve-getPointAtParam x (* 0.5 (vlax-curve-getEndParam x)))) "\nArc End Point: " (vl-prin1-to-string (setq ep (vlax-get x 'EndPoint))) "\nArc Radius: " (rtos (vla-get-Radius x) 2) "\nArc Length: " (rtos (vla-get-ArcLength x) 2) "\nChord Length: " (rtos (distance sp ep) 2) ) ) ) (vlax-ename->vla-object arc) ) ) (princ) )

Please provide a link to these invaluable 'defuns'. Not sure what 'Makes it easy to remember what to do' means? I'm sorry If I'm coming off brash but this post confuses the hell out of me.

Arc length is rad x theta (angle) or get length property. Chord distance pt1 -> pt2 Tangent (setq hyp (/ arcrad (cos (/ angdiff 2.0)))) (setq tang (sqrt (- (* hyp hyp) (* arcrad arcrad)))) Mid know tangent and angles E know 1/2 angle and rad distance -> mid

The automation will depend on stuff like the lots are an individual pline then you could do something like start number then increment eg 1 then 3 5 7 by dragging a line over the lots in sequence stopping and starting would be necessary for a odd even arrangement. Using ssget "F" you could make what you have displayed may need a couple of options

You mean something like this, have a go at writing something its just the arc properties, (entget (car (entsel "\Pick an arc"))) ((-1 . <Entity name: 82b6b060>) (0 . "ARC") (410 . "Model") (8 . "0") (10 116.242228560598 54.7129767932515 0.0) (40 . 20.0) (50 . 1.30406490850272) (51 . 2.48257365707))

if in doubt... check Lee Mac... would this work? Incremental Array | Lee Mac Programming (lee-mac.com)

Hi Chilidawg, See if this is what you are after. Click "off" the leader for input. Must esc to exit. Number variable set as global, so it will pick up where you left off. ;|SEQUENTIALLY NUMBER AN MLEADER P. DuMONT 06/19/2017 |; (defun c:MLI ( / *error* cmde ldr doc ent ent_obj new_num ) (defun *error* (msg) (if (and msg (not (wcmatch (strcase msg t) "*break*,*cancel*,*exit*")) ) ;_ end of and (princ (strcat "\nError: " msg)) ) (if cmde (setvar 'cmdecho cmde) ) (if ldr (setvar 'cmleaderstyle ldr) ) (if doc (vla-endundomark doc) ) (princ) ) ;_ end of defun (setvar 'cmdecho 0) (setq ldr (getvar 'cmleaderstyle)) (if (and (setq dic (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")) (setq dat (dictsearch (setq dic (cdr (assoc -1 dic))) "NOTES")) ;check your Leader style here ) ;_ end of and (setvar 'cmleaderstyle "NOTES") ;set your Leader style here ) ;_ end of if (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (inputnum) (while (initcommandversion) (command "MLEADER") (while (= 1 (logand 1 (getvar 'cmdactive))) (command pause) ) ;_ end of while (setq ent (entlast) ent_obj (vlax-ename->vla-object ent) new_num (itoa *!num!*) *!num!* (1+ *!num!*)) (vla-put-TextString ent_obj new_num) ) ;_ end of while (vla-endundomark doc) (setvar 'cmleaderstyle ldr) (setvar 'cmdecho cmde) ) ;_ end of defun (defun inputnum () (setq *!num!* (cond ((getint (strcat "\nStarting number? <" (itoa (setq *!num!* (cond (*!num!*) (1) ) ;_ end of cond ) ;_ end of setq ) ;_ end of itoa ">: " ) ;_ end of strcat ) ;_ end of getint ) (*!num!*) ) ;_ end of cond ) ; setq ) ;_ end of defun

I will be very thanksful to you, Please make a complete lisp sir Thanks u