发一个对付PKPM2001年7月份版生成的DWG文件,轴线及一些其它为多义线的帖子.[原创]：

YueFeng

2. 
   
3. (Defun C:PKPM(/ OSM A N1 I1 N2 I2 SS B NA ED OLD_W1 OLD_W2 OLD_W3 W1 W2 W3
   
4.                 C NC IC NCED NCC NCR NCQ NCLAY)
   
5. 
   
6.   (SetVar "CMDECHO" 0)
   
7.   (SetQ OSM (GetVar "OSMODE"))
   
8.   (SetVar "OSMODE" 0)
   
9. 
   
10.   (Alert "此程序只适用于2001年7月版PKPM软件生成的DWG文件转换！")
    
11.    
    
12.   ;将每一条宽度为0.18的多义线(LWPLOYLINE炸为直线LINE
    
13.   ;即将新版PKPM软件生成的DWG文件中诸如轴线、尺寸线等等，修改为直。
    
14. 
    
15.   ;考虑到PKPM生成DWG文件有许多层都存在此类问题，所以这次没有将层过滤控制加入在选择集过。
    
16. 
    
17.   (Vl-Cmdf "UNDO" "BE")
    
18.   
    
19.   (Setq A (SsGet "X" '((-4 . "<AND")
    
20.                              (0 . "LWPOLYLINE")
    
21.                              (-4 . "<=") (43 . 0.181)
    
22.                              (-4 . ">=") (43 . 0.179)
    
23.                         (-4 . "AND>"))
    
24.           )
    
25.   )
    
26.   (If (/= A Nil)
    
27.      (Progn
    
28.         (Setq N1 (SsLength A)
    
29.               I1 0)
    
30.   
    
31.         (Repeat N1
    
32.         (SetQ SS (SsName A I1))
    
33.         (Vl-Cmdf "_EXPLODE" SS "")
    
34.         (SetQ I1 (1+ I1))
    
35.         )
    
36.       )
    
37.       (Alert "没有找到0.18宽度的多义线！")
    
38.   )
    
39.    
    
40.   ;应CY网友要求将尺寸短线的宽度修改为更宽的一个宽度。
    
41.   ;程序内定为0.40，可以将其修改为更宽的宽度。
    
42.   
    
43.      
    
44.   (SetQ B (SsGet "X" '((-4 . "<OR")
    
45.                          (-4 . "<AND")
    
46.                              (0 . "LWPOLYLINE")
    
47.                              (8 . "轴线__尺寸数字")
    
48.                              (-4 . "<=") (43 . 0.351)
    
49.                              (-4 . ">=") (43 . 0.349)
    
50.                          (-4 . "AND>")
    
51.                          (-4 . "<AND")
    
52.                              (0 . "LWPOLYLINE")
    
53.                              (8 . "支座钢筋标注")
    
54.                              (-4 . "<=") (43 . 0.351)
    
55.                              (-4 . ">=") (43 . 0.349)
    
56.                          (-4 . "AND>")
    
57.                        (-4 . "OR>"))
    
58.           )
    
59.   )
    
60. 
    
61.   (If (/= B NIl)
    
62.     (Progn
    
63.        (SetQ N2 (SsLength B))
    
64.        (SetQ I2 0)
    
65.        (Repeat N2
    
66.           (SetQ NA (SsName B I2))
    
67.           (SetQ ED (entget NA))
    
68.           (SetQ OLD_W  (Assoc 43 ED)
    
69.                 OLD_W1 (Assoc 40 ED)
    
70.                 OLD_W2 (Assoc 41 ED)
    
71.                 W  (Cons 43 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)
    
72.                 W1 (Cons 40 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)
    
73.                 W2 (Cons 41 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)
    
74.                )
    
75.          (SetQ ED (Subst W OLD_W ED)
    
76.                ED (Subst W1 OLD_W1 ED)
    
77.                ED (Subst W2 OLD_W2 ED)
    
78.               )
    
79.          (EntMod ED)
    
80.          (SetQ I2 (1+ I2))
    
81.        )         
    
82.     )
    
83.    (Alert "没有找到0.35宽度的多义线！")
    
84.   )
    
85. 
    
86.   ;应网友的要求将炸开多义线弧改为圆.
    
87.   ;在这里假定生成的图形都在"轴线__点划线"与"板底钢筋标注"与"支座钢筋标注"这三个层上.
    
