Topic: multiple xrefs....

[Bob Wahr]

Guess by the lack of any additional response it either worked or he gave up.

[ronjonp]

Bob,

That did work.....cept it detaches all xrefs in the drawing. I need to be able to select which xref to detach.

Thanks for the help.

Ron

[Bob Wahr]

That would be easy to add.  Did you want to pick one on screen, pick from a list, type in the name, all of the above?

[ronjonp]

All of the above would be great . I don't know why AutoCAD doesn't have this functionality out of the box .

Ron

[Bob Wahr]

don't have the time or to be truthful the inclination to do it all at least this afternoon.  I will however

a) give you the help you need to make it do all of the above
2) give you one of the above options
or lastly) discuss my rates for completing it per your specs

[ronjonp]

The option to select would be good.

As far as compesation goes....you like beer? I'll be in Tucson in May for a wedding.

Thanks,

Ron

[David Hall]

I'll be in Tucson in May for a wedding.

Thanks,

Ron

let us know when, as beer is always cold here

[Bob Wahr]

I'm all for the beer.  It's going to have to be Monday though.  That work thing is interfering again.

[ronjonp]

I hacked together something that seems to be working alright:

Code: [Select]

;;  Function to detach xref that has multiple references

(defun c:dx (/ ent obj x ss index eobj oname lyr)
 (vl-load-com)
  (while
    (= ent nil)
     (setq ent (car (entsel "\n Select Xref to Detach: ")))
     (if (= ent nil)
       (alert "\n You missed, try again...")
     )
  )
(setq obj (vlax-ename->vla-object ent)
      oname (substr (vla-get-ObjectName Obj)5)
      lyr   (vla-get-Layer Obj)
)
  (if
    (and
      (= (vla-get-ObjectName Obj) "AcDbBlockReference")
      (vlax-property-available-p Obj 'Path)
    )
     (progn
       (setq x    (vlax-get-property obj 'Name)
     ss    (ssget "x" (list (cons '2 x)))
     index -1
       )
       (while (< (setq index (1+ index)) (sslength ss))
(setq obj  (ssname ss index)
       eobj (vlax-ename->vla-object obj)
)
(vla-delete eobj)
       )
     )
     (alert (strcat "\n This program does not work with " oname "s!" "\n" "\n  Please select an Xref."))
  )
  (command "._xref" "D" x)
  (princ (strcat "Xref Name = " x "  --  " (itoa index) " instances deleted and detached.")
  )
  (princ)
)
I won't be there on Monday....we can figure things out.

Cmdr...I'll keep you posted as well. It would be cool to meet some of the "swampers"

Ron

[Andrea]

simply use....


OVERKILL  command.

No workie...
objblk.Detach

Ron

heun !!?? Working for me...

[ronjonp]

Andrea,

Try this:

Xref a drawing onto one paperspace tab. Copy it and paste on another pspace tab.

Now try to detach it.

You should recieve an error "Xref ... has multiple references. Not detached."

Overkill I believe is to find objects on top of objects and deletes the duplicates, has nothing to do with detaching xrefs.

Ron

[Bob Wahr]

ronjonp, I let this drop because you got it worked out in lisp.  Are you happy with what you have or do you want to continue with the VBA thingy?

[ronjonp]

This seems to be working out alright. Thanks for checking.

Ron

[Bob Wahr]

no problem.