(ARCLEN)以圆弧长度创建直线

;;说明:以圆弧长度创建直线
(defun c:arclen(/ len pt)
    (setq len (vla-get-ArcLength (vlax-ename->vla-object (car (entsel)))))
    (entmake (list '(0 . "LINE") (cons 10 (setq pt (getpoint "\n请指定直线起始点："))) (cons 11 (list (+ (car pt) len) (cadr pt)))))
    (command "DIVIDE" pause pause "")
    (prin1)
)