[编程交流] 凸包

(setq x 0)
(command "_pline")
(while (= (getvar "cmdactive") 1 ) 
(repeat (length lst)
(nth x lst)
(setq x (+ x 1))
)
)

(defun testpline()
(setq x 0)
(setq np (length lst))
(command "_pline")
(while (and (= (getvar "cmdactive") 1 ) (< x np))
(repeat np
(nth x lst)
(setq x (+ x 1))
)
)
)
(setq lst '((5 5) (10 5) (10 10) (10 5) (5 5)))

(defun polylines(pl)  
   (setq p1 (car pl)
         p2(car (cdr pl)))
 (command "pline" p1 p2 "")
 (setq pl(cdr pl))  
   (while (/= (car (cdr pl)) nil) 
     (setq p3(car (cdr pl)))
     (command "pline" p2 p3 "")
     (command "pedit" (mid p1 p2) "j" (mid p2 p3) "" "")      
     (setq p1 p2
           p2 p3      
           pl (cdr pl))
   )
 (princ)
)
(setq pl '((5 5) (10 5) (10 10) (5 10) (5 7) (5 5)))
(defun mid (a1 a2)
 (list
   (/ (+ (car a1) (car a2)) 2.0)
   (/ (+ (cadr a1) (cadr a2)) 2.0)
 )
)

(setq lst '((164304.0 91248.5 7.547) (164281.0 91262.4 7.381) (164281.0 91262.4 7.381) (164267.0 91269.9 7.881) (164259.0 91251.3 5.392) (164247.0 91236.3 5.086) (164235.0 91220.8 5.315) (164231.0 91211.8 5.332) (164222.0 91205.7 3.096) (164217.0 91197.1 5.072) (164211.0 91189.5 4.977) (164205.0 91181.2 5.01) (164188.0 91124.8 8.502) (164177.0 91127.7 11.429) (164167.0 91110.3 11.696) (164163.0 91101.0 11.925) (164157.0 91098.2 10.55) (164147.0 91086.1 10.418) (164134.0 91080.4 10.045) (164134.0 91080.4 10.045) (164127.0 91081.9 9.331) (164115.0 91086.9 9.352) (164102.0 91092.5 8.444) (164102.0 91092.5 8.444) (164086.0 91103.9 7.949) (164086.0 91103.9 7.949) (164069.0 91115.1 8.978) (164054.0 91128.7 11.494) (164035.0 91138.7 12.4) (164022.0 91143.3 14.446) (164009.0 91143.3 14.215) (163996.0 91142.8 14.327) (163984.0 91143.2 14.987) (163963.0 91141.1 15.749) (163951.0 91133.3 15.457) (163946.0 91130.7 15.605) (163943.0 91129.8 15.908) (163940.0 91110.7 12.691)))

(setq lst '((164304.0 91248.5 7.547) (164281.0 91262.4 7.381) (164281.0 91262.4 7.381) (164267.0 91269.9 7.881) (164259.0 91251.3 5.392) (164247.0 91236.3 5.086) (164235.0 91220.8 5.315) (164231.0 91211.8 5.332) (164222.0 91205.7 3.096) (164217.0 91197.1 5.072) (164211.0 91189.5 4.977) (164205.0 91181.2 5.01) (164188.0 91124.8 8.502) (164177.0 91127.7 11.429) (164167.0 91110.3 11.696) (164163.0 91101.0 11.925) (164157.0 91098.2 10.55) (164147.0 91086.1 10.418) (164134.0 91080.4 10.045) (164134.0 91080.4 10.045) (164127.0 91081.9 9.331) (164115.0 91086.9 9.352) (164102.0 91092.5 8.444) (164102.0 91092.5 8.444) (164086.0 91103.9 7.949) (164086.0 91103.9 7.949) (164069.0 91115.1 8.978) (164054.0 91128.7 11.494) (164035.0 91138.7 12.4) (164022.0 91143.3 14.446) (164009.0 91143.3 14.215) (163996.0 91142.8 14.327) (163984.0 91143.2 14.987) (163963.0 91141.1 15.749) (163951.0 91133.3 15.457) (163946.0 91130.7 15.605) (163943.0 91129.8 15.908) (163940.0 91110.7 12.691)))
(setq x 0)
(command "_3dpoly")
(while (= (getvar "cmdactive") 1 )
(repeat (length lst)
(command (nth x lst))
(setq x (+ x 1))
))
(command "")

(defun Bigal2(lst)
(setq lst '((164304.0 91248.5 7.547) (164281.0 91262.4 7.381) (164281.0 91262.4 7.381) (164267.0 91269.9 7.881) (164259.0 91251.3 5.392) (164247.0 91236.3 5.086) (164235.0 91220.8 5.315) (164231.0 91211.8 5.332)
    (164222.0 91205.7 3.096) (164217.0 91197.1 5.072) (164211.0 91189.5 4.977) (164205.0 91181.2 5.01) (164188.0 91124.8 8.502) (164177.0 91127.7 11.429) (164167.0 91110.3 11.696) (164163.0 91101.0 11.925)
    (164157.0 91098.2 10.55) (164147.0 91086.1 10.418) (164134.0 91080.4 10.045) (164134.0 91080.4 10.045) (164127.0 91081.9 9.331) (164115.0 91086.9 9.352) (164102.0 91092.5 8.444) (164102.0 91092.5 8.444)
    (164086.0 91103.9 7.949) (164086.0 91103.9 7.949) (164069.0 91115.1 8.978) (164054.0 91128.7 11.494) (164035.0 91138.7 12.4) (164022.0 91143.3 14.446) (164009.0 91143.3 14.215) (163996.0 91142.8 14.327)
    (163984.0 91143.2 14.987) (163963.0 91141.1 15.749) (163951.0 91133.3 15.457) (163946.0 91130.7 15.605) (163943.0 91129.8 15.908) (163940.0 91110.7 12.691)))
(setq x 0)
(command "_3dpoly")
(while (= (getvar "cmdactive") 1 )
(repeat (length lst)
(command (nth x lst))
(setq x (+ x 1))
)
)
)