请教:lisp编程,文本输出

li_abcxyz

各位高贤:我经常处理海图,即水深图,格式是这样的'"123",即表示水深12.3米,水深的整数部分用较大的字体,小数部分用较小的字体在右下,小数部分和整数部分在cad图中是作为两个文本实体的,他们之间的相对位置是固定的,即他们的坐标差值在一副图中是固定的.水深的位置坐标为整数部分文本的坐标.

我想编一个程序实现如下的功能:将选定范围内的水深连同他们的坐标输出到一个文本文件中,输出内容为"x坐标,y坐标,水深值".

请各位高手不吝赐教,不胜感激!

以下是一个水深图的范本:

xyp1964

先发个dwg图。

li_abcxyz

好了,传上去了.

王咣生

"x坐标,y坐标,水深值" 中的X,Y坐标指的是整数部分还是小数部分的坐标?

li_abcxyz

是整数部分的,整个水深的坐标都是以整数部分的坐标为准的.

lazybug

试试这个

;小数与对应整数的坐标差固定为（6.4，-1.0），另假定图面上没有其他text对象
(defun c:aaa (/ ss1 ss2 en1 en2 x1 x2 y1 y2 t1 t2 m n k ff txt)
    (setq ss1 (ssget "x" '((0 . "TEXT") (40 . 4.0))))
    (setq ss2 (ssget "x" '((0 . "TEXT") (40 . 3.0))))
    (setq n 0)
    (setq ff (open "D:\数据记录.txt" "w"));更改为想要保存到的路径及文件名
    (repeat (sslength ss1)
 (setq m 0)
 (setq en1 (ssname ss1 n))
 (setq x1 (cadr (assoc 10 (entget en1))))
 (setq y1 (caddr (assoc 10 (entget en1))))
 (setq t1 (cdr (assoc 1 (entget en1))))
 (setq k 0)
 (repeat (sslength ss2)
     (setq en2 (ssname ss2 k))
     (setq x2 (cadr (assoc 10 (entget en2))))
     (if (< (abs (- (- x2 x1) 6.4)) 0.0001);x方向坐标差改变
  (progn     
      (setq y2 (caddr (assoc 10 (entget en2))))
      (if (< (abs (- (- y1 y2) 1)) 0.0001);y方向坐标差改变
   (progn      
       (setq t2 (cdr (assoc 1 (entget en2))))
       (setq txt (strcat (rtos x1) " " (rtos y1) " " t1 "." t2 "\n"))
       (princ txt ff)
       (setq m 1)
          )
             )

         )
            )      
     (setq k (1+ k))
         )
  (if (= m 0)
  (progn     
      (setq txt (strcat (rtos x1) " " (rtos y1) " " t1 "\n"))
      (princ txt ff)
         )
  ) 
  (setq n (1+ n))
     )
     (prin1)   
)

li_abcxyz

非常感谢lazybug,你编的程序很好用.

li_abcxyz

忘记给你一朵鲜花以示谢意