Topic: same solid size select

[dussla]

hello , good good freind
always good luck

i meet a problem.
that is solid select.
i made a many solid  , but i have  to select  same  volume solid.
is that possible ?

 
.

[BlackBox]

I would create a selection set of all solids (if present), and prompt the user to select a single desired solid, then iterate the selection set to identify the similar solids and add them to a new selection set then use sssetfirst function.

HTH

[ribarm]

Quick, just like RenderMan proposed :

Code: [Select]

(defun c:solvolsel ( / ss s1 es1a es1 vol sss n es ) (vl-load-com)
  (setq ss (ssget "_X" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
  (setq s1 (ssget "_:E:S:L" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
  (setq es1a (vlax-ename->vla-object (setq es1 (ssname s1 0))))
  (setq vol (vla-get-volume es1a))
  (setq sss (ssadd))
  (repeat (setq n (sslength ss))
    (setq es (ssname ss (setq n (1- n)) ))
    (if (equal (vla-get-volume (vlax-ename->vla-object es)) vol 1e-8) (ssadd es sss) )
  )
  (ssadd es1 sss)
  (sssetfirst nil sss)
  (princ)
)

M.R.

[BlackBox]

Quick, just like RenderMan proposed :

Cheers, dude. *Tips hat*

Separately, be cautious of this  :

Code: [Select]

_$ (setq s1 (ssget "_:E:S:L" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
_$ <Right Click>
nil
_$


[alanjt]

Quick, just like RenderMan proposed :

Cheers, dude. *Tips hat*

Separately, be cautious of this  :

Code: [Select]

_$ (setq s1 (ssget "_:E:S:L" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
_$ <Right Click>
nil
_$


Conditionals?!? We don't need no stinking conditionals!

[ribarm]

Quick, just like RenderMan proposed :

Cheers, dude. *Tips hat*

Separately, be cautious of this  :

Code: [Select]

_$ (setq s1 (ssget "_:E:S:L" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
_$ <Right Click>
nil
_$


Conditionals?!? We don't need no stinking conditionals!

Yes, conditionals are there to make sure that picked object is 3DSOLID and have Volume property that is checked later on... And for missing to hit an object I agree, just try again... 

M.R.

[alanjt]

Quick, just like RenderMan proposed :

Cheers, dude. *Tips hat*

Separately, be cautious of this  :

Code: [Select]

_$ (setq s1 (ssget "_:E:S:L" (list '(0 . "3DSOLID") (cons 410 (getvar 'ctab))) ))
_$ <Right Click>
nil
_$


Conditionals?!? We don't need no stinking conditionals!

Yes, conditionals are there to make sure that picked object is 3DSOLID and have Volume property that is checked later on...

M.R.

RM was referring to the use of cond/and/or/if. I was just being myself.

[BlackBox]

Conditionals?!? We don't need no stinking conditionals!

 

Yes, conditionals are there to make sure that picked object is 3DSOLID and have Volume property that is checked later on... And for missing to hit an object I agree, just try again... 

Marko, I'm not sure that I understand.... Are the rolling eyes meant to convey that you understand and/or agree, or that you disagree? 

[ribarm]

I agree Render, just I am little bit lazy to modify myself...
 

[BlackBox]

I agree Render, just I am little bit lazy to modify myself...
 

No worries, my friend  ... I can relate.