2013-05-25 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

黑叶子

Zero_to begin(270665691)于2013-05-25 13-51-26：
签到

CCarch

我是谁(421418741)于2013-05-25 14-03-31：
有什么可以提取块的边界？

炫翔

炫翔(2363673534)于2013-05-25 14-04-09：
论坛有

炫翔

炫翔(2363673534)于2013-05-25 14-04-19：
晓东的帖子

CCarch

我是谁(421418741)于2013-05-25 14-06-35：
口误~有什么可以提取块的轮廓~[face13.gif]

炫翔

炫翔(2363673534)于2013-05-25 14-37-58：
[qqimg]{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-25 14-38-20：
这个不难，大家可以去试试

CCarch

蓝蜻蜓(3282201)于2013-05-25 15-54-52：
签到

sunjie729

妙手公子(47826508)于2013-05-25 15-55-47：
签到

sunjie729

妙手公子(47826508)于2013-05-25 15-56-18：
[qqimg]{062E9134-AF36-1912-945F-4EB377701A9A}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-25 16-16-23：
[qqimg]{CCCEC1FD-8F2E-00E8-283F-B5FB2D6CC7BB}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-25 16-18-19：
思路:
选中文字
获取文字的坐标表
对其进行排序
遍历表，对每一个坐标写入数字

炫翔

炫翔(2363673534)于2013-05-25 16-19-18：
伪源码:
[qqimg]{273CA364-C1E4-673D-DD7B-BD8ACB58F655}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-05-25 16-19-21：
;替换表格中文本，从上到下，左到右?
(defun c:xx ( / i lst n s1 ss)
  (setq ss (ssget '((0 . "TEXT")))
        i -1
        N 1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq lst (CONS(xx-en-get-dxf 10 s1)lst))
  )
  (XX-E ss)
  (SETQ LST(xx-sort-lst LST "ba" 0));表（坐标）中排序
  (foreach X LST
   (xx-mk-text X 15 0 (ITOA N))
   (SETQ N(1+ N))
  )
)

炫翔

炫翔(2363673534)于2013-05-25 16-22-30：
[qqimg]{F414D51C-1845-5402-32A9-B51E52231ABB}.gif[/qqimg]这样的效果，胜过发布源码