cad lisp地形拼合_CAD拼图程序lisp程序

CAD

拼图程序

lisp

程序

(defun c: pintu (s1 s2 (pt1 pt2 in na.)

(setvar "blipmode")

(setvar "cmdecho")

(get _ rowandcolumn)

(setq p1 (getpoint "n

输入起始点

")

(setq p0, p1).

(setq pa0 (0 to 10)

(setq pai (list (as pa0) - (framework pa0) (2000)

(setq pa2 (list + (pa1) (2000) (framework pa1)

(setq pa3 (list (pa2) - (framework pa2) (2000)

(setq pa4 (list + (pa3) (pa3) framework)

(setq p0, p1).

(setq v1 (getvar "osmode)

(setvar "osmode")

(command "zoom", "r")

(setq numa2)

(setq numa3)

(setq (0)

"(m),

列清零

(setq j ().

"(j),

(setq s1 (ssget "w" p1 (list + (p1) 1190) + (connection p1) 845)

(the s1.

(command "copy" s1 "," p1 "(0)