selection set .. make it hidden?

ok.. if you select an object to move.. or the like... cad ghosts the
selection so you can see what you picked (and see it as you move it)..

can this be duplicated in lisp?

 

Yes, look at the "redraw" lisp command.

Tim

 

Google -> Groups -> Acet-ss-drag

You'll see a lot of links.

 

awsome.

 

If this is for in-house use and you have the required
library (part of the express tools) then it may be ok
to rely on this. If you're distributing to others, then
make no assumptions about whether this function is
available.

 

This would do it...

(vla-highlight (vlax-ename->vla-object <ename>) :vlax-true)

(vl-load-com)
(setq enam (car (entsel "\nSelect object: ")))
(if enam (vla-highlight (vlax-ename->vla-object enam) :vlax-true))

Don

 

how would you use this on a sset of anything larger than 1 object?

 

if i understand the question(didnt' see first part of thread)
assuming ss1 is your selection set
(if ss1
(progn
(setq i 0)
(repeat (sslength ss1)
(setq en (ssname ss1 i))
(vla-highlight (vlax-ename->vla-object en) :vlax-true)
(setq i (1+ i))
);repeat
);progn
);if

or
(if ss1
(progn
(setq i -1)
(repeat (sslength ss1)
(setq en (ssname ss1 (setq i (1+ i))))
(vla-highlight (vlax-ename->vla-object en) :vlax-true)
);repeat
);progn
);if

 

ok.. and how to un-highlight?

 

Hi...

(vla-highlight (vlax-ename->vla-object en) :vlax-false)

Un saludo de SpeedCAD...
CHILE
FORO: http://www.hispacad.com/foro

 

thank you all.

 

For the toolbox:

This would Highlight an ENAME or a SS...

(defun Hilite (ss / n lst)
(cond
((= (type ss) 'ENAME)
(vla-highlight (vlax-ename->vla-object ss) :vlax-true)
)
((= (type ss) 'PICKSET)
(repeat (setq n (sslength ss))
(setq n (1- n))
(vla-highlight
(vlax-ename->vla-object (ssname ss n))
:vlax-true
)
)
)
)
)

This would UnHighlight an ENAME or a SS...

(defun UnHilite (ss / n lst)
(cond
((= (type ss) 'ENAME)
(vla-highlight (vlax-ename->vla-object ss) :vlax-true)
)
((= (type ss) 'PICKSET)
(repeat (setq n (sslength ss))
(setq n (1- n))
(vla-highlight
(vlax-ename->vla-object (ssname ss n))
:vlax-false
)
)
)
)
)

Don

 

SORRY!

Use this version.

(defun Hilite (ss / n lst)
(cond
((= (type ss) 'ENAME)
(vla-highlight (vlax-ename->vla-object ss) :vlax-true)
)
((= (type ss) 'PICKSET)
(repeat (setq n (sslength ss))
(setq n (1- n))
(vla-highlight
(vlax-ename->vla-object (ssname ss n))
:vlax-true
)
)
)
)
)
(defun Hilite (ss / n lst)
(cond
((= (type ss) 'ENAME)
(vla-highlight (vlax-ename->vla-object ss) :vlax-false)
)
((= (type ss) 'PICKSET)
(repeat (setq n (sslength ss))
(setq n (1- n))
(vla-highlight
(vlax-ename->vla-object (ssname ss n))
:vlax-false
)
)
)
)
)