Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
;Arc dimension (^v^) CAD Studio, [URL unfurl="true"]http://www.cadstudio.cz[/URL]
(defun C:DIMARC ( / pt1 pt2 cen a1 a2 D1 D2 p r oldOs)
(setq oldOs (getvar "OSMODE"))
(prompt "Pick 2 points on an arc - ")
(setvar "OSMODE" 512)
(while (not cen)
(setq pt1 (getpoint "1st pt: ")
cen (osnap pt1 "_CEN")
)
(if (not cen) (alert "Doesn't lie on an arc, retry")
(setq pt2 (getpoint cen " 2nd pt: ")))
);while
(setvar "OSMODE" 0)
(setq a1 (angle cen pt1) a2 (angle cen pt2) ad (abs (- a2 a1))
r (distance pt1 cen)
D1 (* r ad)
D2 (* r (- (* 2 pi) ad))
)
(prompt (strcat "\nArc length: " (rtos D1) ", complementar arc: " (rtos D2)))
(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D1) pause)
(setvar "OSMODE" oldOs)
(prin1)
)
(princ "\nDIMARC command loaded.")
(princ)