Topic: ENTSEL from context menu (right click)

[Dommy2Hotty]

I want to right click on an object and get that objects data.  How do I pass the selected object to entsel? 

Code: [Select]

  (setq ent (entsel);set object to ent
entdata (car ent);strip second element
entdata (entget entdata);display entity data

[deegeecees]

Not sure what you are asking, with entsel, you are prompted to select an object (left click). I thought right clicking would bring up a context menu, which has no bearing on where your cursor is in the coordinate system.

[Dommy2Hotty]

Sorry...

I want to select an object, right click to bring out the CMEDIT shortcut menu, select a custom command from the shortcut menu that will return the entity data of the selected object.  I don't want to have to re-pick the selected object once entsel is invoked.  If there is another way to go about this, by all means, let me know!

[rkmcswain]

I want to right click on an object and get that objects data.  How do I pass the selected object to entsel? 

Code: [Select]

  (setq ent (entsel);set object to ent
entdata (car ent);strip second element
entdata (entget entdata);display entity data

Code: [Select]

(entget (ssname (nth 1 (ssgetfirst)) 0))

...will return the entity list of the first entity in a selection of gripped entities.

If you want to view all selected entities, you will have to iterate the selection set returned by (ssgetfirst)

[deegeecees]

Typing before last post

I don't think you need to pass it to entsel once the object is selected. I checked "Developer Help" for "object selected", and looked in the "Create Shortcut Menus" section. They give this as an example, but you may want to look at it yourself. S'all I can do, but I know there are others watching. It may get you going in the right direction anyway:

The following AutoLISP® code defines the command OTYPE, which reports the selected object's DXF name.

(defun C:OTYPE()  (cdr (assoc 0 (entget (car (entsel))))))

[daron]

It's okay, before he clarified, I was going to suggest using grread to be able to select an object with the right click. Then I was going to suggest pickfirst, but RK did, so I just left.

[deegeecees]

Yeah, but I put so much time into typing that.  

Hope it works out for ya, and don't be a stranger DTH.   

[daron]

Oh I put some work into it. Nothing fancy, but work nonetheless.

[VovKa]

another useless example

Code: [Select]

(vl-load-com)
(vlr-mouse-reactor nil '((:vlr-beginRightClick . doentget)))
(defun doentget (ReactorObject ParameterList / Ent)
  (if (setq Ent (car (nentselp (car ParameterList))))
    (princ (entget Ent))
  )
)


[daron]

Not as fancy but,

Code: [Select]

(if (and (= (car (grread)) 25)
      (setq ent (nentselp (grread t)))
   )
(setq elist (entget (car ent)))
)
Not sure if it will even work, but that's what I was looking at. Of course it has nothing to do with pickfirst.

[Dommy2Hotty]

Code: [Select]

(entget (ssname (nth 1 (ssgetfirst)) 0))
...will return the entity list of the first entity in a selection of gripped entities.

Exactly what I was looking for!  Thank you all.  I always appreciate the help from everyone! 

[KewlToyZ]

I'm curious what you are doing Dommy, 2009 has quick properties now and those can be fine tuned in the cui as well.

[Dommy2Hotty]

I'm curious what you are doing Dommy, 2009 has quick properties now and those can be fine tuned in the cui as well.

Updating and standardizing our drawings.  This current build will be to convert MTEXT with a quick leader to an MLEADER entity.

1. Select MTEXT entity
2. Right-Click and select "Create MLEADER"
3. Setq mtext contents
4. Delete MTEXT entity
5. Insert MLEADER using MTEXT contents

[Dommy2Hotty]

Also, I will use that to update a selected block.

Right-click on a block
Get the block name
strcat that with a network path
Re-insert the block from the network
ATTSYNC the block that was already in the drawing.

[KewlToyZ]

Interesting production Dommy, at first you had me going back to look at CAB's TextInsertDCL but your doing things a bit more on the fly than static and your changing block name strings with it.
Pretty industrious  :kewl:

[Dommy2Hotty]

Interesting production Dommy, at first you had me going back to look at CAB's TextInsertDCL but your doing things a bit more on the fly than static and your changing block name strings with it.
Pretty industrious  :kewl:

Thank you very much!  BUT!  Can I get it to work the way I want to???  I don't think what I want to do is too involved, but if I get it to work, I'll post the code.  Again, thank you everyone for your help.