模板分段源程序改善

726613

         图层样板

模板分段数为1时，

新增图层有：UC1,UF1,UM1,  HC1,HF1,HM1,  KC1,KF1,KM1,  SC1,SF1,SM1,  DC1,DF1,DM1, BC1,BF,BM1,

模板分段数为2时，

  新增图层有：UC2,UF2,UM2,  HC2,HF2,HM2,  KC2,KF2,KM2,  SC2,SF2,SM2,  DC2,DF2,DM2, BC2,BF2,BM2,

   模板新增以此类推

  新增的图层与样板文件中的所对应的图层要一致（即：UC1与UC的图层颜色、线型、线宽都要一致）

(defun c:MBFD ()
  (setvar "cmdecho" 0)
  (setq M (getDIST "\n-->请输入模板分段数值:"));

  (command "layer" "n" "UC1" "s" "UC1"   "C" 4 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "UF1" "s" "UF1"   "C" 2 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "UM1" "s" "UM1"   "C" 1 ""  "L" "Continuous" ""  "LW" 0.2 "" "")

  (command "layer" "n" "HC1" "s" "HC1"   "C" 5 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "HF1" "s" "HF1"   "C" 6 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "HM1" "s" "HM1"   "C" 3 ""  "L" "Continuous" ""  "LW" 0.2 "" "")

  (command "layer" "n" "KC1" "s" "KC1"   "C" 1 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "KF1" "s" "KF1"   "C" 2 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "KM1" "s" "KM1"   "C" 7 ""  "L" "Continuous" ""  "LW" 0.2 "" "")

  (command "layer" "n" "SC1" "s" "SC1"   "C" 3 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "SF1" "s" "SF1"   "C" 4 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "SM1" "s" "SM1"   "C" 2 ""  "L" "Continuous" ""  "LW" 0.2 "" "")

  (command "layer" "n" "DC1" "s" "DC1"   "C" 1 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "DF1" "s" "DF1"   "C" 2 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "DM1" "s" "DM1"   "C" 6 ""  "L" "Continuous" ""  "LW" 0.2 "" "")

  (command "layer" "n" "BC1" "s" "BC1"   "C" 4 ""  "L" "Continuous" ""  "LW" 0.5 "" "")
  (command "layer" "n" "BF1" "s" "BF1"   "C" 5 ""  "L" "Continuous" ""  "LW" 0.3 "" "")
  (command "layer" "n" "BM1" "s" "BM1"   "C" 6 ""  "L" "Continuous" ""  "LW" 0.2 "" "")
  (PRINC)
)

    以上程序输入数值1时，程序会自动生成所需图层，但输入数值2时，就无法自动累加。请高手们指导，谢谢

ZZXXQQ

2. (defun c:MBFD ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq M (getint "\n-->请输入模板分段数值: "))
   
5. (if (> M 0) (progn
   
6.   (setq M (itoa M))
   
7.   (command "-layer" "m" (strcat "UC" M) "C" 4 "" "LW" 0.5 "" "")
   
8.   (command "-layer" "m" (strcat "UF" M) "C" 2 "" "LW" 0.3 "" "")
   
9.   (command "-layer" "m" (strcat "UM" M) "C" 1 "" "LW" 0.2 "" "")
   
10. 
    
11.   (command "-layer" "m" (strcat "HC" M) "C" 5 "" "LW" 0.5 "" "")
    
12.   (command "-layer" "m" (strcat "HF" M) "C" 6 "" "LW" 0.3 "" "")
    
13.   (command "-layer" "m" (strcat "HM" M) "C" 3 "" "LW" 0.2 "" "")
    
14. 
    
15.   (command "-layer" "m" (strcat "KC" M) "C" 1 "" "LW" 0.5 "" "")
    
16.   (command "-layer" "m" (strcat "KF" M) "C" 2 "" "LW" 0.3 "" "")
    
17.   (command "-layer" "m" (strcat "KM" M) "C" 7 "" "LW" 0.2 "" "")
    
18. 
    
19.   (command "-layer" "m" (strcat "SC" M) "C" 3 "" "LW" 0.5 "" "")
    
20.   (command "-layer" "m" (strcat "SF" M) "C" 4 "" "LW" 0.3 "" "")
    
21.   (command "-layer" "m" (strcat "SM" M) "C" 2 "" "LW" 0.2 "" "")
    
22. 
    
23.   (command "-layer" "m" (strcat "DC" M) "C" 1 "" "LW" 0.5 "" "")
    
24.   (command "-layer" "m" (strcat "DF" M) "C" 2 "" "LW" 0.3 "" "")
    
25.   (command "-layer" "m" (strcat "DM" M) "C" 6 "" "LW" 0.2 "" "")
    
26. 
    
27.   (command "-layer" "m" (strcat "BC" M) "C" 4 "" "LW" 0.5 "" "")
    
28.   (command "-layer" "m" (strcat "BF" M) "C" 5 "" "LW" 0.3 "" "")
    
29.   (command "-layer" "m" (strcat "BM" M) "C" 6 "" "LW" 0.2 "" "")
    
30. ))
    
