CADsite forum

Goedenavond,

ik heb een probleem met het wegschrijven van een attext commando.
ik heb hier voor een kleine lisp geschreven maar krijg niet het voor elkaar wat ik wil.
hij doet het wel maar ik moet altijd het bestandsnaam aanpassen. Is het mogelijk dat autocad het bestandsnaam gelijk aanpast en weg schrijf in de dir waar ook het dwg bestand staat.
Ik zou graag willen zien dat hij het weg schrijft met PLC "dwg bestandsnaam".txt
mijn lisp is

(DEFUN C:EMS ()
    (TEXTSCR)   
    (PRINC "\n*-*-*-*-*-*-*-* TOOLKIT *-*-*-*-*-*-*-*-*\n")

    (princ "\nPLC    : Het wegschrijven van de IO Lijst")


)
(DEFUN C:PLC ()(_PLC))
(DEFUN _PLC (/)
   (command "ATTEXT" "SDF" (strcat "//PC_Naam/Stabicad/Bin/PLC_lijst.txt") (strcat SwapDir "PALXTRAC"))
)
plc


Ik hoop dat jullie mij hiermee kunnen helpen
Freddy

Is dit de volledige code?
Waar wordt de variabele SwapDir gedefinieerd?

Wat denkt u hiervan:
(Defun c:plc ( / #ExtractFile )
  (setq #ExtractFile (strcat (getvar "dwgprefix") "PLC " (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) ".txt"))
  (command "attext" "Sdf" "//PC_Naam/Stabicad/Bin/PLC_lijst.txt" #ExtractFile)
)

En Freddy? Hebt u het al kunnen testen?

TS is niet meer geïnteresseerd blijkbaar.

Hij is met vakantie of t werkt gewoon!

Hoi gery,

sorry voor mijn late reactie.
vroeger kreeg ik altijd een mailtje als er mensen gereageerd hadden maar dat is helaas niet gebeurt dit keer.
ik denk een instelling dus fout van mij.
maar ik wil je hierbij bedanken want het werk helemaal top.

Oké, bedankt voor de terugkoppeling.