[原创]：自动地在天正建筑平面图上生成过梁

hnfsf

;----------------------过梁自动生成程序-------------------------------
;本程序自动地在天正建筑平面图上生成过梁信息，编程思路是首先寻找建筑图上的图块_WBLK/_DBLK,然后取得
;属性插入点和插入比例的值,计算出门窗大小及过梁绘图/标注位置.工作比例为1:100

2. 
   
3. (defun c:sgl()
   
4.         ;(setq *error* xm_err)
   
5.         ;(setvar "cmdecho" 1)
   
6.         (princ "\n本程序将自动地从天正/理正建筑平面图上生成过梁信息.....")
   
7.                 (if (= (setq scale (getint"\n请输入作图比例(100):")) nil)(setq scale 100))
   
8.                 (prompt "\n选择要生成过梁的实体.")
   
9.                 (setq sset (ssget))
   
10.                 (if (null sset)
    
11.                 (progn
    
12.                         (princ "\n没有选到实体.")
    
13.                         (exit)
    
14.                 ))
    
15.                 (setq loadid (getint"\n本层大多数承重单元是横(Anykey)还是竖(1)?"))
    
16.                 ;verify the block of _wblk
    
17.                 (cht_bl)
    
18.                 ;start playing!
    
19.                 (wr_gl)
    
20.                
    
21.                
    
22.   )
    
23.                 ;__________过滤天正门窗
    
24.                 (defun cht_bl ()
    
25.                  (setq ssl   (sslength sset)
    
26.                         nsset (ssadd))
    
27.                         (if (> ssl 25)
    
28.                         (princ "\n正在过滤天正门窗 -- 请稍候....\n ")
    
29.                         )
    
30.                 (setq i 1)
    
31.                 (while (> ssl 0)
    
32.                         (setq i (+ 1 i))
    
33.                         (princ"\r")(princ i)
    
34.                         (setq temp (ssname sset (setq ssl (1- ssl))))
    
35.                         (setq tempstring (cdr(assoc 2 (entget temp))))
    
36.                         (setq tempstring1 (cdr(assoc 8 (entget temp))))
    
37.                         (if (and (/= tempstring nil)(= tempstring1 "WINDOW"))
    
38. 
    
39.                             (progn
    
40.                                 (if (= (substr tempstring 1 5)  "_WBLK")
    
41.                                 (ssadd temp nsset)
    
42.                                 )
    
43.                                 (if (= (substr tempstring 1 5)  "_DBLK")
    
44.                                 (ssadd temp nsset)
    
45.                                 )
    
46.                                 (if (= (substr tempstring 1 2)  "M_")
    
47.                                 (ssadd temp nsset)
    
48.                                 )
    
49.                                 (if (= (substr tempstring 1 2)  "W_")
    
50.                                 (ssadd temp nsset)
    
51.                                 )
    
52.                              )
    
53.                         )
    
54.                 )
    
55.                 (setq ssl (sslength nsset)
    
56.                 sset nsset
    
57.                 unctr 0
    
58.                 )
    
59.                 (princ "一共找到 ")
    
60.                 (princ ssl)
    
61.                 (princ " 个门窗")
    
62.                 )
    
63.         ;______于插入点出标过梁_____
    
