[求助]：求几个程序，望帮助

HiP

本人有需以下功能的程序，望大侠们帮助

1.批量写块，
比方说我把10个dwg放在一个目录里，该程序可以把10个文件都写块(wblock)，然后自动替换保存原名，类似之前XYP大侠的文件减肥(wjjf)程序原理

2.在CAD中查找某文字内容文字的位置并跳至

3.根据样式查找文字的位置

4.块的偏移，主要是针对斜角度时的平行偏移  

5.弧形文字标注

6.量弧的长度以及多段连续直线的总长度

xyp1964

2. [FONT=courier new];;2.在CAD中查找某文字内容文字的位置并跳至
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        STR (USTR 1 "\n输入要查找的文字内容" STR NIL)
   
6.         ss  (ssget "X" (list (cons 0 "TEXT") (cons 1 str)))
   
7.         i   -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (setq pt1 (xyp-get-MinMaxPoint s1 1)
    
11.           pt9 (xyp-get-MinMaxPoint s1 9)
    
12.     )
    
13.     (command "zoom" "w" pt1 pt9)
    
14.   )
    
15.   (CMDLA1)
    
16. )[/FONT]

[FONT=courier new];;2.在CAD中查找某文字内容文字的位置并跳至<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        STR (USTR 1 "\n输入要查找的文字内容" STR NIL)<br />         ss  (ssget "X" (list (cons 0 "TEXT") (cons 1 str)))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (xyp-get-MinMaxPoint s1 1)<br />           pt9 (xyp-get-MinMaxPoint s1 9)<br />     )<br />     (command "zoom" "w" pt1 pt9)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

HiP

首先谢谢斑竹！

不过出现以下情况

输入要查找的文字内容<A>:火
; 错误: 参数类型错误: lselsetp nil


块的偏移有办法吗？类似矩阵原理应该可以做

还有量度连续转弯直线长度，量度弧线长度