Lisp to attach xrefs can't get past xref dialogue box

[The_Caddie]

Hi were using AutoCAD 2012,

Im trying to insert an x-ref using lisp the lisp works fine till I come up to the "attach External Reference"dialogue box how do I automate the dialogue box options to be taken along with in the lisp?

(defun C:test()

			(setq MYPOINT MYDIST1)
			(setq MYPOINT (getpoint "\nselect an insertion point"))

(command "x-ref" "attach" "C:/ICT/AutoCAD_Architecture_suite_2012/CUSTOM/TREADSTONE/XREFS/GEBERIT/650-270-00-1.dwg" "650-270-00-1" "A" MYDIST1 "" "")

)

[pbejse]

(command "_-xref" ....

[The_Caddie]

I'm sorry i cant get futher then the following:

(defun C:test4()

			(setq MYPOINT MYDIST1)
			(setq MYPOINT (getpoint "\nselect an insertion point"))

(command "_-xref" "attach" "C:/ICT/AutoCAD_Architecture_suite_2012/CUSTOM/TREADSTONE/XREFS/GEBERIT/650-270-00-1.dwg" "" MYDIST1 )

)

  then it all goes pear shaped with warings of Xref "650-270-00-1" has already been defined?

actually skip that i se where I'm getting the hickup from. i cant workout though why it wont accept my scale input? which i want to have as standard a scale of 1:1??

[pbejse · Accepted solution]

---

@The_Caddie wrote:

I'm sorry i cant get futher then the following:

  then it all goes pear shaped with warings of Xref "650-270-00-1" has already been defined?

actually skip that i se where I'm getting the hickup from. i cant workout though why it wont accept my scale input? which i want to have as standard a scale of 1:1??

---

(defun C:test4  ()
      (setq MYPOINT (getpoint "\nselect an insertion point"))
      (command
            "_-xref"
            "attach"
            "C:/ICT/AutoCAD_Architecture_suite_2012/CUSTOM/TREADSTONE/XREFS/GEBERIT/650-270-00-1.dwg"

            "_Scale"
            "1"
            MYPOINT
            "")
      )

Whats the deal with the variable MYDIST1?

EDIT: i see now MYDIST1 variable is the scale

(defun C:test4  ()
      (setq MYPOINT (getpoint "\nselect an insertion point"))
      (command
            "_-xref"
            "attach"
            "C:/ICT/AutoCAD_Architecture_suite_2012/CUSTOM/TREADSTONE/XREFS/GEBERIT/650-270-00-1.dwg"
            "_Scale"
            MYDIST1
            MYPOINT
            "")
      )

[mikecharbel]

hello , how to add insertion coordinates to this lisp routine ?

thank you

[bhull1985]

(setq MYPOINT (list X Y Z))

[mikecharbel]

that works , thanks a lot

sorry but where i can mark (accept as solution) ? 😛

i cant find it