---

Hallo Zusammen,

versuche über eine lisp-Programmierung zwischen Papier- und Modellbereich zu wechseln. Hat jemand eine Idee wie das funktionieren könnte?
Der Wechsel zwischen Modell und Layout ist über die Systemvariable TILEMODE gelungen.

Gruss Manuel

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

---

Hallo,

wozu brauchst Du das?
Klick doch einfach auf Layout oder Modell bzw. Papier!
Erklär mal was Du erreichen willst!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

Möchte eine Routine erstellen über die ich den Maßstab in einem Ansichtsfenster einstellen kann. Voraussetzung hierfür sind ja TILEMODE 0 und eben der Modellbereich. Falls dies Einstellungen nicht vorhanden sind, soll die Routine eine Fehlermeldung anzeigen.
Gruss Manuel

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

---

aääh sorry,

rechter mausklick auf das fenster ( Fenster einstellen ) DB
Faktor picken und fertig, oder versteh ich das falsch was du vorhast?

cw

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

---

in Lisp kannst du doch alle Objekte ansprechen egal welcher Bereich gerade aktiv am screen ist !?!? - verstehe dich nicht so ganz....

Oder möchtest du dem User zeigen - Schritt für schritt wie das Programm arbeitet ? - irgendwie Irrsinn...

P.S.: wechsel mit solchen Fragen doch in das LISP-FORUM !
http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&number=145

------------------
- Sebastian Mattis - CAD.de-User Treffen JEDEN Tag !

[Diese Nachricht wurde von cadffm am 29. Oktober 2003 editiert.]

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

---

Hast Du schon richtig Verstanden. Aber es gibt Leute für die ist das noch zu kompliziert. Die wollen einen Button drücken, den Maßstab eingeben und fertig.

Manuel

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

---

OK werde das in dem anderen Forum einbringen

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

---

Hy nicht gleich beleidigt sein

Befehl:mvsetup
mit dem müsste man sowas über nen Button
^C^C_mvsetup; usw steuern lassen (3 Buttons für
3 fixe Maßstäbe) zB.

cw

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

---

Bin nicht beleidigt. Muss mir ja manchmal selber an den Kopf fassen wenn mich manche fragen ob man das nicht automatisieren kann. Über das Kontexmenü eine einfache Sache, aber für diese User immer noch zu schwer.
Aber Danke für Deine Hilfe. Es ist zwar nicht das was ich gesucht habe, hast mich aber auf eine Idee gebracht mit der es auch klappen könnt. Werde es gleich mal versuchen.

Gruss Manuel

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

---

hätte noch ne lösung,kostet aber richtig Euros

Soficad -> da geht das über doppelkick und Dialogbox mit
pulldownmenü :-)

cw

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

---

Zitat:

---

Original erstellt von Manuel Sauter:
Bin nicht beleidigt. Muss mir ja manchmal selber an den Kopf fassen wenn mich manche fragen ob man das nicht automatisieren kann. Über das Kontexmenü eine einfache Sache, aber für diese User immer noch zu schwer.
Aber Danke für Deine Hilfe. Es ist zwar nicht das was ich gesucht habe, hast mich aber auf eine Idee gebracht mit der es auch klappen könnt. Werde es gleich mal versuchen.

Gruss Manuel

---

Hallo,
oder du besuchst mal  www.cadmandu.at
da kannst du ein Fenster erstellen, wirst nach dem Mittelpunkt des Fensters und in einem Dialogfeld nach dem Maßstab gefragt.

------------------

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

---

cadMANdu: http://members.eunet.at/nigg/index.html

lg,
WoK

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

---

link geht nicht :-(
cw

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

---

Hallo Zusammen,
habe eine Lösung gefunden. Die Systemvariable CVPORT ist im Papierbereich und im Modellbereich ohne Ansichtsfenster auf eins gesetzt. Ist ein Ansichtsfenster vorhanden, ist diese Variable ungleich eins.
Danke für alle Hilfs- und Unterstützungsbeiträge

Gruss  Manuel

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

---

Wollen aber auch die früchte sehen :-)
cw

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

---

Anbei meine Lösung zur Maßstabsänderung. Geht vielleicht auch einfacher. Jedoch als Anfänger auf diesem Gebiet, bin ich froh eine Lösung gefunden zu haben.

