lisp填挖横断面提取_如何在别人提供的cad横断面设计图中提取横断面地面线数据...

(defun c:test()

(setq desktop (strcat (lt:sys-deskTopDir) "\\坐标导出.txt"))

(setq ff (open desktop "w"))

(setq b (getreal "\n请输入纵向比例尺.<200>:"))

(setq c (getreal "\n请输入横向比例尺.<200>:"))

(if (not b) (setq b 0.2) (setq b (/ b 1000)))

(if (not c) (setq c 0.2) (setq c (/ c 1000)))

(while

(SETQ ENT1 (ENTSEL "\n选择桩号 :"))

(IF (= ENT1 NIL)(PRINC "\n无效选择")

(PROGN

(SETQ ENT1 (ENTGET (CAR ENT1)))

(IF (/= (CDR (ASSOC 0 ENT1)) "TEXT")

(PRINC "\n选择对象非文本对象")

(PROGN

(setq ZZHH (cdr (assoc 1 ent1)))

)

)

)

)

(princ "选择基准位置：")

(setq point (getpoint) pty (cadr point))

(SETQ ENT (ENTSEL "\n选择基准位置参照高程对象 :"))

(IF (= ENT NIL)(PRINC "\n无效选择")

(PROGN