[求助]这段插入地形图与删除地形图的代码谁能解释下?
www.dimcax.com
[求助]这段插入地形图与删除地形图的代码谁能解释下?
这段插入地形图与删除地形图的代码谁能解释下?想更改下,不太会lsp
(defun c:maa()
(setq startp (getpoint "select the first point: "))
(setq endp (getpoint "select the end point: "))
(setq sk1 (fix (/ (- (car startp) 80000) 500)))
(setq sk2 (fix (/ (- (cadr startp) 8000) 500)))
(setq ek1 (fix (/ (- (car endp) 80000) 500)))
(setq ek2 (fix (/ (- (cadr endp) 8000) 500)))
(setq k2 sk2)
(while (<= sk1 ek1)
(setq tmp1 (rtos sk1 2 0))
(setq sk1 (1+ sk1))
(setq sk2 k2)
(while (>= sk2 ek2)
(setq tmp2 (rtos sk2 2 0))
(setq th (strcat "f:/1000/0" tmp1 tmp2 ".dwg"))
(setq sk2 (1- sk2))
(if (findfile th)
(command "xref" "a" th "0,0" "" "" "")
)
)
)
)
(defun c:xma()
(setq startp (getpoint "select the first point: "))
(setq endp (getpoint "select the end point: "))
(setq sk1 (fix (/ (- (car startp) 80000) 500)))
(setq sk2 (fix (/ (- (cadr startp) 8000) 500)))
(setq ek1 (fix (/ (- (car endp) 80000) 500)))
(setq ek2 (fix (/ (- (cadr endp) 8000) 500)))
(setq k2 sk2)
(while (<= sk1 ek1)
(setq tmp1 (rtos sk1 2 0))
(setq sk1 (1+ sk1))
(setq sk2 k2)
(while (>= sk2 ek2)
(setq tmp2 (rtos sk2 2 0))
(setq th (strcat "f:/1000/0" tmp1 tmp2 ".dwg"))
(setq sk2 (1- sk2))
(if (findfile th)
(command "xref" "a" th "0,0" "" "" "")
)
)
)
)
d