Question

Visual lisp程序，哪位高手能帮我该一下，这个程序改成提取闭合区域内的高程点。

;-------------------------------------------------------------------------------------------
;提取cass中的高程点->Dat文件
(defun c:tqgc(/ p1 p2 ss sn si i x y e fw) ;定义命令，设置参数
(setq sn 0) ;sn=0
(setq p1(getpoint "\n拾取选择框的一个角点:")) ;选择一个角点
(if p1 ;如果p1成立
(setq p2(getcorner p1 "\n选择对角点:")) ;选择另一个角点
)
(if p2 ;如果p2成立
(setq ss(ssget "c" p1 p2 (list(cons 8 "GCD")(cons 2 "GC200")))) ;
)

(if ss(progn
(setq fw(open "d:\\ex.dat" "w"))
(setq sn(sslength ss))
(setq i 0)
(while(< i sn)
(setq si(ssname ss i))
(setq pt(cdr(assoc 10 (entget si))))
(setq x(rtos(car pt)2 3) y(rtos(cadr pt)2 3) e(rtos(caddr pt)2 3))
(princ(strcat (itoa (1+ i))",GCD," x "," y "," e "\n") fw)
(setq i(1+ i))
)
(close fw)
(alert "OK")
))
(princ)
)
;-------------------------------------------------------------------------------------

Answer 1

有问题，提出来

追问

很感谢，可以用 大神能不能再帮我改一下 把提取的高程点文件 可以自己选择不是提取到"d:\\ex.dat"。。。

Answer 2

大国化工i黑高哦i活化刚