Macro para guardar un archivo modificado con su nombre basado en el original.

Buenas tardes.

Estoy haciendo un conjunto de acciones que necesito para un trabajo repetitivo a realizar en diferentes archivos dwg.

Tras la ejecución de dichas acciones, me gustaría finalizar la macro con FILEDIA 0, GUARDARCOMO, enter (para que me guarde por defecto en mi versión de AutoCad, y, por ultimo, me da la opción de escribir el nombre del archivo a guardar... Aquí viene la duda, y es que me gustaría que mantuviese el mismo nombre del archivo original pero añadiendo una terminación final, por ejemplo "_mod". Este paso es el que no se como hacer.

Como ejemplo, mi objetivo es abrir un plano (llamémosle Dibujo.dwg), teclear mi macro y que automáticamente se genere un archivo modificado con todas las acciones programadas llamado Dibujo_mod.dwg, en la misma ruta de archivo donde también se mantenga el Dibujo.dwg original.

Espero haberme explicado, muchas gracias.

Hola. Prueba esto

Código:

(vla-SaveAs
   (vlax-get-property
      (vlax-get-acad-object)
      'ActiveDocument
   )
   (strcat
      (getvar "DWGPREFIX")
      (vl-filename-base (getvar "DWGNAME"))
      "_mod.dwg"
   )
   ac2018_dwg
)

donde dice ac2018_dwg puedes poner cualquier otra versión y formato según las constantes que encuentras en la ayuda del autocad en la referencia del metodo saveas
Miralo aqui:
https://help.autodesk.com/view/OARX/2024/ENU/?guid=GUID-ED0D0B02-25FC-4ED2-9DEE-2B0C9AA9416A

Muchas, Muchas, Muchas Gracias Gerardo...

Esto es exactamente lo que necesito.


Una vez mas Gracias Maestro!!!



Saludos