(XD::PolyLine:Make)根据点表和封闭标志创建LWPOLYLINE实体

Lispboy

1. ;|
   
2. 根据点表和封闭标志创建LWPOLYLINE实体
   
3. 参数：
   
4.    pts ---- 点表
   
5.    isClosed --- 封闭标志 T 封闭
   
6. |;
   
7. (defun XD::PolyLine:Make (pts IsClosed / flag)
   
8.   (if IsClosed
   
9.     (setq flag 1)
   
10.     (setq flag 0)
    
11.   )
    
12. 
    
13.   (entmakeX
    
14.     (append
    
15.       (list
    
16.         '(0 . "LWPOLYLINE")
    
17.         '(100 . "AcDbEntity")
    
18.         '(100 . "AcDbPolyline")
    
19.         (cons 90 (length pts))
    
20.         (cons 70 flag)
    
21.       )
    
22.       (mapcar
    
23.         (function
    
24.           (lambda (x)
    
25.             (cons 10 (list (car x) (cadr x)))
    
26.           )
    
27.         )
    
28.         pts
    
29.       )
    
30.     )
    
31.   )
    
32. )
    
33. 
    

;|<br /> 根据点表和封闭标志创建LWPOLYLINE实体<br /> 参数：<br />    pts ---- 点表<br />    isClosed --- 封闭标志 T 封闭<br /> |;<br /> (defun XD::PolyLine:Make (pts IsClosed / flag)<br />   (if IsClosed<br />     (setq flag 1)<br />     (setq flag 0)<br />   )<br /> <br />   (entmakeX<br />     (append<br />       (list<br />         '(0 . "LWPOLYLINE")<br />         '(100 . "AcDbEntity")<br />         '(100 . "AcDbPolyline")<br />         (cons 90 (length pts))<br />         (cons 70 flag)<br />       )<br />       (mapcar<br />         (function<br />           (lambda (x)<br />             (cons 10 (list (car x) (cadr x)))<br />           )<br />         )<br />         pts<br />       )<br />     )<br />   )<br /> )<br /> <br />

st788796

if 直接返回 70 点对表，吹毛求疵