[下载]：microstationV8.0转换CAD时的解决办法！

petertian

microstationV8.0转换CAD时，线宽不能转换过去，本人写了一段代码，在14下可以变换，共享。望大家提出批评意见！代码如下：

2. [php]
   
3. ////////////////////////////////////
   
4. (defun ch1()
   
5.    (setq ss (ssget "x" (list (cons 0 "LWPOLYLINE"))))
   
6.    (if ss
   
7.       (progn
   
8.          (princ "\nPlease wait...")
   
9.          (setq n 0 m (sslength ss))
   
10.          
    
11.          (while (< n m)
    
12.             (setq entname (ssname ss n))
    
13.             (setq enttbl (entget entname))
    
14.             (princ "\n")
    
15.             (setq w1 (cdr(assoc 40 enttbl)))
    
16.             (setq w2 (cdr (assoc 41 enttbl)))
    
17.             (setq lw (cdr (assoc 370 enttbl)))
    
18.             (if (not (= lw -3.0))
    
19.                (progn
    
20.                 (setq w1 (/ lw 100.000))
    
21.                 (setq w2 (/ lw 100.000))
    
22.                 (setq lw -3)
    
23.                 (setq enttbl (subst (cons 370 lw) (assoc 370 enttbl ) enttbl ))                              
    
24.                 ;(setq enttbl (subst (cons 40 w1) (assoc 40 enttbl ) enttbl ))
    
25.                 ;(setq enttbl (subst (cons 41 w2) (assoc 41 enttbl ) enttbl ))
    
26.                 (princ "\n")
    
27.                 (entmod enttbl)
    
28.                 (entupd entname)
    
29.                 (command "pedit" entname "w" w1 "")
    
30.                )
    
31.              )
    
32.             (setq n (+ 1 n))
    
33.          )
    
34.       )      
    
35.    )
    
36. )
    
37. (defun ch2()
    
38.    (setq ss (ssget "x" (list (cons 0 "LINE"))))
    
39.    (if ss
    
40.       (progn
    
41.          (princ "\nPlease wait...")
    
42.          (setq n 0 m (sslength ss))
    
43.          
    
44.          (while (< n m)
    
45.             (setq entname (ssname ss n))
    
46.             (setq enttbl (entget entname))
    
47.             (princ "\n")
    
48.             (setq w1 (cdr(assoc 40 enttbl)))
    
49.             (setq w2 (cdr (assoc 41 enttbl)))
    
50.             (setq lw (cdr (assoc 370 enttbl)))
    
51.             (if (not (= lw -3.0))
    
52.                (progn
    
53.                 (setq w1 (/ lw 100.000))
    
54.                 (setq w2 (/ lw 100.000))
    
55.                 (setq lw -3)
    
56.                 (setq enttbl (subst (cons 370 lw) (assoc 370 enttbl ) enttbl ))
    
57.                 (princ "\n")
    
58.                 (entmod enttbl)
    
59.                 (entupd entname)                             
    
60.                 (command "pedit" entname "y" "w" w1 "")
    
61.                )
    
62.              )
    
63.             (setq n (+ 1 n))
    
64.          )
    
65.       )      
    
66.    )
    
67.    (princ)  
    
68. )
    
69. (defun c:ch()
    
70.    (ch1)
    
71.    (ch2)
    
72.    (princ "ch:")
    
73.    (prompt "本程序用lineweight属性项和width属性项值的改变!")
    
74.    (prompt "数据处理完后请检查数据如有问题，请与研发中心联系!029--87862695")
    
75.    (prompt "－－－田江博2003.12.10")
    
76.    (princ)  
    
77. )
    
78. 
    
79. ////////////////////////////////////[/php]

[php]<br /> ////////////////////////////////////<br /> (defun ch1()<br />    (setq ss (ssget "x" (list (cons 0 "LWPOLYLINE"))))<br />    (if ss<br />       (progn<br />          (princ "\nPlease wait...")<br />          (setq n 0 m (sslength ss))<br />          <br />          (while (< n m)<br />             (setq entname (ssname ss n))<br />             (setq enttbl (entget entname))<br />             (princ "\n")<br />             (setq w1 (cdr(assoc 40 enttbl)))<br />             (setq w2 (cdr (assoc 41 enttbl)))<br />             (setq lw (cdr (assoc 370 enttbl)))<br />             (if (not (= lw -3.0))<br />                (progn<br />                 (setq w1 (/ lw 100.000))<br />                 (setq w2 (/ lw 100.000))<br />                 (setq lw -3)<br />                 (setq enttbl (subst (cons 370 lw) (assoc 370 enttbl ) enttbl ))                              <br />                 ;(setq enttbl (subst (cons 40 w1) (assoc 40 enttbl ) enttbl ))<br />                 ;(setq enttbl (subst (cons 41 w2) (assoc 41 enttbl ) enttbl ))<br />                 (princ "\n")<br />                 (entmod enttbl)<br />                 (entupd entname)<br />                 (command "pedit" entname "w" w1 "")<br />                )<br />              )<br />             (setq n (+ 1 n))<br />          )<br />       )       <br />    )<br /> )<br /> (defun ch2()<br />    (setq ss (ssget "x" (list (cons 0 "LINE"))))<br />    (if ss<br />       (progn<br />          (princ "\nPlease wait...")<br />          (setq n 0 m (sslength ss))<br />          <br />          (while (< n m)<br />             (setq entname (ssname ss n))<br />             (setq enttbl (entget entname))<br />             (princ "\n")<br />             (setq w1 (cdr(assoc 40 enttbl)))<br />             (setq w2 (cdr (assoc 41 enttbl)))<br />             (setq lw (cdr (assoc 370 enttbl)))<br />             (if (not (= lw -3.0))<br />                (progn<br />                 (setq w1 (/ lw 100.000))<br />                 (setq w2 (/ lw 100.000))<br />                 (setq lw -3)<br />                 (setq enttbl (subst (cons 370 lw) (assoc 370 enttbl ) enttbl )) <br />                 (princ "\n")<br />                 (entmod enttbl)<br />                 (entupd entname)                             <br />                 (command "pedit" entname "y" "w" w1 "")<br />                )<br />              )<br />             (setq n (+ 1 n))<br />          )<br />       )       <br />    )<br />    (princ)  <br /> )<br /> (defun c:ch()<br />    (ch1)<br />    (ch2)<br />    (princ "ch:")<br />    (prompt "本程序用lineweight属性项和width属性项值的改变!")<br />    (prompt "数据处理完后请检查数据如有问题，请与研发中心联系!029--87862695")<br />    (prompt "－－－田江博2003.12.10")<br />    (princ)  <br /> )<br /> <br /> ////////////////////////////////////[/php]