[求助]：编制这么一种程序

raobinhsh

一个文件中有很多填充,每个填充类型和比例都不一样,要求用一个命令,能群选这些填充之后,自动产生很多图层,将不同类型\比例\颜色的填充放在不同的图层,图层名就是"填充_类型_比例"

yangist

不明其意~~

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持
   
3. (defun c:tt (/ i ss s1 pt)
   
4.   (CMDLA0)
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget '((0 . "hatch"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq bn (xyp-DXF 2 s1)
   
9.             la (if (setq sc (xyp-DXF 41 s1))
   
10.                  (strcat "填充_" bn "_" (itoa (fix sc)))
    
11.                  (strcat "填充_" bn)
    
12.                )
    
13.       )
    
14.       (xyp-MkLa la)
    
15.       (xyp-SubUpd s1 8 la)
    
16.     )
    
17.   )
    
18.   (CMDLA1)
    
19. )

;; 需要e派工具箱(XCAD)的支持<br /> (defun c:tt (/ i ss s1 pt)<br />   (CMDLA0)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "hatch"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq bn (xyp-DXF 2 s1)<br />             la (if (setq sc (xyp-DXF 41 s1))<br />                  (strcat "填充_" bn "_" (itoa (fix sc)))<br />                  (strcat "填充_" bn)<br />                )<br />       )<br />       (xyp-MkLa la)<br />       (xyp-SubUpd s1 8 la)<br />     )<br />   )<br />   (CMDLA1)<br /> )

金鹅起飞

xyp1964
你真厉害，可以编程，向您学习！