31.   (setvar "CMDECHO" 1)
    
32.   (princ)
    
33. )
    

(defun c:MBFD ()<br /> (setvar "CMDECHO" 0)<br /> (setq M (getint "\n-->请输入模板分段数值: "))<br /> (if (> M 0) (progn<br />   (setq M (itoa M))<br />   (command "-layer" "m" (strcat "UC" M) "C" 4 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "UF" M) "C" 2 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "UM" M) "C" 1 "" "LW" 0.2 "" "")<br /> <br />   (command "-layer" "m" (strcat "HC" M) "C" 5 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "HF" M) "C" 6 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "HM" M) "C" 3 "" "LW" 0.2 "" "")<br /> <br />   (command "-layer" "m" (strcat "KC" M) "C" 1 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "KF" M) "C" 2 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "KM" M) "C" 7 "" "LW" 0.2 "" "")<br /> <br />   (command "-layer" "m" (strcat "SC" M) "C" 3 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "SF" M) "C" 4 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "SM" M) "C" 2 "" "LW" 0.2 "" "")<br /> <br />   (command "-layer" "m" (strcat "DC" M) "C" 1 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "DF" M) "C" 2 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "DM" M) "C" 6 "" "LW" 0.2 "" "")<br /> <br />   (command "-layer" "m" (strcat "BC" M) "C" 4 "" "LW" 0.5 "" "")<br />   (command "-layer" "m" (strcat "BF" M) "C" 5 "" "LW" 0.3 "" "")<br />   (command "-layer" "m" (strcat "BM" M) "C" 6 "" "LW" 0.2 "" "")<br /> ))<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

USER2128

2. (defun c:MBFD ()
   
3.   (setvar "cmdecho" 0)
   
4.   (initget 6)
   
5.   (or (setq M (getint "\n-->请输入模板分段数值/<1>:"));
   
6.       (setq M 1)
   
7.       )
   
8.   (setq ly '(UC  UF  UM   HC  HF HM   KC KF   KM  SC SF  SM  DC  DF  DM   BC  BF BM))
   
9.   (setq cl '(7   4   1    7   4   1   7   4   1   7   4   1   7   4   1   7   4   1))
   
10.   (setq lw '(0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2))
    
11.   (setq ly (mapcar 'vl-princ-to-string ly))
    
12.   (setq n 1)
    
13.   (while (<= n m)
    
14.     (mapcar '(lambda(x y z)
    
15.       (setq str (strcat x (itoa n)))
    
16.       (if (not (tblsearch "Layer" str))
    
17.   (command "_.layer" "_n" str "_s" str "_C" y ""  "_L" "Continuous" ""  "_LW" z "" "")
    
18.   )
    
19.       ) ly cl lw)
    
20.     (setq n (1+ n))
    
21.     )
    
22.   (princ)
    
23.   )
    

(defun c:MBFD ()<br />   (setvar "cmdecho" 0)<br />   (initget 6)<br />   (or (setq M (getint "\n-->请输入模板分段数值/<1>:"));<br />       (setq M 1)<br />       )<br />   (setq ly '(UC  UF  UM   HC  HF HM   KC KF   KM  SC SF  SM  DC  DF  DM   BC  BF BM))<br />   (setq cl '(7   4   1    7   4   1   7   4   1   7   4   1   7   4   1   7   4   1))<br />   (setq lw '(0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2 0.5 0.3 0.2))<br />   (setq ly (mapcar 'vl-princ-to-string ly))<br />   (setq n 1)<br />   (while (<= n m)<br />     (mapcar '(lambda(x y z)<br />       (setq str (strcat x (itoa n)))<br />       (if (not (tblsearch "Layer" str))<br />   (command "_.layer" "_n" str "_s" str "_C" y ""  "_L" "Continuous" ""  "_LW" z "" "")<br />   )<br />       ) ly cl lw)<br />     (setq n (1+ n))<br />     )<br />   (princ)<br />   )<br />

726613

USER2128 发表于 2014-11-27 08:25

谢谢您的帮忙修改

726613

ZZXXQQ 发表于 2014-11-27 08:13

谢谢您的帮忙