生成带凸度多段线

13648893846

;;[功能]生成带凸度多段线
;;[用法](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)
)