need help for dimension angle and radius lisp

[Anonymous]

Good day!

I am a working as a landscape detailer, and in our drawings we encounter a lot of arcs and curves which requires dimension angle and a dimension radius below at the same time in our setting out plan, i do not know lisp programming. Lisp masters please help me come up with a lisp with this routine. see my attached image for the dimension that i need and i hope it will work both in model space and layout..

Thank you very much,

Ron

[hiraram_prajapati]

Dear Sir,

Flow direction means :- Start point to end point side (Left to right) i have attached drawing and Image for your reference.

Thank you sir

[Sea-Haven]

Try this change the 10 for offset.

(defun c:wow ( / oldsnap oldsnap ent pt obj cen rad startpoint endpoint mp )

(setq oldsnap (getvar 'osmode))

(setq ent (entsel "\nSelect a arc object "))

(setq pt (cadr ent))
(setq obj (vlax-ename->vla-object (car ent)))
(setq rad (vlax-get obj 'radius))
(setq cen (vlax-get obj 'center))
(setq StartPoint (vlax-get obj 'StartPoint))
(setq EndPoint (vlax-get obj 'endPoint))
(setq mp (mapcar '* (mapcar '+ startpoint endpoint) '(0.5 0.5)))
(setq mp (polar cen (angle cen mp) (+ rad 10)))

(setvar 'osmode 0)

(command "dimAngular" pt mp)
(setq obj (vlax-ename->vla-object  (entlast)))
(vlax-put obj 'textOVERRIDE (strcat "<>" "\nR" (rtos rad 2 2)))

(setvar 'osmode oldsnap)
(princ)
)
(c:wow)

[marko_ribar]

See if this lisp can help you...

Link : https://www.cadtutor.net/forum/files/file/54-autodimlsp/ 

M.R.

[marko_ribar]

---

@marko_ribar wrote:

See if this lisp can help you...

Link : https://www.cadtutor.net/forum/files/file/54-autodimlsp/ 

M.R.

---

Just to inform, I've finally updated my lisp at cadtutor download section as previous lisp had some lacks... If reference LWPOLYLINES, LINES or ARCS are in some 3D UCS aligned so that they lie in it, while dimensioning their elevation and elevation of dimensions can be changed, so you have to pick firstly some point on any dimension except dimradial and then you should 3DORBIT and apply "(c:autodim-dimtozero)" that is added to the end of "autodim.lsp" to dimradial dimensions to make them all at elevation 0.0 both all dimensions and reference entities that were dimensioned...