曲线线元绘制（LISP）函数

标签：工程测量规范,工程测量技术, 曲线线元绘制（LISP）函数,http://www.gong66.com
        ff (+ f0 (* q vl (+ c (* vl d))))
        xs (+ xs (* ri (cos ff)))
        ys (+ ys (* ri (sin ff)))
        i  (1+ i)
 )
    )
    (setq f  (+ f0 (* q w (+ c (* w d))) (* 0.5 pi))
   xs (+ (nth 1 xyb) (* w xs) (* (last sz) (cos f)))
   ys (+ (nth 2 xyb) (* w ys) (* (last sz) (sin f)))
    )
    (list xs ys f)
)
;========================  sjxmj  =================================================
(defun sjxmj(pt1 pt2 pt3 / x1 y1 x2 y3 x3 y3 mj)
   (setq x1 (car pt1) y1 (cadr pt1)
  x2 (car pt2) y2 (cadr pt2)
  x3 (car pt3) y3 (cadr pt3)
         mj (* 0.5 (+ (* x1 y2) (* x2 y3) (* x3 y1)
        (* -1.0 x1 y3) (* -1.0 x2 y1) (* -1.0 x3 y2)))
   )
  
)

上一页  [1] [2] 

，曲线线元绘制（LISP）函数