Gedeelte van bestandsnaam gebruiken in stempel (OPGELOST)

[sschevers]

Januz,

Met (getvar "dwgprefix") haal je het pad op van je tekening. je kunt vanuit je script voordat gaat plotten in de map waar je dwg's staan een map "plots" aanmaken met

Code Selecteer Uitklappen



(vl-load-com)
  ;; definieer plot dir
  (setq plotdir (strcat(getvar "dwgprefix") "plots"))
  ;; check of dir bestaat
  (if (not (vl-file-directory-p plotdir))
    (progn
      ;; bestaat hij niet dan maak we de dir aan
      (vl-mkdir plotdir)
    )
  )
  ;; deze naam kun je gebruiken voor het afdrukken van je tekening
  (setq plotFileName (strcat plotdir "\\" (substr(getvar "dwgname")1(-(strlen(getvar "dwgname"))4)) ".extensie"))

-plot
n


plotFilename

-purge
a
*
n
zoom
e
qsave
close


.

De variable plotFileName kun je gebruiken op de plek waar je nu de bestandsnaam bepaalt bij het plotten. De lispcode kun je gewoon opnemen in je script.

succes

stephan

[januz]

Hoi Stephan,
Als ik het goed begrijp maak je van:

(vl-load-com)
  ;; definieer plot dir
  (setq plotdir (strcat(getvar "dwgprefix") "plots"))
  ;; check of dir bestaat
  (if (not (vl-file-directory-p plotdir))
    (progn
      ;; bestaat hij niet dan maak we de dir aan
      (vl-mkdir plotdir)
    )
  )
 
een lisp die je aanroept vanuit je script? Met welk commando zou ik dat dan kunnen doen?

en daarna geef ik
(setq plotFileName (strcat plotdir "\\" (substr(getvar "dwgname")1(-(strlen(getvar "dwgname"))4)) ".extensie"))

in plaats van
(strcat plotdir "\\" (substr(getvar "dwgname")1(-(strlen(getvar "dwgname"))4)))?

Gr. Erik.

[sschevers]

Januz,

de lisp code kun je rechstreeks in je script plakken

stephan

[januz]

Stephan, ik krijg het niet aan de praat, dat zal ongetwijfeld aan mij liggen..

Ik heb inmiddels het volgende script:

Code Selecteer Uitklappen

layout
r
"PDF Plattegronden"
Haarlem
(ssget "_X" '((0 . "TEXT,MTEXT")(1 . "maten in cm.")))
erase
p

-insert
"X:\klant\Digitalisatie\klant_onderhoek\Tools\onderhoekklant.dwg"
319.08,35.87
1
1
0
explode
last
(load "WijzOnderhoek.lsp")
(WijzAtt "stempel_klant" "adres" (strcat (nth 3 (SplitDwgName)) " " (nth 1 (SplitDwgName))))
(WijzAtt "stempel_klant" "postcode" (nth 0 (SplitDwgName)))
(vl-load-com)
  (setq plotdir (strcat(getvar "dwgprefix") "plots"))
  (if (not (vl-file-directory-p plotdir))
    (progn
      (vl-mkdir plotdir)
    )
  )
  (setq plotFileName (strcat plotdir "\\" (substr(getvar "dwgname")1(-(strlen(getvar "dwgname"))4)) ".extensie"))
-plot
n



plotFilename


-purge
a
*
n
zoom
e
qsave


Als ik dit script run wordt de pdf weggeschreven in de directory X:\klant\Digitalisatie\klant_onderhoek\Tools, dus de locatie waar de onderhoek vandaan wordt ingevoegd. De naam van het pdf bestand wordt nu plotFilename.pdf.



Ik zal vast iets over het hoofd zien, maar ik zou niet weten wat..

Groet Erik.

[sschevers]

Eric,

probeer het onderstaande stukje eens in je script te plakken:

Code Selecteer Uitklappen


(vl-load-com)
(setq plotdir (strcat(getvar "dwgprefix") "plots"))
(if (not (vl-file-directory-p plotdir))
  (progn
    (vl-mkdir plotdir)
    )
  )
(setq plotFileName (strcat plotdir "\\" (substr(getvar "dwgname")1(-(strlen(getvar "dwgname"))4)) ".pdf"))
(command "-plot"
         "n"
         ""
         ""
         ""
         plotFilename
"n"
"")
(command "-purge" "a" "*" "n")
(command "zoom" "e")
(command "qsave")


Ik heb dit net op een openstaande  tekening geprobeed en de pdf wordt netjes in de map plots gezet

stephan

[januz]

 

Super, het werkt. Ik ben hier echt ontzettend blij mee!

Stephan, ontzettend bedankt voor de tijd en moeite die je erin hebt gestoken!

Groet, Erik.