关于多段线拟合的问题

wmz

2. ;;;加入编码
   
3. (defun SetData (Obj Data / dxf)
   
4.    (setq  dxf (entget obj))
   
5.    (setq data (list(list "SOUTH" (cons 1000 data))))
   
6.    (foreach x Data
   
7.         (regapp (car x))
   
8.         (entmod (append dxf (list(cons -3 (list x)))))
   
9.    )
   
10. )
    
11. ;;;画等高线
    
12. (defun Hdgxhsa (lst n bh h blc / XX xk LAY YS e)
    
13.   (setq  sw 34.26 BL (/ blc 1000.0))
    
14.   (setq LAY (if(>= h sw)"DGX""DSX")
    
15.          XK (*(IF(=(rem h 5)0)0.3 0.15)BL)
    
16.          YS (IF(=(rem h 5)0) 3 2)
    
17.          XX (if(>= h sw)"CONTINUOUS""X11")
    
18.   )
    
19.   (setq xDATA (cond ((and (= (rem h 5) 0)(= LAY "DGX")) "201102")
    
20.                                 ((and(/= (rem h 5) 0)(= LAY "DGX")) "201101")
    
21.                                 ((and (= (rem h 5) 0)(= LAY "DSX")) "186302")
    
22.                                 ((and(/= (rem h 5) 0)(= LAY "DSX")) "186301")
    
23.                        )
    
24.   )  
    
25.   (entmakex (append
    
26.        (list '(0 . "LWPOLYLINE")
    
27.        '(100 . "AcDbEntity")
    
28.        '(100 . "AcDbPolyline")
    
29.         (cons 8 LAY)
    
30.         (cons 62 Ys)
    
31.         (cons 90 n)
    
32.         (cons 6 xx)
    
33.         (cons 43 xk)
    
34.         (cons 38 h)
    
35.         (cons 70 (+ 132 bh))
    
36.       )
    
37.       (mapcar '(lambda (pt)(cons 10 pt)) lst))
    
38.   )
    
39.   (setq e (entlast))
    
40.   (SetData e xDATA)
    
41.   (command "_pedit" e "s" "");;;请问不用这一句如何实现这一句的功能？因为不用这一句线不能拟合，用这一句速度就慢了！
    
42. )  

;;;加入编码<br /> (defun SetData (Obj Data / dxf)<br />    (setq  dxf (entget obj))<br />    (setq data (list(list "SOUTH" (cons 1000 data))))<br />    (foreach x Data<br />         (regapp (car x))<br />         (entmod (append dxf (list(cons -3 (list x)))))<br />    )<br /> )<br /> ;;;画等高线<br /> (defun Hdgxhsa (lst n bh h blc / XX xk LAY YS e)<br />   (setq  sw 34.26 BL (/ blc 1000.0))<br />   (setq LAY (if(>= h sw)"DGX""DSX")<br />          XK (*(IF(=(rem h 5)0)0.3 0.15)BL)<br />          YS (IF(=(rem h 5)0) 3 2)<br />          XX (if(>= h sw)"CONTINUOUS""X11")<br />   )<br />   (setq xDATA (cond ((and (= (rem h 5) 0)(= LAY "DGX")) "201102")<br />                                 ((and(/= (rem h 5) 0)(= LAY "DGX")) "201101")<br />                                 ((and (= (rem h 5) 0)(= LAY "DSX")) "186302")<br />                                 ((and(/= (rem h 5) 0)(= LAY "DSX")) "186301")<br />                        )<br />   )  <br />   (entmakex (append<br />        (list '(0 . "LWPOLYLINE")<br />        '(100 . "AcDbEntity")<br />        '(100 . "AcDbPolyline")<br />         (cons 8 LAY)<br />         (cons 62 Ys)<br />         (cons 90 n)<br />         (cons 6 xx)<br />         (cons 43 xk)<br />         (cons 38 h)<br />         (cons 70 (+ 132 bh))<br />       )<br />       (mapcar '(lambda (pt)(cons 10 pt)) lst))<br />   )<br />   (setq e (entlast))<br />   (SetData e xDATA)<br />   (command "_pedit" e "s" "");;;请问不用这一句如何实现这一句的功能？因为不用这一句线不能拟合，用这一句速度就慢了！<br /> )