64.                 (defun wr_gl()
    
65.                         (command "LINETYPE" "S" "DASHDOT" NIL)
    
66.                         (command "layer" "m" "GL" "c" "magenta" "GL" nil)
    
67.                         (command "style" "GL" "宋体" "0" "1.0" "0" "n" "n" )
    
68.                         ;(if ( = (check_table "layer" "gl") nil)(command "layer" "m" "gl" "c" "133" "GL" nil))
    
69.                         ;(if (/= (check_table "layer" "gl") nil)(setvar "clayer" "gl"))
    
70.                         ;(if ( = (check_table "style" "romand") nil)(command "style" "romand" "romand" "0" "0.6" "0" "n" "n" "n" ))
    
71.                         ;(if (/= (check_table "style" "romand") nil)(setvar "textstyle" "romand"))
    
72. ;                        (myid)
    
73.                         (command "_osnap" "none")        
    
74.                         (setq txthigh (* 3 scale))               
    
75.                         (setq sslen (sslength sset))
    
76.                                 (if (= sslen 0)(princ"\n没有选到门窗?!"))
    
77.                                 (while (> sslen 0)
    
78.                                 (princ ".")
    
79.                                 (setq temp (entget (ssname sset (setq sslen (1- sslen)))))
    
80.                                 (setq pt0 (cdr (assoc 10 temp)))
    
81.                                 (setq xs (abs(cdr (assoc 41 temp))))
    
82.                                 (setq ys (cdr (assoc 42 temp)))
    
83.                                 (setq iscale (cdr (assoc 50 temp)))
    
84.                                 (setq iscale (* iscale (/ 180 pi)))
    
85.                                
    
86.                                         ;----------计算门窗长度
    
87.                                         (setq lh (/ xs 100))
    
88.                                        
    
89.                                          
    
90.                                         ;(princ ttxt)
    
91.                                         ;-------------计算文字位置
    
92.                                         (if (= 180 iscale) (setq txt_id 0))
    
93.                                         (if (= 0 iscale )  (setq txt_id 0))
    
94.                                         (if (= 90  iscale) (setq txt_id 1))
    
95.                                         (if (= 270 iscale) (setq txt_id 1))
    
96.                                         (setq ftxt "GL4")
    
97.                                         (setq mtxt (rtos lh))
    
98.                                         (if (/= loadid 1)(progn
    
99.                                                 (if(= txt_id 0)(setq ltxt "1"))
    
100.                                                 (if(= txt_id 1)(setq ltxt "3"))
     
101.                                         ));endif
     
102.                                         (if (= loadid 1)(progn
     
103.                                                 (if(= txt_id 0)(setq ltxt "3"))
     
104.                                                 (if(= txt_id 1)(setq ltxt "1"))
     
105.                                         ));endif
     
106.                                         (setq ttxt (strcat ftxt mtxt ltxt))
     
107.                                         (if (= mtxt "9")(setq ttxt "GL4101a"))
     
108.                                         (if (= mtxt "8")(setq ttxt "GL4081"))
     
109.                                         (setq tempx (nth 0 pt0))
     
110.                                         (setq tempy (nth 1 pt0))
     
111.                                         (if (= txt_id 0)
     
112.                                         (
     
113.                                         progn
     
114.                                         (setq tempyy (+ 350 tempy))
     
115.                                         (setq txt_pt (list tempx tempyy))
     
116.                                         (command "text" "j" "m" txt_pt txthigh "0" ttxt nil nil)
     
117.                                         ))
     
118.                                         (if (= txt_id 1)
     
119.                                         (
     
120.                                         progn
     
121.                                         (setq tempxx (- tempx 350))
     
122.                                         (setq txt_pt (list tempxx tempy))
     
123.                                         (command "text" "j" "m" txt_pt txthigh "90" ttxt nil nil)
     
124.                                         ))
     
125.                                        
     
126.                                         ;-------------计算过梁线位置及长度
     
127.                                         (setq dx (+ (/ xs 2) 250))
     
128.                                         ;(princ dx)
     
129.                                         (if (= txt_id 0)
     
130.                                         (
     
131.                                         progn
     
132.                                         (setq tempxx1 (- tempx dx))
     
133.                                         (setq tempxx2 (+ tempx dx))
     
134.                                         (setq glpt1 (list tempxx1 tempy))
     
135.                                         (setq glpt2 (list tempxx2 tempy))
     
136.                                         (command "pline" glpt1 "w" "80" "80" glpt2 nil)  
     
137.                                         ))  
     
138.                                         (if (= txt_id 1)
     
139.                                         (
     
140.                                         progn
     
141.                                         (setq tempyy1 (- tempy dx))
     
142.                                         (setq tempyy2 (+ tempy dx))
     
143.                                         (setq glpt1 (list tempx tempyy1))
     
144.                                         (setq glpt2 (list tempx tempyy2))
     
145.                                         (command "pline" glpt1 "w" "80" "80" glpt2 nil)  
     
146.                                         ))                                      
     
147.                                
     
148.                                 )
     
149.                                
     
150. )

