生成带凸度多段线
;;[功能]生成带凸度多段线;;[用法](LC:make-arcpline (getpoint "\n 请输入圆弧第一点：") (getpoint "\n 请输入圆弧第二点：") (getreal "\n 请输入圆弧凸度："))
;;[作者]BY 老仓测绘上班记
;;;(setq pt1 (getpoint "\n 请输入圆弧第一点：")
;;; pt2 (getpoint "\n 请输入圆弧第二点：")
;;; arcBulge -0.426309)
(defun LC:make-arcpline (pt1 pt2 arcBulge / pt1 pt2 arcBulge arclst)
(setq arclst (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "AXIS") '(62 . 6) '(100 . "AcDbPolyline") '(90 . 2) (cons 10 pt1)
(cons 42 arcBulge) (cons 10 pt2)))
(entmake arclst)
)
页:
[1]