谁有图纸目录自动生成的插件呀？

xiaomm250

比如图框的图名在特定的图层（假设图层名为“图名”），
图框摆放的顺序是从上往下，
同时有的图名的文字内容在多行。

在上面的三个条件下，如何得到图纸目录自动生成的插件呢？
请高手指点。。。

libo2000

1. (defun test ()
   
2.         (vl-load-com)
   
3.         (setq ss (ssget "x" (list '(8 . "图名"))))
   
4.         (setq i 0 lst '())
   
5.         (while (setq et (ssname ss i))
   
6.                 (setq p1 (cdr (assoc 10 (entget et))))
   
7.                 (setq p1 (cadr p1))
   
8.                 (setq p1 (rtos p1))
   
9.                 (setq lst (append lst (list (strcat p1 ":::" (rtos i)))))
   
10.                 (setq i (1+ i))
    
11.         )
    
12.         (setq lst (vl-sort lst '>) ss2 (ssadd))
    
13.         (foreach p1 lst
    
14.                 (setq i (vl-string-search ":::" p1))
    
15.                 (setq i (substr p1 (+ i 4)))
    
16.                 (setq i (atoi i))
    
17.                 (ssadd (ssname ss i) ss2)
    
18.         );end foreach
    
19.         ss2
    
20. )
    

(defun test ()<br />         (vl-load-com)<br />         (setq ss (ssget "x" (list '(8 . "图名"))))<br />         (setq i 0 lst '())<br />         (while (setq et (ssname ss i))<br />                 (setq p1 (cdr (assoc 10 (entget et))))<br />                 (setq p1 (cadr p1))<br />                 (setq p1 (rtos p1))<br />                 (setq lst (append lst (list (strcat p1 ":::" (rtos i)))))<br />                 (setq i (1+ i))<br />         )<br />         (setq lst (vl-sort lst '>) ss2 (ssadd))<br />         (foreach p1 lst<br />                 (setq i (vl-string-search ":::" p1))<br />                 (setq i (substr p1 (+ i 4)))<br />                 (setq i (atoi i))<br />                 (ssadd (ssname ss i) ss2)<br />         );end foreach<br />         ss2<br /> )<br />

选择集ss2就是图纸目录所需要的安装Y坐标（从上到下）已经排列好了的文本图元，可自行处理

xiaomm250

libo2000 发表于 2012-8-21 11:16
选择集ss2就是图纸目录所需要的安装Y坐标（从上到下）已经排列好了的文本图元，可自行处理

能把程序简单的注释一下吗？
对了，这个程序能处理图名文字内容在多行的情况吗？

xiaomm250

libo2000 发表于 2012-8-21 11:16
选择集ss2就是图纸目录所需要的安装Y坐标（从上到下）已经排列好了的文本图元，可自行处理

这个函数似乎AutoCAD加载利用不了呀

libo2000

xiaomm250 发表于 2012-8-21 11:20
能把程序简单的注释一下吗？
对了，这个程序能处理图名文字内容在多行的情况吗？

只是对图名进行了排序，(cdr (assoc 1 (entget (ssname ss 0))))函数随便获取文本的内容啊？多行文字需要过滤掉部分特殊字符。

xiaomm250

xiaomm250 发表于 2012-8-21 11:26
这个函数似乎AutoCAD加载利用不了呀

还是加载不了呀

xiaomm250

网盘ljttjl.ys168.com  2009-2试用程序及演示  20090831自动创建图纸目录程序演示
这儿有个，但是似乎不是免费的1

xiaomm250

xiaomm250 发表于 2012-8-21 11:44
还是加载不了呀

你能写个比较彻底的图纸目录程序吗？

xiaomm250

xiaomm250 发表于 2012-8-21 11:44
还是加载不了呀

我还是加载不了，即使加了一句：
        (vl-load-com)
我是在函数内部的第一行加的，但是没用

lidaxiu

图框做成属性块多好，图名提取就方便多了