请问各位大师这一句不用command怎么写？

zkq1212

请问各位大师这一句不用command怎么写？
(command "chprop" ss2 " " "C" "BYLAYER" "LT" "BYLAYER" "LA" "06-双点化线层" "")


请个位大师指教一下？
谢谢了

自贡黄明儒

这样写很好，其它写法太麻烦，能用就行了。

maiko

chprop处理选择集很快.比别的方法要快

wzg356

2. (setq a -1)
   
3. (while (setq name (ssname ss2 (setq a (1+ a))))
   
4.       (xd-modent (entget name) '((62 . 1) (8 . "标注") (6 . "06-双点化线层")));颜色、图层，线型
   
5. )
   
6. ;函数：xd-modent
   
7. ;功能：同时修改多个属性的Entmod
   
8. ;函数代码：
   
9. (defun xd-modent (el tylst / c)
   
10.   (foreach n tylst
    
11.     (if (setq c (assoc (car n) el))
    
12.       (setq el (subst n c el))
    
13.       (setq el (append el (list n)))
    
14.     )
    
15.   )
    
16.   (entmod el)
    
17. )
    
18. ;语法：(xd-modent el tylst)
    
19. ;参数：el 实体dxf 表,tylst 新的值
    
20. ;示例：(xd-modent el '((8 . "1") (62 . 1)))

(setq a -1)<br /> (while (setq name (ssname ss2 (setq a (1+ a))))<br />       (xd-modent (entget name) '((62 . 1) (8 . "标注") (6 . "06-双点化线层")));颜色、图层，线型<br /> ) <br /> ;函数：xd-modent <br /> ;功能：同时修改多个属性的Entmod <br /> ;函数代码：<br /> (defun xd-modent (el tylst / c)<br />   (foreach n tylst<br />     (if (setq c (assoc (car n) el))<br />       (setq el (subst n c el))<br />       (setq el (append el (list n)))<br />     )<br />   )<br />   (entmod el)<br /> )<br /> ;语法：(xd-modent el tylst) <br /> ;参数：el 实体dxf 表,tylst 新的值<br /> ;示例：(xd-modent el '((8 . "1") (62 . 1)))

zkq1212

wzg356 发表于 2014-10-17 20:11

谢谢，多谢指点