應網友要求寫封閉圖形的角點坐標按數字排序繪線

lee50310

原發文帖



部份程式碼

2. 
   
3. 
   
4. ;----------------------------------------------------------------------------------------
   
5. ;例: 執行 (filter_Value "pt124")
   
6. ;    回應: "124"
   
7. ;
   
8. ;字串過濾數字部份
   
9.   (defun filter_Val (s)
   
10.   (vl-list->string
    
11.     (vl-remove-if
    
12.       '(lambda (x) (or (< x 48) (> x 57)))
    
13.       (vl-string->list s)
    
14.     )
    
15.   )
    
16. )
    
17. 
    
18. ;--------------------------------------------------------------------------------------------------------------------------------------------
    
19. ;例: 執行 (filter_Value "pt124")
    
20. ;    回應: "pt"
    
21. ;
    
22. ;字串過濾文字部份
    
23.   (defun filter_txt (s)
    
24.   (vl-list->string
    
25.     (vl-remove-if
    
26.       '(lambda (x) (not (or (< x 48) (> x 57))))
    
27.       (vl-string->list s)
    
28.     )
    
29.   )
    
30. )
    
31. ;--------------------------------------------------------------------------------------------------------------------------------------------
    
32. 
    
33. ;依串列點繪線
    
34. (defun  dew_line(e1 / tea)
    
35.    
    
36.     (setq n(-(length e1) 1) jb 1 i 0 line_lst nil)
    
37.     (setq p1(cadr(nth i e1)))
    
38.   
    
39.    (repeat n
    
40.         (setq txt_no (strcat (itoa jb) "-" (itoa (+ jb 1))))   ;接合序號 例: jb=1,2,3... ,  txt_no= "1-2" ,"2-3","3-4"....
    
41.         (setq p2(cadr (nth (setq i(1+ i)) e1)))
    
42.         (setq obj2 (red_line p1 p2))
    
43.         (setq line_lst (cons (cons txt_no obj2) line_lst))    ;line_lst= (("1-2" . <圖元名稱: 316e58a0>)("2-3" . <圖元名稱: 417e32e5>) .....)
    
44.         (setq p1 p2)
    
45.         (setq jb (1+ jb))
    
46.     )
    
47.   (setq line_lst(reverse line_lst))
    
48. )
    
49. ;--------------------------------------------------------------------------------------------------------------------------------------------
    
50. 
    

<br /> <br /> ;----------------------------------------------------------------------------------------<br /> ;例: 執行 (filter_Value "pt124")<br /> ;    回應: "124"<br /> ;<br /> ;字串過濾數字部份<br />   (defun filter_Val (s)<br />   (vl-list->string<br />     (vl-remove-if<br />       '(lambda (x) (or (< x 48) (> x 57)))<br />       (vl-string->list s)<br />     )<br />   )<br /> )<br /> <br /> ;--------------------------------------------------------------------------------------------------------------------------------------------<br /> ;例: 執行 (filter_Value "pt124")<br /> ;    回應: "pt"<br /> ;<br /> ;字串過濾文字部份<br />   (defun filter_txt (s)<br />   (vl-list->string<br />     (vl-remove-if<br />       '(lambda (x) (not (or (< x 48) (> x 57))))<br />       (vl-string->list s)<br />     )<br />   )<br /> )<br /> ;--------------------------------------------------------------------------------------------------------------------------------------------<br /> <br /> ;依串列點繪線<br /> (defun  dew_line(e1 / tea)<br />     <br />     (setq n(-(length e1) 1) jb 1 i 0 line_lst nil)<br />     (setq p1(cadr(nth i e1)))<br />   <br />    (repeat n<br />         (setq txt_no (strcat (itoa jb) "-" (itoa (+ jb 1))))   ;接合序號 例: jb=1,2,3... ,  txt_no= "1-2" ,"2-3","3-4"....<br />         (setq p2(cadr (nth (setq i(1+ i)) e1)))<br />         (setq obj2 (red_line p1 p2))<br />         (setq line_lst (cons (cons txt_no obj2) line_lst))    ;line_lst= (("1-2" . <圖元名稱: 316e58a0>)("2-3" . <圖元名稱: 417e32e5>) .....)<br />         (setq p1 p2)<br />         (setq jb (1+ jb)) <br />     )<br />   (setq line_lst(reverse line_lst))<br /> )<br /> ;--------------------------------------------------------------------------------------------------------------------------------------------<br /> <br />

999999

大赞，，，，，谢谢大神分享

cyfdean

谢谢大神分享

skg123

牛呀
这样也能实现

womrli

大赞

czb203

大赞，，，，，谢谢大神分享