[推荐]：架空线路排位用的模版绘制程序

zhang8755

架空线路排位用的模版绘制程序
将附件解压至autocad的support 目录下（其它在搜索路径中的目录也可）
用appload 加载后，键入mb执行

zhang8755

程序代码

2. 
   
3. (defun c:mb (/ dclfn dcl_id c k l ptl ptj cenx ceny cancel x y ddjl str1)
   
4.   (setq c 2)
   
5.   (setq dclfn (findfile "mb.dcl"))
   
6.   (if        (not dclfn)
   
7.          (progn
   
8.                 (alert "未找到文件 mb.dcl !!")
   
9.                 (exit)
   
10.          )
    
11.   )
    
12.   (setq dcl_id (load_dialog dclfn))
    
13.   (if        (not (new_dialog "mb" dcl_id))
    
14.          (progn
    
15.                 (alert "无法加载此文件 mb.dcl !!")
    
16.                 (exit)
    
17.          )
    
18.   )
    
19.   (action_tile "bl5" "(setq c 2)")
    
20.   (action_tile "bl2" "(setq c 5)")
    
21.   (action_tile "accept" "(base_accept)(setq cancel 0)")
    
22.   (action_tile "cancel" "(done_dialog)(setq cancel 1)")
    
23.   (start_dialog)
    
24.   (unload_dialog dcl_id)
    
25.   (if        (= cancel 0)
    
26.          (progn
    
27.                 (setq x (- (/ l 2)))
    
28.                 (while (<= x (/ l 2))
    
29.                   (setq y (/ (- (/ (+ (exp (* 2 k x)) (exp (- (* 2 k x)))) 2) 1)
    
30.                                                  (* 2 k)
    
31.                                          )
    
32.                   )
    
33.                   (setq ptl (append ptl (list (list (* (/ x 10) c) (* y c)))))
    
34.                   (setq x (+ 20 x))
    
35.                 )
    
36.                 (setq cenx (* l 0.05 c))
    
37.                 (setq ptj (mapcar '(lambda (x) (mapcar '+ (list cenx 0) x)) ptl))
    
38.                 (setq ceny (/ (- (cadr (car ptj)) 0) 3))
    
39.                 (command "pline")
    
40.                 (foreach n ptj (command n))
    
41.                 (command "")
    
42.                 (command "copy" (entlast) "" '(0 0) (list 0 (* ddjl c)))
    
43.                 (command "line" (list cenx -20)(list cenx (+ (cadr(car ptj)) (* ddjl c))) "")
    
44.                 (command "line" (list 0 ceny)(list (car (car (reverse ptj))) ceny) "")
    
45.                 (setq str1 (strcat "K=" (rtos (* k 10000)) "E-04,h=" (rtos ddjl 2 1) "m"))
    
46.                 (command "text" "j" "m" (list cenx (+ ceny 2.5)) "4" "0" str1)
    
47.                 (if (= c 2)
    
48.                         (command "text" "" "500/5000")
    
49.                         (command "text" "" "200/2000")
    
50.                 )
    
51.          )
    
52.   )
    
53. )
    
54. 
    
55. (defun base_accept ()
    
56.   (setq k (/ (atof (get_tile "k")) 10000))
    
57.   (setq l (atoi (get_tile "mbl")))
    
58.   (setq ddjl (atof (get_tile "ddjl")))
    
59.   (done_dialog)
    
60. )  
    
61. mb:dialog{
    
62.         label="模版绘制";
    
63.         :column{
    
64.                 fixed_width=true;
    
65.                 children_alignment=centered;
    
66.                 :edit_box{
    
67.                         label="本图K值(E-4):";
    
68.                         key="k";
    
69.                         edit_width=7;
    
70.                         edit_limit=6;
    
71.                         value="3.1000";
    
72.                         height=1.1;
    
73.                 }
    
74.                 :edit_box{
    
75.                         label="模版档距(米):";
    
76.                         key="mbl";
    
77.                         edit_width=7;
    
78.                         edit_limit=4;
    
79.                         value="1500";
    
80.                         height=1.1;
    
81.                 }
    
82.                 :edit_box{
    
83.                         label="对地距离(米):";
    
84.                         key="ddjl";
    
85.                         edit_width=7;
    
86.                         edit_limit=4;
    
87.                         value="7.5";
    
88.                         height=1.1;
    
89.                 }
    
90.                 :row{
    
91.                         children_alignment=top;
    
92.                         :text{label="制图比例:";}
    
93.                         :column{
    
94.                                 :radio_button{
    
95.                                         label="1/5000,1/500";
    
96.                                         key="bl5";
    
97.                                         value=1;
    
98.                                 }
    
99.                                 :radio_button{
    
100.                                         label="1/2000,1/200";
     
101.                                         key="bl2";
     
102.                                 }
     
103.                         }
     
104.                 }       
     
105.                 ok_cancel;
     
106.         }
     
107. }