Gruss Manuel

(defun c:TPMS ( / tilemode MSpace nMass zoomxp cvport)

(setq tilemode (getvar "tilemode"))
(setq cvport (getvar "cvport"))

(cond
((= tilemode 1)
(alert "Maßstab im Modell nicht möglich!\nWechseln Sie in ein Layout")
))

(cond
((and (= tilemode 0) (= cvport 1))
(alert "Maßstab im Papier-Bereich nicht möglich!\nWechseln Sie in den Modell-Bereich")
))

(cond
((and (= tilemode 0) (/= cvport 1))
(prompt "\n ") ;;Prompt new blank line
(initget 6)
(setq nMass (getreal "Neuer Maßstab [1:??] <50>: "))
(if (not nMass) (setq nMass 50.0))
(setq zoomxp (strcat (rtos (/ 1 nMass) 2 3) "xp"))
(command "_zoom" (princ zoomxp))
(prompt "\n ")
))
)

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

---

Wie anfänger sieht das aber nicht aus,
irgendwelche vorkenntnisse ?

werds bei gelegenheit mit ACAD pur testen
cw

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

---

Keine Vorkentnisse, keine Schulung bekommen, alles selber beigebracht aus bestehenden lisp.-Routinen und Unterlagen.
Dann kann ich ja ein wenig stolz auf mich sein :-)

Manuel

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

---

Zitat:

---

Original erstellt von Manuel Sauter:
Keine Vorkentnisse, keine Schulung bekommen, alles selber beigebracht aus bestehenden lisp.-Routinen und Unterlagen.
Dann kann ich ja ein wenig stolz auf mich sein :-)

Manuel

---

Hallo Manuel,

ich bin auch Autodidakt, deshalb kann ich deinen Stolz gut nochvollziehen. Ich habe deinen Code etwas umgestellt. Die vielen (cond ..) sind gar nicht notwendig. Der Vorteil von (cond..) ist ja, dass mehrere Fälle unterschieden werden können. Man sollte die Reihenfolge der Vergleiche beachten, da ja die Vergleiche immer nur bis zur ersten erfüllten Bedingung gemacht werden.

Code:

---

(defun c:TPMS (/ tilemode MSpace nMass zoomxp cvport)
  (setq tilemode (getvar "tilemode")
        cvport (getvar "cvport"))
  (cond
    ((and (= tilemode 0) (/= cvport 1))
    (initget 6)
    (setq nMass (getreal "\nNeuer Maßstab [1:??] <50>: "))
    (if (not nMass)
      (setq nMass 50.0)
      )
    (setq zoomxp (strcat (rtos (/ 1 nMass) 2 3) "xp"))
    (command "_zoom" (princ zoomxp))
    (terpri)
    )
    ((and (= tilemode 0) (= cvport 1))
    (alert "Maßstab im Papier-Bereich nicht möglich!\nWechseln Sie in den Modell-Bereich")
    )
    ((= tilemode 1)
    (alert "Maßstab im Modell nicht möglich!\nWechseln Sie in ein Layout")
    )
    )
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Vielen Dank Holger

Gruss Manuel

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

---

Hmmmm,

ich habe das lisp gerade mal ausprobiert, aber damit erstelle ich doch nur ein neues Layout.
Oder?
Was mach ich falsch?

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

Hai,

funktioniert zwar prima; ist aber wohl für ganz dumme User.
Mit dem Eigenschaftenfenster geht es wesentlich schneller.
Für die gängigen Masstäbe wird man den Skalierfaktor ja wohl noch im "Kopf" behalten können.

Ciao

@Otze Mach Ed
wie erstellst du denn mit der lisp ein neues Layout?
------------------

[Diese Nachricht wurde von AsSchu am 30. Oktober 2003 editiert.]

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

---

Was Du falsch machst kann ich Dir nicht sagen. Sollte schon funktionieren. Dient zur Massstabsändersänderung in einem Ansichtsfenster.

manuel

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

---

Ohhh,

wenn mann sich ein Icon bastelt und es falsch benennt, kann das mal passieren!
Ich hatte (load "Layout");Layout  anstatt  (load "Layout");tpms
als Befehl angegeben.
Naja, jetzt funktioniert es auch bei mir!
...aber das ist ja wirklich was für "DUMMIS"

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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