Attach Xref from different folders

[au-s]

Hello...

I've got this:

(defun c:XREFIN (/ varlist oldvars ans)
  (setq    varlist    (list "CMDECHO" "CLAYER" "CTAB")
    oldvars    (mapcar 'getvar varlist))
  (setvar "cmdecho" 0)
  (if (/= (getvar "ctab") "Model")
    (progn
    (setq
      svar (dos_msgbox
      "New VPORT"
      "New VPORT?"
      4
      3
    )
    )
    (IF (= svar 6)
    (progn
      (if (not (tblsearch "LAYER" "P-------VPORT"))
        (command "-layer" "M" "P-------VPORT" "C" "7" "P-------VPORT" "P" "N" "P-------VPORT" "")
        (setvar "clayer" "P-------VPORT"))
      (prompt "Create New VPORT...")
      (command "-vports" pause pause)))
      (setvar "ctab" "MODEL")
      (command "_.ucs" "w")
      (if (not (tblsearch "LAYER" "P-------XREF"))
   (command "-layer" "M" "P-------XREF" "C" "7" "P-------XREF" "LO" "P-------XREF" "")
    (setvar "clayer" "P-------XREF"))
      (command "._XAttach")
      (while (> (getvar "CMDACTIVE") 0) (command pause))
      (command "_.ucs" "P"))    
    (alert "VPORT cant be created in modelspace!!"))
  (mapcar 'setvar varlist oldvars)
  (princ))

Can I use the xattach above and to somehow first ask me "Do you want to atach from another folder?" If yes, I can go to another folder, if no it continues=?

Is it possible to attach xrefs from another folders?

Best regards!


I think I need to have the similiar function

(if (/= smothing ...)
    (progn
    (setq
      svar (dos_msgbox
      "From another Folder"
      "From another folder?"
      4
      3
    )
    )
    (IF (= svar 6)
    (progn .... Another folder or not lisp-code ...

[Lee Mac]

Hey Aus,

I think I recognise that code from somewhere....

Are you saying you would like to continue inserting XREFs until the users decides to stop?

instead of invoking the command each time?

[au-s]

Yes, exactly what I want

Thanx!!!

[Lee Mac]

I don't have dos functions, but perhaps:

(defun c:XREFIN    (/ varlist oldvars svar flag ans)
  (setq    varlist    (list "CMDECHO" "CLAYER" "CTAB")
    oldvars    (mapcar 'getvar varlist))
  (setvar "cmdecho" 0)
  (if (/= (getvar "ctab") "Model")
    (progn
      (initget "Yes No")
      (setq svar (getkword "\nNew Viewport? {Y/N} <No> :  "))
      (if (= "Yes" svar)
    (progn
      (if (not (tblsearch "LAYER" "P-------VPORT"))
        (command "-layer" "M" "P-------VPORT" "C" "7" "P-------VPORT" "P" "N" "P-------VPORT" "")
        (setvar "clayer" "P-------VPORT"))
      (prompt "Create New VPORT...")
      (command "-vports" pause pause)))
      (setvar "ctab" "MODEL")
      (command "_.ucs" "w")
      (if (not (tblsearch "LAYER" "P-------XREF"))
    (command "-layer" "M" "P-------XREF" "C" "7" "P-------XREF" "LO" "P-------XREF" "")
    (setvar "clayer" "P-------XREF"))
      (while (not flag)
    (command "._XAttach")
    (while (> (getvar "CMDACTIVE") 0) (command pause))
    (initget "Yes No")
    (setq ans (getkword "\nInsert Another? {Y/N} <Yes> : "))
    (if (= ans "No")
      (setq flag T)))
      (command "_.ucs" "P"))
    (alert "VPORT cant be created in modelspace!!"))
  (mapcar 'setvar varlist oldvars)
  (princ))

[au-s]

Thanx Sir for the great help.

Exactly what I wanted...

Regards!

[Lee Mac]

No Probs, glad it worked for you