Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Layouts laden

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Layouts laden (551 mal gelesen)
RoyCAD
Mitglied
Dipl-Ing Energietechnik


Sehen Sie sich das Profil von RoyCAD an!   Senden Sie eine Private Message an RoyCAD  Schreiben Sie einen Gästebucheintrag für RoyCAD

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 24. Aug. 2005 16:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Hallo

Wie immer habe ich da ein Problem, es geht darum, dass in einer bestehenden dwt. Datei habe wo alle unsere Layouts mit Ansichtsfenster gespeichert sind (unter "I:\\ACAD\\Vorlagen\\layouts\\CAD_LAYOUTS“). Ich will ein Lisp schreiben das er, nach der Layoutsname  fragt und dann das entsprechende Layout lädt (aktuelle dwg Datei)
Hat vielleicht schon jemand von euch so was Geschrieben, bzw. kann mir Ansatzpunkte geben wie man so eine LISP-Routine machen kann!?
Vielen Dank für Hinweise!
Gruß
RoyCAD .

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



Sehen Sie sich das Profil von tunnelbauer an!   Senden Sie eine Private Message an tunnelbauer  Schreiben Sie einen Gästebucheintrag für tunnelbauer

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 24. Aug. 2005 16:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

Hi RoyCAD,

bevor du da jetzt großartig selber zum Programmieren anfängst...

Schau dir mal LAYOUT mit der Option Template an; achte aber darauf, dass Filedia auf 1 steht.

EDIT: Was meinst du mit "aktuelle dwg-Datei" ? Du kannst kein Layout aus der aktuellen Datei laden; das wäre eine "zirkuläre Referenz" (ausserdem gäbe es für sowas die "Layout kopieren"-Funktion)
------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 24. Aug. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 24. Aug. 2005 16:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

Code:

(command "_.-layout" "_t" layouttemplatefile layoutnametoimport)

Noch besser, mach das über das DesignCenter...
Dann könne die Kollegen das via Drag&Drop ziehen...
Hierzu helfen vielleicht folgende Code-Fragmente:

Code:

(defun ADCREOPEN ()
  (if (= (getvar "adcstate") 0)
    (command "_.ADCENTER")
  ) ;_ end of if
) ;_ end of defun

...
(setq TARGET (strcat LAYOUTRESSOURCE "\\layouts"))
...
(if TARGET
  (progn
    (ADCREOPEN)
    (command "_.adcnavigate" TARGET)
    (princ "\nOk, erledigt. Weiter im DesignCenter.")
  )
  (princ "\nKEIN Ziel gewählt. Funktionsende !")
)
...


------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 24. Aug. 2005 editiert.]

[Diese Nachricht wurde von marc.scherer am 24. Aug. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz