rcpedal

This pedalboard was drawn by the next AutoLISP script:

(defun c:try()

;;; TODO: turn all snaps off

(vl-load-com)

(setq arc1 (car (entsel "\nSelect first arc")))

(setq arc2 (car (entsel "\nSelect second arc")))

(setq c (getpoint "\nCenter "))

(setq n (getint "\nSpecify item number "))

(setq corn1 (getpoint "\nSpecify first corner "))

(setq corn2 (getpoint "\nSpecify second corner "))

(setvar "cmdecho" 0)

(setq len1 (vlax-curve-getDistAtPoint arc1 (vlax-curve-getEndPoint arc1)))

(setq len2 (vlax-curve-getDistAtPoint arc2 (vlax-curve-getEndPoint arc2)))

(setq i 0.0)

(repeat n

(setq p1 (vlax-curve-getPointAtDist arc1 (* i (/ len1 (- n 1)))))

(setq p2 (vlax-curve-getPointAtDist arc2 (* i (/ len2 (- n 1)))))

(command "ucs" "_3" p1 p2 c)

(command "box" corn1 corn2)

(command "ucs" "_p")

(setq i (+ i 1.0))

)

)

Done