[LISP函数]：请教高手

temphome

在同一张图中用LISP程序实现批量修改相同块命的属性？
注：块用ATTDEF做的（定义了属性），在图中多次插入。
请问能否实现，请提供相应的LISP程序
谢谢

cy956

我原来在xd的网友自制中发布过的super－edit，因为增加了一些
新的符号，新版本也已改好，可以批量改text，mtext，dim，attdef，
INSERT-ATTRIB等，朋友们在试用，尽快我会发布。

(dos_msgbox  (strcat
             "    欢迎使用文字统一编辑程序 GG / Version 1.10                  "
             "\n"
             "\n       程序编写: 陈勇 cy956@21cn.com"
             "\n       字体编写: 陈东 cdongzj@21cn.com       改写: 陈勇 "
             "\n"
             "\n     本程序即原来在xdcad网友自制处发布的Super-edit 1.00的"
             "\n 改进版，它以选择集第一个图元为过滤, 统一修改带字串的实体"
             "\n TEXT, DIM 及MTEXT, ATTDEF, INSERT-ATTRIB等."
             "\n     用此程序, 请使用陈东所做的字体Romans.shx及Romanc.shx"
             "\n 此字体经陈勇改写，增加了一些符号。 注意，pkpm的txt.shx的"
             "\n 码位与大多数cad软件的不同，一级钢二级钢处会出错。"
             "\n "
             "\n     希望得到您的宝贵意见!") "程序信息"
        1 1)
  (dos_msgbox  (strcat
         "\n±            %%p    罗马1 %%131  上标上        %%141  扁钢    %%191"
         "\n度            %%d    罗马2 %%132  上标归位%%142  工字钢  %%192"
         "\n平方米  %%164  罗马4 %%134  下标下        %%143  角钢    %%193"
         "\n或m%%1412%%142 罗马5 %%135  下标归位%%144  槽钢    %%194"
         "\n一级钢  %%129  罗马6 %%136  上下标上%%145  方钢    %%195"
         "\n二级钢  %%130  罗马7 %%137  上下标下%%146  卷边角钢%%196"
         "\n三级钢  %%160  罗马8 %%138  上下归位%%144  卷边槽钢%%197"
         "\n千分号  %%151  罗马9 %%139  约等于        %%173  Z型钢   %%198"
         "\n一位轴  %%147  罗马10%%140  小于等于%%174  左箭号  %%241"
         "\n一位圈  %%148  句号。%%152  大于等于%%175  右箭号  %%242"
         "\n二位轴  %%149  顿号、%%153  不小于        %%186  上箭号  %%243"
         "\n二位圈  %%150  上引号%%154  不大于        %%187  下箭号  %%244"
         "\n1/4     %%188  人民币%%165  乘号×        %%178  方形空  %%201"
         "\n1/2     %%189  打钩  %%168  除号÷        %%179  方形填  %%202"
         "\n打叉    %%169  不等于%%180  ∑      %%156  三角号  %%203"
         "\n《      %%171  》    %%172  希腊字母%%209~238"
        ) "代码列表"1 1)

temphome

谢谢cy956回复

LUCAS

;;;先用着这个,再等等吧!!!

2. 
   
3. (defun C:A_EDIT        (/ A N)
   
4.   (prompt "\n选带属性之图块: ")
   
5.   (setq A (ssget '((0 . "INSERT") (66 . 1))))
   
6.   (setq N 0)
   
7.   (repeat (sslength A)
   
8.     (redraw (ssname A N) 3)
   
9.     (command "_.DDATTE"
   
10.              (list (ssname A N) '(0 0 0))
    
11.     )
    
12.     (redraw (ssname A N) 4)
    
13.     (setq N (1+ N))
    
14.   )
    
15.   (princ)
    
16. )
    

<br /> (defun C:A_EDIT        (/ A N)<br />   (prompt "\n选带属性之图块: ")<br />   (setq A (ssget '((0 . "INSERT") (66 . 1))))<br />   (setq N 0)<br />   (repeat (sslength A)<br />     (redraw (ssname A N) 3)<br />     (command "_.DDATTE"<br />              (list (ssname A N) '(0 0 0))<br />     )<br />     (redraw (ssname A N) 4)<br />     (setq N (1+ N))<br />   )<br />   (princ)<br /> )<br />

lfc9861

能不能整段具体一点程序都提供啊