关于LISP选择集排序的求教！

jsnjwang

我有个LISP程序，请各位帮我看看

(defun c:writepolygon()
  (setvar "cmdecho" 0)
  (setq s (ssget '((0 . "text"))))
  (if (/= nil s)
    (progn
      (setq fname (getfiled "输出文件" "" "" 1))
      (if (/= nil fname)
 (progn
 (setq fp (open fname "w")
       sl (sslength s)
       i 0)
 (command "-boundary" "_a" "_o" "_p" "" "")
 (repeat sl
   (setq ename (ssname s i))
   (setq zb (car (fvertex ename)))
   (setq text (cdr (assoc 1 (entget ename))))
   (command "zoom" "_c" zb 3000)
   (command "-boundary" zb "")
   (setq lename (entlast))
   (setq zbb (fvertex lename))
   (write-line text fp)
   (setq ii 0)
   (repeat (length zbb)
     (setq nzb (nth ii zbb))
     (setq line (strcat (itoa ii) "," (rtos (nth 0 nzb) 2 3) "," (rtos (nth 1 nzb) 2 3)))
     (write-line line fp)
     (setq ii (+ ii 1))
     )
   (entdel lename)
   (setq i (+ i 1))
   )
 )
 )
      (close fp)
      (princ "\n******ok*******")
      )
    )
  (princ)
  )

实现的功能是在CAD图中框选文字，然后得到文字所在封闭多段线的坐标，但是每次输出的顺序不是按文字大小排序的，现在希望能够按大小顺序输出到文本文件里头，哪位大侠能帮帮忙啊！

ZZXXQQ

将(setq s (ssget '((0 . "text"))))改成(setq s "X" (ssget '((0 . "text"))))即可。

jsnjwang

不行啊.提示    错误: 语法错误

关键是排序,要能够对选择集的表排序,要根据多义线里的文本的大小排序.

xyp1964

2. (setq s (ssget "X" '((0 . "TEXT"))))

(setq s (ssget "X" '((0 . "TEXT"))))

北斗七星

这样只是将文字选出来了，并不能按大小进行排序，还要加些程序才行

狂刀无痕

文字的大小？

jsnjwang

我自己已经用VBA实现了,但还是要谢谢大家.