统计封闭的或者不封闭的LWPOLYLINE的长度

marting

1. (defun c:GetLwClsd  (/ ss) ; Notice that *flag_def* is not localised, as it is a global variable
   
2.   
   
3.   (or *flag_def* (setq *flag_def* "Open")) ;; Set first-time default
   
4.   
   
5.   (initget "Open Closed") ; Only allow these values, allow enter also
   
6.   
   
7.   (setq *flag_def*
   
8.     (cond ((getkword
   
9.              (strcat "\nLooking for [O]pen or [C]losed LWPolylines? <" *flag_def* "> : ")))
   
10.           ;; Either a keyword has been entered, hence set it as the new default
    
11.          
    
12.           (t *flag_def*))) ;; Else use the original default
    
13.   
    
14.   (if (setq ss
    
15.         (ssget "_X"
    
16.           (list (cons 0 "LWPOLYLINE")
    
17.                 (cons 8 (getvar "CLAYER"))
    
18.                 (cons -4 "<OR")
    
19.                 (cons 70 (cond ((eq *flag_def* "Open") 0)   (t 1)))
    
20.                 (cons 70 (cond ((eq *flag_def* "Open") 128) (t 129)))
    
21.                 (cons -4 "OR>"))))
    
22.    
    
23.     (progn
    
24.       (foreach ent  (mapcar 'cadr (ssnamex ss))
    
25.         (setq lay (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))
    
26.         (if (or (eq 1 (logand 1 (cdr (assoc 70 lay))))
    
27.                 (eq 4 (logand 4 (cdr (assoc 70 lay)))))
    
28.           (ssdel ent ss)))
    
29.       (princ (strcat "\n" (itoa (sslength ss)) " found."))
    
30.       (sssetfirst nil ss))
    
31.     (princ "\n<< nothing found >>"))
    
32.   (princ))
    
33. (textscr) ; bring text-window to front and inform user
    
34. (princ "\nSearching LW-Polylines at curent layer.
    
35.           Note: splines, curved fit, and 3D plines
    
36.           will not work\nStart with mit << GetLwClsd >>")
    

(defun c:GetLwClsd  (/ ss) ; Notice that *flag_def* is not localised, as it is a global variable<br />   <br />   (or *flag_def* (setq *flag_def* "Open")) ;; Set first-time default<br />   <br />   (initget "Open Closed") ; Only allow these values, allow enter also<br />   <br />   (setq *flag_def*<br />     (cond ((getkword<br />              (strcat "\nLooking for [O]pen or [C]losed LWPolylines? <" *flag_def* "> : ")))<br />           ;; Either a keyword has been entered, hence set it as the new default<br />           <br />           (t *flag_def*))) ;; Else use the original default<br />   <br />   (if (setq ss<br />         (ssget "_X"<br />           (list (cons 0 "LWPOLYLINE")<br />                 (cons 8 (getvar "CLAYER"))<br />                 (cons -4 "<OR")<br />                 (cons 70 (cond ((eq *flag_def* "Open") 0)   (t 1)))<br />                 (cons 70 (cond ((eq *flag_def* "Open") 128) (t 129)))<br />                 (cons -4 "OR>"))))<br />     <br />     (progn<br />       (foreach ent  (mapcar 'cadr (ssnamex ss))<br />         (setq lay (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))<br />         (if (or (eq 1 (logand 1 (cdr (assoc 70 lay))))<br />                 (eq 4 (logand 4 (cdr (assoc 70 lay)))))<br />           (ssdel ent ss)))<br />       (princ (strcat "\n" (itoa (sslength ss)) " found."))<br />       (sssetfirst nil ss))<br />     (princ "\n<< nothing found >>"))<br />   (princ))<br /> (textscr) ; bring text-window to front and inform user<br /> (princ "\nSearching LW-Polylines at curent layer.<br />           Note: splines, curved fit, and 3D plines<br />           will not work\nStart with mit << GetLwClsd >>")<br />

ray7891

具体怎么用啊？

yoyoho

谢谢 marting 分享学习!!!!