选出相交的三维实体

434939575

2. (defun c:TT ( / *error* sol_ el sol n newrel sol1 interf sol_interf ss )
   
3.     (vl-load-com)
   
4.     (defun *error* ( msg )
   
5.         (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
   
6.         (if msg (prompt msg))
   
7.         (princ)
   
8.     )
   
9. 
   
10.     (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
    
11.     (if (and
    
12.             (princ "\nSelect 3D SOLIDS")
    
13.             (progn
    
14.                 (while (or (null sol_) (< (sslength sol_) 2))
    
15.                     (setq sol_ (ssget "_:L" '((0 . "3DSOLID"))))
    
16.                     (cond
    
17.                         ( (null sol_) (prompt "\nEmpty sel. set... Try selecting again...") )
    
18.                         ( (< (sslength sol_) 2) (prompt "\nSelected one 3D SOLID, please select more... Try selecting again...") )
    
19.                     )
    
20.                 )
    
21.                 t
    
22.             )
    
23.         )
    
24.         (progn
    
25.             (setq el (entlast))
    
26.             (repeat (setq n (sslength sol_))
    
27.                 (setq sol (cons (ssname sol_ (setq n (1- n))) sol))
    
28.             )
    
29.             (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-checkinterference (list (vlax-ename->vla-object (car sol)) (vlax-ename->vla-object (cadr sol)) :vlax-true)))
    
30.               (setq newrel t)
    
31.               (if (not (eq el (entlast)))
    
32.                   (entdel (entlast))
    
33.               )
    
34.             )
    
35.             (setq sol1 sol)
    
36.             (setq interf 0)
    
37.             (if newrel
    
38.                 (progn
    
39.                     (mapcar
    
40.                         '(lambda (a)
    
41.                              (mapcar
    
42.                                  '(lambda (b)
    
43.                                       (if (vla-CheckInterference (vlax-ename->vla-object a) (vlax-ename->vla-object b) :vlax-true 'test)
    
44.                                           (progn
    
45.                                               (setq sol_interf (cons a sol_interf))
    
46.                                               (setq sol_interf (cons b sol_interf))
    
47.                                               (entdel (entlast))
    
48.                                               (setq interf (1+ interf))
    
49.                                           )
    
50.                                       )
    
51.                                  )
    
52.                                  (setq sol1 (cdr sol1))
    
53.                              )
    
54.                         )
    
55.                         (reverse (cdr (reverse sol)))
    
56.                     )
    
57.                 )
    
58.                 (progn
    
59.                     (mapcar
    
60.                         '(lambda (a)
    
61.                              (mapcar
    
62.                                  '(lambda (b)
    
63.                                       (if (vla-CheckInterference (vlax-ename->vla-object a) (vlax-ename->vla-object b) :vlax-true)
    
64.                                           (progn
    
65.                                               (setq sol_interf (cons a sol_interf))
    
66.                                               (setq sol_interf (cons b sol_interf))
    
67.                                               (entdel (entlast))
    
68.                                               (setq interf (1+ interf))
    
69.                                           )
    
70.                                       )
    
71.                                  )
    
72.                                  (setq sol1 (cdr sol1))
    
73.                              )
    
74.                         )
    
75.                         (reverse (cdr (reverse sol)))
    
76.                     )
    
77.                 )
    
78.             )
    
79.             (setq ss (ssadd))
    
80.             (foreach ent sol_interf (ssadd ent ss))
    
81.             (sssetfirst nil ss)
    
82.             (princ
    
83.                 (strcat
    
84.                     "\nNumber of 3D SOLIDS : " (itoa (sslength ss))
    
85.                     " - Number of interferences : "(itoa interf)
    
86.                 )
    
87.             )
    
88.         )
    
89.     )
    
90.     (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
    
91.     (princ)
    
92. )
    

(defun c:TT ( / *error* sol_ el sol n newrel sol1 interf sol_interf ss )<br />     (vl-load-com)<br />     (defun *error* ( msg )<br />         (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))<br />         (if msg (prompt msg))<br />         (princ)<br />     )<br /> <br />     (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br />     (if (and<br />             (princ "\nSelect 3D SOLIDS")<br />             (progn<br />                 (while (or (null sol_) (< (sslength sol_) 2))<br />                     (setq sol_ (ssget "_:L" '((0 . "3DSOLID"))))<br />                     (cond<br />                         ( (null sol_) (prompt "\nEmpty sel. set... Try selecting again...") )<br />                         ( (< (sslength sol_) 2) (prompt "\nSelected one 3D SOLID, please select more... Try selecting again...") )<br />                     )<br />                 )<br />                 t<br />             )<br />         )<br />         (progn<br />             (setq el (entlast))<br />             (repeat (setq n (sslength sol_))<br />                 (setq sol (cons (ssname sol_ (setq n (1- n))) sol))<br />             )<br />             (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-checkinterference (list (vlax-ename->vla-object (car sol)) (vlax-ename->vla-object (cadr sol)) :vlax-true)))<br />               (setq newrel t)<br />               (if (not (eq el (entlast)))<br />                   (entdel (entlast))<br />               )<br />             )<br />             (setq sol1 sol)<br />             (setq interf 0)<br />             (if newrel<br />                 (progn<br />                     (mapcar<br />                         '(lambda (a)<br />                              (mapcar<br />                                  '(lambda (b)<br />                                       (if (vla-CheckInterference (vlax-ename->vla-object a) (vlax-ename->vla-object b) :vlax-true 'test)<br />                                           (progn<br />                                               (setq sol_interf (cons a sol_interf))<br />                                               (setq sol_interf (cons b sol_interf))<br />                                               (entdel (entlast))<br />                                               (setq interf (1+ interf))<br />                                           )<br />                                       )<br />                                  )<br />                                  (setq sol1 (cdr sol1))<br />                              )<br />                         )<br />                         (reverse (cdr (reverse sol)))<br />                     )<br />                 )<br />                 (progn<br />                     (mapcar<br />                         '(lambda (a)<br />                              (mapcar<br />                                  '(lambda (b)<br />                                       (if (vla-CheckInterference (vlax-ename->vla-object a) (vlax-ename->vla-object b) :vlax-true)<br />                                           (progn<br />                                               (setq sol_interf (cons a sol_interf))<br />                                               (setq sol_interf (cons b sol_interf))<br />                                               (entdel (entlast))<br />                                               (setq interf (1+ interf))<br />                                           )<br />                                       )<br />                                  )<br />                                  (setq sol1 (cdr sol1))<br />                              )<br />                         )<br />                         (reverse (cdr (reverse sol)))<br />                     )<br />                 )<br />             )<br />             (setq ss (ssadd))<br />             (foreach ent sol_interf (ssadd ent ss))<br />             (sssetfirst nil ss)<br />             (princ<br />                 (strcat<br />                     "\nNumber of 3D SOLIDS : " (itoa (sslength ss))<br />                     " - Number of interferences : "(itoa interf)<br />                 )<br />             )<br />         )<br />     )<br />     (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))<br />     (princ)<br /> )<br />

434939575

请问朋友们 怎样编辑修改三维实体的尺寸。

guosheyang

你这具体是要实现啥效果呢   动图没看明白