Xref insert using dimscale

[cadd4la]

Hi everyone,

I need help finishing this program. I can't figure out how to get this to scale the xref file by one over the dimscale when it inserts it into the drawing file.

(defun c:ZDTL ( / xrefLayer osnapMode originalOsnapMode xrefFile insertPoint scaleFactor xrefDoc xrefBlock)
  ;; Load COM libraries
  (vl-load-com)

  ;; Set the desired settings
  (setq xrefLayer "XREF")
  (setq osnapMode 4)

  ;; Get the current osmode value
  (setq originalOsnapMode (getvar "osmode"))

  ;; Turn on osnap mode
  (setvar "osmode" osnapMode)

  ;; Prompt the user to select the file to Xref
  (setq xrefFile (getfiled "Select Xref file" "" "dwg" 1))

  ;; If a valid file path is selected, proceed
  (if xrefFile
    (progn
      ;; Open the Xref file in the background to get DIMSCALE
      (setq xrefDoc (vla-open (vla-get-documents (vlax-get-acad-object)) xrefFile :vlax-false))
      ;; Retrieve the DIMSCALE value from the Xref file
      (setq scaleFactor (vla-getvariable xrefDoc "DIMSCALE"))
      ;; Close the document
      (vla-close xrefDoc)

      ;; Prompt the user to select the insertion point
      (setq insertPoint (getpoint "\nEnter insertion point for Xref: "))

      ;; Convert the insertion point to a 3D point for ActiveX
      (setq insertPoint (vlax-3d-point insertPoint))

      ;; Insert the Xref as an overlay with ActiveX
      (setq xrefBlock
            (vla-attachexternalreference
              (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
              xrefFile     ;; File path of the Xref
              (vl-filename-base xrefFile)  ;; Block name (using file name without extension)
              insertPoint   ;; Insertion point
              scaleFactor   ;; X scale factor
              scaleFactor   ;; Y scale factor
              scaleFactor   ;; Z scale factor
              0             ;; Rotation angle
              :vlax-false   ;; Overlay (not bound)
            ))

      ;; Set the Xref layer
      (vla-put-layer xrefBlock xrefLayer)

      (princ "\nXref inserted and scaled successfully.")
    )
    (princ "\nInvalid Xref file selected.")
  )

  ;; Reset osnap mode
  (setvar "osmode" originalOsnapMode)

  (princ)
)

Thanks,

Cadd4la

[Opie]

Have you stepped through your code? What is the value of scaleFactor after assignment? Have you thought about using the vl-catch-all-apply function and evaluating the associated error message using the vl-catch-all-error-message function when it fails?

[BlackBox]

Might also be helpful if they listed which product(s) they're using, as in this instance, Civil 3D has a checkbox option under Toolspace, Settings tab, Drawing Settings dialog, Units and Zone tab, to 'Scale objects inserted from other drawings' which would make this LISP unnecessary.

[cadd4la]

Might also be helpful if they listed which product(s) they're using, as in this instance, Civil 3D has a checkbox option under Toolspace, Settings tab, Drawing Settings dialog, Units and Zone tab, to 'Scale objects inserted from other drawings' which would make this LISP unnecessary.

Blackbox,

AutoCAD 2025

Cadd4la

[cadd4la]

Have you stepped through your code? What is the value of scaleFactor after assignment? Have you thought about using the vl-catch-all-apply function and evaluating the associated error message using the vl-catch-all-error-message function when it fails?

Opie,

No, I have not stepped through the code. The issue I'm having is if the file that I'm going to xref has the dimscale set to 2' and then xref it into a file it's scaled to 2' (24.00), I need it to be scaled to 0.041667.

Thanks,

Cadd4la

[Opie]

Then you will need to adjust the scaleFactor variable as it correlates with the current drawing. Taking the value from the XREF drawing is fine, but you are not converting it to a different value that is relevant to the current drawing.

[IzharAzati]

As long as Autodesk does not require that the units of measurement be defined in each block in the DWG file, the problem will not be solved! (Including ModelSpace and PaperSpace)