Topic: Macro - User Selects Object

[MSTG007]

I am trying to write a simple macro that will reset the visretain on a selected xref and reload it. I know I can get away with it when I reload all (*). How can I get it to where the user would select an object. I know that the user can pick using the (\).

^C^Cvisretain;0;-xref;reload;(USER SELECTS);visretain;1;

Thank you

[ronjonp]

Look into ENTSEL then use ENTGET and retrieve CODE 2 with ASSOC.

[MSTG007]

Thanks for sharing this. Here is the macro I am messing with below:

The Command I am using:

Code: [Select]

^C^Cvisretain;0;-xref;reload;(setq e (entsel "Please choose an object: "));visretain;1;

The Error I am getting:

Code: [Select]

Command: visretain
Enter new value for VISRETAIN <0>: 0
Command: -xref
Enter an option [?/Bind/Detach/Path/pathType/Unload/Reload/Overlay/Attach] <Attach>: reload
Enter xref name(s) to reload: (setq e (entsel "Please choose an object: "))
Please choose an object: visretain
*Invalid selection*
Expects a point or Last
Please choose an object: nil
Maybe I am not using this in the right sequencing or I need to add more?

[ronjonp]

Looks like the command line version is expecting a name of the xref to reload so it won't let you pick it in that sequence. Do you know what (ENTSEL) returns?

Here's a fish 

Code - Auto/Visual Lisp: [Select]

1. (defun c:vr (/ b)
2.   (vl-load-com)
3.   (if (and (setq b (car (entsel "\nPick an XREF to reload: ")))
4.            (= (cdr (assoc 0 (entget b))) "INSERT")
5.            (setq b (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
6.                              (cdr (assoc 2 (entget b)))
7.                    )
8.            )
9.            (minusp (vlax-get b 'isxref))
10.       )
11.     (progn (setvar 'visretain 0) (vla-reload b) (setvar 'visretain 1))
12.   )
13.   (princ)
14. )

[MSTG007]

yup it returns this value

Code: [Select]

Please choose an object: visretain
*Invalid selection*
Expects a point or Last
Please choose an object: (<Entity name: 7ffffb9d880> (188827.0 1.73852e+006 0.0))