Author Topic: RELATIVE REPATH XREF LISP HELP NEEDED  (Read 8812 times)

0 Members and 1 Guest are viewing this topic.

JohnK

  • Administrator
  • Seagull
  • Posts: 10648
Re: RELATIVE REPATH XREF LISP HELP NEEDED
« Reply #15 on: January 25, 2010, 02:36:22 PM »
huh? that make little to no sense. Here is what i got:
Quote
Command: ( (lambda (/ entry xname xpath saved-xref-name)
((_>     (while
(((_>       ;; itterate thru all xrefs in dwg
(((_>       (setq entry (tblnext "block" (not entry)))
(((_>       ;; get the first block
(((_>       (if (cdr (assoc 1 entry))
((((_>         ;; check to see if it has a path (is an xref)
((((_>         ;;
((((_>         ;; if it does..
((((_>         (if (zerop (logand (cdr (assoc 70 entry)) 32))
(((((_>           (princ
((((((_>              (strcat
(((((((_>                "\nExternal Reference is unloaded, but its saved path
is: "
(((((((_>                "\""
(((((((_>                (cdr (assoc 1 entry))
(((((((_>                "\""
(((((((_>                ))
(((((_>            (princ
((((((_>               (strcat "\nExternal Reference is loaded and its saved
path is: "
(((((((_>               "\""
(((((((_>               (cdr (assoc 1 entry))
(((((((_>               "\""
(((((((_>               ))
(((((_>           )
((((_>         ) ; if
(((_>       ); while
((_>     (princ)
((_>     )
(_>  )

External Reference is loaded and its saved path is:
"C:\tmp\Xref-paths\XREFS\Drawing1.dwg"
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org