<br /> (defun c:mb (/ dclfn dcl_id c k l ptl ptj cenx ceny cancel x y ddjl str1)<br />   (setq c 2)<br />   (setq dclfn (findfile "mb.dcl"))<br />   (if        (not dclfn)<br />          (progn<br />                 (alert "未找到文件 mb.dcl !!")<br />                 (exit)<br />          )<br />   )<br />   (setq dcl_id (load_dialog dclfn))<br />   (if        (not (new_dialog "mb" dcl_id))<br />          (progn<br />                 (alert "无法加载此文件 mb.dcl !!")<br />                 (exit)<br />          )<br />   )<br />   (action_tile "bl5" "(setq c 2)")<br />   (action_tile "bl2" "(setq c 5)")<br />   (action_tile "accept" "(base_accept)(setq cancel 0)")<br />   (action_tile "cancel" "(done_dialog)(setq cancel 1)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (if        (= cancel 0)<br />          (progn<br />                 (setq x (- (/ l 2)))<br />                 (while (<= x (/ l 2))<br />                   (setq y (/ (- (/ (+ (exp (* 2 k x)) (exp (- (* 2 k x)))) 2) 1)<br />                                                  (* 2 k)<br />                                          )<br />                   )<br />                   (setq ptl (append ptl (list (list (* (/ x 10) c) (* y c)))))<br />                   (setq x (+ 20 x))<br />                 )<br />                 (setq cenx (* l 0.05 c))<br />                 (setq ptj (mapcar '(lambda (x) (mapcar '+ (list cenx 0) x)) ptl))<br />                 (setq ceny (/ (- (cadr (car ptj)) 0) 3))<br />                 (command "pline")<br />                 (foreach n ptj (command n))<br />                 (command "")<br />                 (command "copy" (entlast) "" '(0 0) (list 0 (* ddjl c)))<br />                 (command "line" (list cenx -20)(list cenx (+ (cadr(car ptj)) (* ddjl c))) "")<br />                 (command "line" (list 0 ceny)(list (car (car (reverse ptj))) ceny) "")<br />                 (setq str1 (strcat "K=" (rtos (* k 10000)) "E-04,h=" (rtos ddjl 2 1) "m"))<br />                 (command "text" "j" "m" (list cenx (+ ceny 2.5)) "4" "0" str1)<br />                 (if (= c 2)<br />                         (command "text" "" "500/5000")<br />                         (command "text" "" "200/2000")<br />                 )<br />          )<br />   )<br /> )<br /> <br /> (defun base_accept ()<br />   (setq k (/ (atof (get_tile "k")) 10000))<br />   (setq l (atoi (get_tile "mbl")))<br />   (setq ddjl (atof (get_tile "ddjl")))<br />   (done_dialog)<br /> )  <br /> mb:dialog{<br />         label="模版绘制";<br />         :column{<br />                 fixed_width=true;<br />                 children_alignment=centered;<br />                 :edit_box{<br />                         label="本图K值(E-4):";<br />                         key="k";<br />                         edit_width=7;<br />                         edit_limit=6;<br />                         value="3.1000";<br />                         height=1.1;<br />                 }<br />                 :edit_box{<br />                         label="模版档距(米):";<br />                         key="mbl";<br />                         edit_width=7;<br />                         edit_limit=4;<br />                         value="1500";<br />                         height=1.1;<br />                 }<br />                 :edit_box{<br />                         label="对地距离(米):";<br />                         key="ddjl";<br />                         edit_width=7;<br />                         edit_limit=4;<br />                         value="7.5";<br />                         height=1.1;<br />                 }<br />                 :row{<br />                         children_alignment=top;<br />                         :text{label="制图比例:";}<br />                         :column{<br />                                 :radio_button{<br />                                         label="1/5000,1/500";<br />                                         key="bl5";<br />                                         value=1;<br />                                 }<br />                                 :radio_button{<br />                                         label="1/2000,1/200";<br />                                         key="bl2";<br />                                 }<br />                         }<br />                 }        <br />                 ok_cancel;<br />         }<br /> }

tline_gy

老大的东西就是精华,虽然现在有软件,还是收藏好,慢慢研究,谢谢了

missing981

这个不知道是不是好东西哦

ysy419

请问K值是按哪个公式计算的？怎么和我常用的不一样？

李志明

在CAD下的运用命令是什么

zhang8755

k=比载/2*应力  
命令为mb