88.   ;且ARC的半径都为4(轴线_点划线层上)或2(其它层上).
    
89.   (SetQ Cl (GetVar "CLAYER"))
    
90.   (SetQ C (SsGet "X" '((-4 . "<OR")
    
91.                          (-4 . "<AND")
    
92.                              (0 . "ARC")
    
93.                              (8 . "轴线__点划线")
    
94.                              (-4 . "<") (40 . 4.01)
    
95.                              (-4 . ">") (40 . 3.99)
    
96.                          (-4 . "AND>")
    
97.                          (-4 . "<AND")
    
98.                              (0 . "ARC")
    
99.                              (8 . "板底钢筋标注")
    
100.                              (40 . 2.0)
     
101.                          (-4 . "AND>")
     
102.                                     (-4 . "<AND")
     
103.                              (0 . "ARC")
     
104.                              (8 . "支座钢筋标注")
     
105.                              (40 . 2.0)
     
106.                          (-4 . "AND>")
     
107.                        (-4 . "OR>"))
     
108.           )
     
109.   )
     
110.   (If (/= C Nil)
     
111.      (Progn
     
112.         (SetQ NC (SsLength C)
     
113.               IC 0)
     
114.         (Repeat NC
     
115.            (SetQ NCED (EntGet (SsName C IC))
     
116.                  NCC (Cdr (Assoc 10 NCED))
     
117.                  NCR (Cdr (Assoc 40 NCED))
     
118.                  NCQ (Cdr (Assoc 50 NCED))
     
119.                  NCLAY (Cdr (Assoc 8 NCED))
     
120.            )
     
121.            (If (= NCQ 0.0)
     
122.               (SetVar "CLAYER" NCLAY)
     
123.               (Command "._Circle" NCC NCR)
     
124.            )
     
125.            (SetQ IC (1+ IC))
     
126.         )
     
127.       )
     
128.   )  
     
129.   (Command "._Erase" C "")
     
130.   (SetVar "CLAYER" Cl)
     
131.   (Vl-Cmdf "UNDO" "E")
     
132.   (SetVar "OSMODE" OSM)
     
133.   (Prompt "\n提示：如果你请执行错误后请立即用恢复命令！")
     
134.   (Prin1)
     
135. )
     

