请高手编一段LISP代码

fhcd88

恳求哪位高手帮小弟编写一段L ISP代码（CAD2004），需实现功能如下：
第一步：将当前选定对象之外的所有元素显示顺序改为后置；
第二步：将名为“线段1”的图层内所有多线段的全局宽度设置为1.0,颜色设置为红色；
第三步：将名为“圆圈1”的图层内所有圆改为直径2.5；
第四步：将名为“块参照1”的图层内所有名为“块1”的块参照改为X、Y、Z比例均为0.5，颜色设置为黄色；
第五步：将名为“注记1”的图层内所有文字的高度设置为10，颜色设置为红色；
谢谢，不胜感激！！！！！！

夏生生

2. 
   
3. (defun x_ssn (ss / n lst)
   
4.   (repeat (setq N (sslength ss))
   
5.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
   
6.   )
   
7. )
   
8. (defun ch_dxf (en num ch / old_num new_num ent)
   
9.   (if (setq ent            (entget en)
   
10.             new_num (cons num ch)
    
11.             old_num (assoc num ent)
    
12.       )
    
13.     (entmod (subst new_num old_num ent))
    
14.     (entmod (reverse (cons new_num (reverse ent))))
    
15.   )
    
16. )
    
17. (defun c:ttt (/ ss ss1 n blk)
    
18.   (setvar "cmdecho" 0)
    
19.   (setq ss (ssget "x"))
    
20.   (setq ss1 (ssget))
    
21.   (command "select" ss "r" ss1 "")
    
22.   (command "DRAWORDER" "p" "" "b")
    
23.   (setq ss (ssget "x" '((0 . "LWPOLYLINE") (8 . "线段1"))))
    
24.   (foreach n (x_ssn ss)
    
25.     (command "pedit" n "w" 1 "")
    
26.     (ch_dxf n 62 1)
    
27.   )
    
28.   (setq ss (ssget "x" '((0 . "circle") (8 . "圆圈1"))))
    
29.   (foreach n (x_ssn ss) (ch_dxf n 40 1.25))
    
30.   (setq ss (ssget "x" '((0 . "INSERT") (8 . "块参照1") (2 . "块1"))))
    
31.   (foreach n (x_ssn ss)
    
32.     (ch_dxf n 41 0.5)
    
33.     (ch_dxf n 42 0.5)
    
34.     (ch_dxf n 43 0.5)
    
35.   )
    
36.   (setq blk (tblobjname "block" "块1"))
    
37.   (while (setq blk (entnext blk))
    
38.     (ch_dxf blk 62 2)
    
39.   )
    
40.   (foreach n (x_ssn ss) (entupd n))
    
41.   (setq ss (ssget "x" '((0 . "text") (8 . "注记1"))))
    
42.   (foreach n (x_ssn ss) (ch_dxf n 62 1) (ch_dxf n 40 10))
    
43. (princ)
    
44. )
    
45. 
    
46. 
    
47. 
    

<br /> (defun x_ssn (ss / n lst)<br />   (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   )<br /> )<br /> (defun ch_dxf (en num ch / old_num new_num ent)<br />   (if (setq ent            (entget en)<br />             new_num (cons num ch)<br />             old_num (assoc num ent)<br />       )<br />     (entmod (subst new_num old_num ent))<br />     (entmod (reverse (cons new_num (reverse ent))))<br />   )<br /> )<br /> (defun c:ttt (/ ss ss1 n blk)<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget "x"))<br />   (setq ss1 (ssget))<br />   (command "select" ss "r" ss1 "")<br />   (command "DRAWORDER" "p" "" "b")<br />   (setq ss (ssget "x" '((0 . "LWPOLYLINE") (8 . "线段1"))))<br />   (foreach n (x_ssn ss)<br />     (command "pedit" n "w" 1 "")<br />     (ch_dxf n 62 1)<br />   )<br />   (setq ss (ssget "x" '((0 . "circle") (8 . "圆圈1"))))<br />   (foreach n (x_ssn ss) (ch_dxf n 40 1.25))<br />   (setq ss (ssget "x" '((0 . "INSERT") (8 . "块参照1") (2 . "块1"))))<br />   (foreach n (x_ssn ss)<br />     (ch_dxf n 41 0.5)<br />     (ch_dxf n 42 0.5)<br />     (ch_dxf n 43 0.5)<br />   )<br />   (setq blk (tblobjname "block" "块1"))<br />   (while (setq blk (entnext blk))<br />     (ch_dxf blk 62 2)<br />   )<br />   (foreach n (x_ssn ss) (entupd n))<br />   (setq ss (ssget "x" '((0 . "text") (8 . "注记1"))))<br />   (foreach n (x_ssn ss) (ch_dxf n 62 1) (ch_dxf n 40 10))<br /> (princ)<br /> )<br /> <br /> <br /> <br />

夏生生

第二三五步中的图元有无在块内的？

叮咚

只会伸手，是不行的。、
看看组码， 还有chprop 这个命令
ssget函数

fhcd88

谢谢夏生生的回复，等会我试试，再和您交流，非常感谢