求批量参数化

xyp1964

2. 
   
3. ;; 优化后的代码
   
4. (defun c:test1247 (/ fn pt lst a bh w hi h2)
   
5.   (xyp-CMDLASC0)
   
6.   (defun aaa (pt bh w h1 h2 / p2 p3 p4)
   
7.     (setq p2 (xyp-Pt2X pt w)
   
8.           p3 (xyp-Pt2Y p2 (- h2))
   
9.           p4 (xyp-Pt2Y pt (- h1))
   
10.     )
    
11.     (xyp-Pline (list pt p2 p3 p4) t)
    
12.     (xyp-Text 5 (inters pt p3 p2 p4 nil) bh)
    
13.   )
    
14.   (if (and (setq fn (getfiled "选取数据文件: " "" "xls" 16))
    
15.            (setq pt (getpoint "\n基点<退出>: "))
    
16.       )
    
17.     (foreach a (cdr (xyp-Xls2List fn))
    
18.       (setq bh (nth 0 a)
    
19.             w  (atoi (nth 1 a))
    
20.             h1 (atoi (nth 2 a))
    
21.             h2 (atoi (nth 3 a))
    
22.             tx (aaa pt bh w h1 h2)
    
23.             pt (xyp-Pt2X pt (+ w 1000))
    
24.       )
    
25.     )
    
26.   )
    
27.   (xyp-CMDLA1)
    
28. )
    

<br /> ;; 优化后的代码<br /> (defun c:test1247 (/ fn pt lst a bh w hi h2)<br />   (xyp-CMDLASC0)<br />   (defun aaa (pt bh w h1 h2 / p2 p3 p4)<br />     (setq p2 (xyp-Pt2X pt w)<br />           p3 (xyp-Pt2Y p2 (- h2))<br />           p4 (xyp-Pt2Y pt (- h1))<br />     )<br />     (xyp-Pline (list pt p2 p3 p4) t)<br />     (xyp-Text 5 (inters pt p3 p2 p4 nil) bh)<br />   )<br />   (if (and (setq fn (getfiled "选取数据文件: " "" "xls" 16))<br />            (setq pt (getpoint "\n基点<退出>: "))<br />       )<br />     (foreach a (cdr (xyp-Xls2List fn))<br />       (setq bh (nth 0 a)<br />             w  (atoi (nth 1 a))<br />             h1 (atoi (nth 2 a))<br />             h2 (atoi (nth 3 a))<br />             tx (aaa pt bh w h1 h2)<br />             pt (xyp-Pt2X pt (+ w 1000))<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )<br />

yzq535

陨落 发表于 2013-4-1 18:49
大家互相交流。我不是大师

一直在找这个，谢谢你的无私分享