<br /> (Defun C:PKPM(/ OSM A N1 I1 N2 I2 SS B NA ED OLD_W1 OLD_W2 OLD_W3 W1 W2 W3<br />                 C NC IC NCED NCC NCR NCQ NCLAY)<br /> <br />   (SetVar "CMDECHO" 0)<br />   (SetQ OSM (GetVar "OSMODE"))<br />   (SetVar "OSMODE" 0)<br /> <br />   (Alert "此程序只适用于2001年7月版PKPM软件生成的DWG文件转换！")<br />    <br />   ;将每一条宽度为0.18的多义线(LWPLOYLINE炸为直线LINE<br />   ;即将新版PKPM软件生成的DWG文件中诸如轴线、尺寸线等等，修改为直。<br /> <br />   ;考虑到PKPM生成DWG文件有许多层都存在此类问题，所以这次没有将层过滤控制加入在选择集过。<br /> <br />   (Vl-Cmdf "UNDO" "BE")<br />   <br />   (Setq A (SsGet "X" '((-4 . "<AND")<br />                              (0 . "LWPOLYLINE")<br />                              (-4 . "<=") (43 . 0.181)<br />                              (-4 . ">=") (43 . 0.179)<br />                         (-4 . "AND>"))<br />           )<br />   )<br />   (If (/= A Nil) <br />      (Progn<br />         (Setq N1 (SsLength A)<br />               I1 0)<br />   <br />         (Repeat N1<br />         (SetQ SS (SsName A I1))<br />         (Vl-Cmdf "_EXPLODE" SS "")<br />         (SetQ I1 (1+ I1))<br />         )<br />       )<br />       (Alert "没有找到0.18宽度的多义线！")<br />   )<br />    <br />   ;应CY网友要求将尺寸短线的宽度修改为更宽的一个宽度。<br />   ;程序内定为0.40，可以将其修改为更宽的宽度。<br />   <br />      <br />   (SetQ B (SsGet "X" '((-4 . "<OR")<br />                          (-4 . "<AND")<br />                              (0 . "LWPOLYLINE")<br />                              (8 . "轴线__尺寸数字")<br />                              (-4 . "<=") (43 . 0.351)<br />                              (-4 . ">=") (43 . 0.349)<br />                          (-4 . "AND>")<br />                          (-4 . "<AND")<br />                              (0 . "LWPOLYLINE")<br />                              (8 . "支座钢筋标注")<br />                              (-4 . "<=") (43 . 0.351)<br />                              (-4 . ">=") (43 . 0.349)<br />                          (-4 . "AND>")<br />                        (-4 . "OR>"))<br />           )<br />   )<br /> <br />   (If (/= B NIl)<br />     (Progn<br />        (SetQ N2 (SsLength B))<br />        (SetQ I2 0)<br />        (Repeat N2<br />           (SetQ NA (SsName B I2))<br />           (SetQ ED (entget NA))<br />           (SetQ OLD_W  (Assoc 43 ED)<br />                 OLD_W1 (Assoc 40 ED)<br />                 OLD_W2 (Assoc 41 ED)<br />                 W  (Cons 43 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)<br />                 W1 (Cons 40 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)<br />                 W2 (Cons 41 0.40);在这可以输入你所要的宽度值。例：(将0.40替换为0.50)<br />                )<br />          (SetQ ED (Subst W OLD_W ED)<br />                ED (Subst W1 OLD_W1 ED)<br />                ED (Subst W2 OLD_W2 ED)<br />               )<br />          (EntMod ED)<br />          (SetQ I2 (1+ I2))<br />        )          <br />     )<br />    (Alert "没有找到0.35宽度的多义线！") <br />   )<br /> <br />   ;应网友的要求将炸开多义线弧改为圆.<br />   ;在这里假定生成的图形都在"轴线__点划线"与"板底钢筋标注"与"支座钢筋标注"这三个层上.<br />   ;且ARC的半径都为4(轴线_点划线层上)或2(其它层上).<br />   (SetQ Cl (GetVar "CLAYER"))<br />   (SetQ C (SsGet "X" '((-4 . "<OR")<br />                          (-4 . "<AND")<br />                              (0 . "ARC")<br />                              (8 . "轴线__点划线")<br />                              (-4 . "<") (40 . 4.01)<br />                              (-4 . ">") (40 . 3.99)<br />                          (-4 . "AND>")<br />                          (-4 . "<AND")<br />                              (0 . "ARC")<br />                              (8 . "板底钢筋标注")<br />                              (40 . 2.0)<br />                          (-4 . "AND>")<br />                                     (-4 . "<AND")<br />                              (0 . "ARC")<br />                              (8 . "支座钢筋标注")<br />                              (40 . 2.0)<br />                          (-4 . "AND>")<br />                        (-4 . "OR>"))<br />           )<br />   ) <br />   (If (/= C Nil)<br />      (Progn<br />         (SetQ NC (SsLength C)<br />               IC 0)<br />         (Repeat NC<br />            (SetQ NCED (EntGet (SsName C IC))<br />                  NCC (Cdr (Assoc 10 NCED))<br />                  NCR (Cdr (Assoc 40 NCED))<br />                  NCQ (Cdr (Assoc 50 NCED))<br />                  NCLAY (Cdr (Assoc 8 NCED))<br />            )<br />            (If (= NCQ 0.0)<br />               (SetVar "CLAYER" NCLAY)<br />               (Command "._Circle" NCC NCR)<br />            )<br />            (SetQ IC (1+ IC))<br />         )<br />       )<br />   )  <br />   (Command "._Erase" C "")<br />   (SetVar "CLAYER" Cl)<br />   (Vl-Cmdf "UNDO" "E")<br />   (SetVar "OSMODE" OSM)<br />   (Prompt "\n提示：如果你请执行错误后请立即用恢复命令！")<br />   (Prin1)<br /> )<br />

zqi

其实用以下文件替换PKPM中CFG下的同名文件就OK了，是从PKPM网站上拉来的。

YueFeng

用以下这个文件在哪里。转贴出来吧。好吗？

YueFeng

PKPM最新版2002.01.22版解决了这个问题。看来不用编程了。

叶子

有时候尽管我们没有加密锁，但我们的CFG应该经常更新，因为现在的MODIFYW的确变化很大，
2002年1月的新增加了“标注”——“钢结构”模块
总是看着它在一点点进步。