Etransmit in LSP/SCR

[bvoorhorst]

Beste CAD-ers,

Heeft iemand enig idee hoe ik een transmit kan maken van de huidige tekening dmv LSP/SCR?
Ik ben er al een beetje mee aan het knoeien geweest, maar het wil niet lukken... Wat ik graag wil is de oude etransmit verwijderen en een nieuwe aanmaken met dezelfde bestandsnaam en lokatie op de verkenner. Het verwijderen van de oude etransmit lukt me wel, maar als ik via de commando-balk een naam wil invoegen voor de etransmit dan neemt hij 1op1 de verwijzing over (!zipfile_default)?!? Wie o wie weet een oplossing? Of misschien heeft iemand wel een veel beter idee?!?

Alvast hartelijk dank!

Groeten, Björn

Dit is het SCR/LSP-file wat ik tot nu toe heb gemaakt... (werkt via StabiBASE).

(if (/= (getvar "DBMOD") 0) (command "._QSAVE"))
open
%
(setq zipfile_default (strcat (getvar "DWGNAME")))
(if (= (strcase (substr zipfile_default (- (strlen zipfile_default) 2))) "DWG")(setq zipfile_default (substr zipfile_default 1 (- (strlen zipfile_default) 4))))
(setq zipfilepath_default (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(if (= (strcase (substr zipfilepath_default (- (strlen zipfilepath_default) 2))) "DWG")(setq zipfilepath_default (substr zipfilepath_default 1 (- (strlen zipfilepath_default) 4))))
(setq zipfilepath_default (strcat zipfilepath_default ".zip"))
delay 100
del
!zipfilepath_default
qsave
cmddia 0
filedia 0
-etransmit
c
!zipfile_default
cmddia 1
filedia 1
zoom extents
qsave

[WebRacer]

dat is vlgs mij onmogelijk...
File-name transparant ingeven ...
Maar ik zou mezelve niet zijn als ik niet een oplossing vond, al weet ik niet waarvoor % moet dienen....

(if (/= (getvar "DBMOD") 0) (command "._QSAVE"))
open
%
(setq zipfile_default (strcat (getvar "DWGNAME")))
(if (= (strcase (substr zipfile_default (- (strlen zipfile_default) 2))) "DWG")(setq zipfile_default (substr zipfile_default 1 (- (strlen zipfile_default) 4))))
(setq zipfilepath_default (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(if (= (strcase (substr zipfilepath_default (- (strlen zipfilepath_default) 2))) "DWG")(setq zipfilepath_default (substr zipfilepath_default 1 (- (strlen zipfilepath_default) 4))))
(setq zipfilepath_default (strcat zipfilepath_default ".zip"))
delay 100
del
!zipfilepath_default
qsave
cmddia 0
filedia 0
(command "-etransmit" "c"  (princ zipfile_default))
cmddia 1
filedia 1
zoom extents
qsave

[bvoorhorst]

Het werkt super!!!

De eerste drie regels zijn belangrijk voor de koppeling met StabiCAD (StabiBASE), een selectie van de tekeningen en het desbetreffende script is voldoende, om het script over de selectie tekeningen uit te kunnen voeren! Dit werkt heel handig bij veel dezelfde handelingen!