Results 1 to 5 of 5

Thread: Adjusting the .lsp to set the layer the xref is assigned to?

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Join Date
    Login to Give a bone

    Default Adjusting the .lsp to set the layer the xref is assigned to?

    I have taken a .lsp from and I want to alter it slightly so that the Xref can be assigned to a specific layer "z_xref" rather than having it on layer " 0"

    I have written the command below however, I'm unsure where to put it in the lisp (also included below)

    (command "-layer" "m" "z_xref" "")

    (defun c:RlxPsXref (/ _getfolder RLXref_SetPathType app adoc odbs odbx v xref folder dwg xr lay)
      (defun _getfolder ( m / sh f r )
        (setq sh (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application") f (vlax-invoke-method sh 'browseforfolder 0 m 0))
        (vlax-release-object sh)(if f (progn (setq r (vlax-get-property (vlax-get-property f 'self) 'path))(if (wcmatch r "*\") r (strcat r "\")))))
      ; i is 0 (absolute), 1 (relative) of 2 (no) -xref path
      (defun RLXref_SetPathType (i)
        (vl-registry-write (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "cprofile") "\\Dialogs\\XattachDialog") "PathType" i))
      (setq odbs "ObjectDBX.AxDbDocument" v (substr (getvar 'acadver) 1 2) adoc (vla-get-activedocument (setq app (vlax-get-acad-object))))
      (RLXref_SetPathType 1)
        ((vl-catch-all-error-p (setq odbx (vl-catch-all-apply 'vla-getinterfaceobject (list app (if (< (atoi v) 16) odbs (strcat odbs "." v))))))
         (princ "\nObject DBX interface not created!"))
        ((not (setq xref (getfiled "Select Xref to attach" "" "dwg" 0))) (alert "No Xref was selected"))
        ((setq folder (_getfolder "Select folder with drawings to attach xref to"))
         (foreach dwg (vl-directory-files folder "*.dwg" 0)
           (setq dwg (strcat folder dwg))
           (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list odbx dwg)))
      (princ (strcase (strcat "\nError opening: " dwg)))
        (princ (strcat "\nOpening: " dwg))
        ; attach xref
        (if (vl-catch-all-error-p (setq xr (vl-catch-all-apply 'vla-AttachExternalReference
            (list (vla-get-ModelSpace odbx) xref (vl-filename-base xref) (vlax-3d-point 0 0 0) 1 1 1 0 :vlax-false))))
          (princ (vl-catch-all-error-message xr))
                   (vlax-for lay (vla-get-layouts odbx)
                   (if (/= "MODEL" (strcase (vla-get-name lay))) (vlax-invoke odbx 'copyobjects (list xr) (vla-get-block lay))))
                   (vla-delete xr)
        ; save drawing
        (vla-saveas odbx (vla-get-name odbx))
    Last edited by Opie; 2020-08-04 at 02:47 PM. Reason: [code] tags added

Similar Threads

  1. Replies: 4
    Last Post: 2020-03-31, 07:04 PM
  2. Replies: 7
    Last Post: 2010-05-29, 10:03 AM
  3. 2008 SCALE 1:100 xref xref xref xref- scale list issues
    By Apsis0215 in forum AutoCAD Customization
    Replies: 2
    Last Post: 2008-11-21, 08:17 PM
  4. Replies: 12
    Last Post: 2005-08-10, 07:50 PM
  5. Replies: 0
    Last Post: 2004-09-21, 08:00 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts