Help - Lisp Code to get file name or path from picked xref

Discussion in 'AutoCAD' started by Ron Meicho, Jul 22, 2004.

  1. Ron Meicho

    Ron Meicho Guest

    I need some help Lisp Code to get actual file name (not the dialogue
    list or block name) or the full path from a "entsel" picked xref. Thanks

    Ron Meicho
     
    Ron Meicho, Jul 22, 2004
    #1
  2. Ron Meicho

    T.Willey Guest

    (defun c:xpath (/ xr1 xr2 xr3 tx1 tb1)

    (if (setq xr1 (entsel "\nSelect Xref. "))
    (progn
    (setq xr2 (entget (car xr1)))
    (setq tx1 (cdr (assoc 0 xr2)))
    (if (= tx1 "INSERT")
    (progn
    (setq xr3 (cdr (assoc 2 xr2)))
    (setq tb1 (tblsearch "block" xr3))
    (if (assoc 1 tb1)
    (setq xr-path (cdr (assoc 1 tb1)))
    (prompt "\n Block is not an Xref. ")
    ); if
    ); progn
    (prompt "\n No Block or Xref selected.")
    ); if
    ); progn
    (prompt "\n Nothing selected.")
    ); if
    (princ xr-path)
    (princ)
    ); defun

    This should work.

    Tim
     
    T.Willey, Jul 22, 2004
    #2
  3. Ron Meicho

    Ron Meicho Guest

    Thanks....

    Ron Meicho
     
    Ron Meicho, Jul 22, 2004
    #3
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. draw line to middle of 2 picked lines then offset that line help...

  2. update just the picked xref layer properties in current dwg.

  3. Whats the process for figuring found path of xref when xref has no path?

  4. Get Entity, From Entity Name? (vanilla Lisp)

  5. Given library name and cell name, how to get the list of viewnames

  6. How I get the name from the template-file?

  7. remove xref name and pipe from the layername to get a string value

  8. Changing an xref path - the whole path??

Loading...