<br /> (defun c:sgl()<br />         ;(setq *error* xm_err)<br />         ;(setvar "cmdecho" 1)<br />         (princ "\n本程序将自动地从天正/理正建筑平面图上生成过梁信息.....")<br />                 (if (= (setq scale (getint"\n请输入作图比例(100):")) nil)(setq scale 100))<br />                 (prompt "\n选择要生成过梁的实体.")<br />                 (setq sset (ssget))<br />                 (if (null sset)<br />                 (progn<br />                         (princ "\n没有选到实体.")<br />                         (exit)<br />                 ))<br />                 (setq loadid (getint"\n本层大多数承重单元是横(Anykey)还是竖(1)?"))<br />                 ;verify the block of _wblk<br />                 (cht_bl)<br />                 ;start playing!<br />                 (wr_gl)<br />                 <br />                 <br />   )<br />                 ;__________过滤天正门窗<br />                 (defun cht_bl ()<br />                  (setq ssl   (sslength sset)<br />                         nsset (ssadd))<br />                         (if (> ssl 25)<br />                         (princ "\n正在过滤天正门窗 -- 请稍候....\n ")<br />                         )<br />                 (setq i 1)<br />                 (while (> ssl 0)<br />                         (setq i (+ 1 i))<br />                         (princ"\r")(princ i)<br />                         (setq temp (ssname sset (setq ssl (1- ssl))))<br />                         (setq tempstring (cdr(assoc 2 (entget temp))))<br />                         (setq tempstring1 (cdr(assoc 8 (entget temp))))<br />                         (if (and (/= tempstring nil)(= tempstring1 "WINDOW"))<br /> <br />                             (progn<br />                                 (if (= (substr tempstring 1 5)  "_WBLK")<br />                                 (ssadd temp nsset)<br />                                 )<br />                                 (if (= (substr tempstring 1 5)  "_DBLK")<br />                                 (ssadd temp nsset)<br />                                 )<br />                                 (if (= (substr tempstring 1 2)  "M_")<br />                                 (ssadd temp nsset)<br />                                 )<br />                                 (if (= (substr tempstring 1 2)  "W_")<br />                                 (ssadd temp nsset)<br />                                 )<br />                              )<br />                         )<br />                 )<br />                 (setq ssl (sslength nsset)<br />                 sset nsset<br />                 unctr 0<br />                 )<br />                 (princ "一共找到 ")<br />                 (princ ssl)<br />                 (princ " 个门窗")<br />                 )<br />         ;______于插入点出标过梁_____<br />                 (defun wr_gl()<br />                         (command "LINETYPE" "S" "DASHDOT" NIL)<br />                         (command "layer" "m" "GL" "c" "magenta" "GL" nil)<br />                         (command "style" "GL" "宋体" "0" "1.0" "0" "n" "n" )<br />                         ;(if ( = (check_table "layer" "gl") nil)(command "layer" "m" "gl" "c" "133" "GL" nil))<br />                         ;(if (/= (check_table "layer" "gl") nil)(setvar "clayer" "gl"))<br />                         ;(if ( = (check_table "style" "romand") nil)(command "style" "romand" "romand" "0" "0.6" "0" "n" "n" "n" ))<br />                         ;(if (/= (check_table "style" "romand") nil)(setvar "textstyle" "romand"))<br /> ;                        (myid)<br />                         (command "_osnap" "none")        <br />                         (setq txthigh (* 3 scale))               <br />                         (setq sslen (sslength sset))<br />                                 (if (= sslen 0)(princ"\n没有选到门窗?!"))<br />                                 (while (> sslen 0)<br />                                 (princ ".")<br />                                 (setq temp (entget (ssname sset (setq sslen (1- sslen)))))<br />                                 (setq pt0 (cdr (assoc 10 temp)))<br />                                 (setq xs (abs(cdr (assoc 41 temp))))<br />                                 (setq ys (cdr (assoc 42 temp)))<br />                                 (setq iscale (cdr (assoc 50 temp)))<br />                                 (setq iscale (* iscale (/ 180 pi)))<br />                                 <br />                                         ;----------计算门窗长度<br />                                         (setq lh (/ xs 100))<br />                                         <br />                                          <br />                                         ;(princ ttxt)<br />                                         ;-------------计算文字位置<br />                                         (if (= 180 iscale) (setq txt_id 0))<br />                                         (if (= 0 iscale )  (setq txt_id 0))<br />                                         (if (= 90  iscale) (setq txt_id 1))<br />                                         (if (= 270 iscale) (setq txt_id 1))<br />                                         (setq ftxt "GL4")<br />                                         (setq mtxt (rtos lh))<br />                                         (if (/= loadid 1)(progn<br />                                                 (if(= txt_id 0)(setq ltxt "1"))<br />                                                 (if(= txt_id 1)(setq ltxt "3"))<br />                                         ));endif<br />                                         (if (= loadid 1)(progn<br />                                                 (if(= txt_id 0)(setq ltxt "3"))<br />                                                 (if(= txt_id 1)(setq ltxt "1"))<br />                                         ));endif<br />                                         (setq ttxt (strcat ftxt mtxt ltxt))<br />                                         (if (= mtxt "9")(setq ttxt "GL4101a"))<br />                                         (if (= mtxt "8")(setq ttxt "GL4081"))<br />                                         (setq tempx (nth 0 pt0))<br />                                         (setq tempy (nth 1 pt0))<br />                                         (if (= txt_id 0)<br />                                         (<br />                                         progn<br />                                         (setq tempyy (+ 350 tempy))<br />                                         (setq txt_pt (list tempx tempyy))<br />                                         (command "text" "j" "m" txt_pt txthigh "0" ttxt nil nil)<br />                                         ))<br />                                         (if (= txt_id 1)<br />                                         (<br />                                         progn<br />                                         (setq tempxx (- tempx 350))<br />                                         (setq txt_pt (list tempxx tempy))<br />                                         (command "text" "j" "m" txt_pt txthigh "90" ttxt nil nil)<br />                                         ))<br />                                         <br />                                         ;-------------计算过梁线位置及长度<br />                                         (setq dx (+ (/ xs 2) 250))<br />                                         ;(princ dx)<br />                                         (if (= txt_id 0)<br />                                         (<br />                                         progn<br />                                         (setq tempxx1 (- tempx dx))<br />                                         (setq tempxx2 (+ tempx dx))<br />                                         (setq glpt1 (list tempxx1 tempy))<br />                                         (setq glpt2 (list tempxx2 tempy))<br />                                         (command "pline" glpt1 "w" "80" "80" glpt2 nil)  <br />                                         ))  <br />                                         (if (= txt_id 1)<br />                                         (<br />                                         progn<br />                                         (setq tempyy1 (- tempy dx))<br />                                         (setq tempyy2 (+ tempy dx))<br />                                         (setq glpt1 (list tempx tempyy1))<br />                                         (setq glpt2 (list tempx tempyy2))<br />                                         (command "pline" glpt1 "w" "80" "80" glpt2 nil)  <br />                                         ))                                      <br />                                 <br />                                 )<br />                                 <br /> )

angang1015

能不能搞一个现成的贴出来。

hnfsf

现成的lsp。

UVWXYZ

能不能讲一下怎么使用

箍筋

好像天正5.0不能用

YueFeng

天正建筑5.5的是有一个自定义对象的.可以提供DXF组码.利用它也可以用的.