Topic: entmod name of xref block definition (2 .

[daron]

Wow. Even worse. I would've thought breaking it up would've sped it up some. Sorry to put you through that. Go native lisp.

[ronjonp]

Daron,

Thanks for taking an interest

[daron]

No problem.

[CAB]

Does this do anything for your speed?

Code: [Select]

(defun c:matchxrnametofilename (/ blk path elst xname bname)
  (while (setq blk (tblnext "block" (not blk)))
    (and
      (setq path (cdr (assoc 1 blk))) ; has a path
      (setq xname (strcase (vl-filename-base path) t))
      (setq elst (entget (tblobjname "block" (setq bname (cdr(assoc 2 blk))))))
      (setq elst (entget (cdr (assoc 330 elst))))
      (/= xname (strcase bname t))
      (entmod (subst (cons 2 xname) (cons 2 bname) elst))
    )
  )
  (princ)
)

[ronjonp]

Even faster CAB < Elapsed time: 1.547 seconds. >

I've run into another issue....after running this code, XOPEN does not recognize the xrefs selected ("object selected is not an xref")...it's almost like they become unresolved?

Ron

[CAB]

Cool.

I'll have some time tomorrow afternoon if you don't figure it out by then.

[CAB]

Ron,
Does the vla-put-name version have the same problem?

[ronjonp]

Ron,
Does the vla-put-name version have the same problem?

It does not....but it's rrreeeeaaaalllly slow?

[CAB]

Yea, just wanted to verify that it was the entmod version that had the problem.
Must be something else that needs to be renamed as well!

[ronjonp]

The strange thing is it will unresolve the xref even if the entmod is not changing anything using my code (name already matches)? You can see the problem right away when using CLASSICXREF...the XREF palette does not refresh the changes.

[ronjonp]

You have not figured this one out yet CAB? I'm stumped