lisp 平滑 等高线圆滑,CAD制图中的等高线拟合lisp程序

(defun c:ni()

(load"qx")

(command"layer""unlock" "dgx" "")

;(command"zoom" "e")

(c:LWPOLYLINE)

(setq ent (ssget "x" '((8 . "dgx")(0 . "POLYLINE"))))

(if ent (progn

(setq long-ent (sslength ent))

(setq num-ent 0)

(write-line"n　　 ***正在拟合等高线.....")

(repeat long-ent

(setq ty (ssname ent num-ent))

;(Setq ty (car (entsel)))

(c:get-yuanma)

(c:get-listnew)

(c:regen-line)

(setq num-ent (1+ num-ent))

)

(write-line"n　　拟合完毕,请检查大拐弯处是否有点线矛盾！")

);progn

(write-line"n 图形中没有等高线")

);if

(print)

)

(defun c:get-yuanma()

(command"pedit" ty "d" "")

(c:max-min)

(Setq data-dgx (entget ty))