| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Maßstab in Viewport-Objekt (1083 mal gelesen)
|
Zweistein Mitglied Dipl.-Ing. Bau / SFI
Beiträge: 16 Registriert: 07.07.2005
|
erstellt am: 24. Nov. 2006 14:14 <-- editieren / zitieren --> Unities abgeben:
Hallo! Gegeben ist ein Viewport-Objekt im Layoutbereich. Mit (setq vp_name (ssname vp_aws vp_zae) vp_eedliste (entget vp_name '("ACAD"))) wird die Entityliste des Viewport freigelegt. Frage: Warum hinterlässt... (setq vp_p-hoe (cdr (assoc 41 vp_eedliste)) vp_m-ahoe (cdr (assoc 45 vp_eedliste)) vp_m-amast (* (/ vp_m-ahoe vp_p-hoe) 1000) inf-amast (rtos vp_m-amast 2 0) ) ;Massstab im Ansichtsfenster vereinbaren (princ "\n\nDer aktuelle Abbildungsmaßstab zum Modell-Bereich ist 1:") (princ inf-amast) (initget (+ 2 4)) (setq vp_m-nmast (getint "\nNeuer Maßstab <1:500 bei RETURN> 1:") ) (if (= vp_m-nmast NIL) (setq vp_m-nmast 500)) (setq vp_m-nhoe (/ (* vp_m-nmast vp_p-hoe) 1000)) (setq vp_eedliste (subst (cons 45 vp_m-nhoe) (assoc 45 vp_eedliste) vp_eedliste) ) (entmod vp_eedliste) ...nicht die erwartete Wirkung?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 24. Nov. 2006 15:19 <-- editieren / zitieren --> Unities abgeben: Nur für Zweistein
Hallo Zweistein, warum das entmod nicht funktioniert weiß ich nicht, geht bei mir auch nicht. Dann sind da aber noch die ganzen INTEGERS, z.B. wäre (/ 500 1000) => 0 Wenn Du eine REAL verwendest: (/ 500 1000.0) => 0.5 Ich habe die Formel noch ein bißchen umgestellt und es mit ActiveX ausprobiert: Bei meinem Testlauf schien das Ergebnis plausibel.
Code:
(defun c:test ( / ) (setq vp_eedliste (entget (car(entsel)))) (setq vp_p-hoe (cdr (assoc 41 vp_eedliste)) vp_m-ahoe (cdr (assoc 45 vp_eedliste)) vp_m-amast (* (/ vp_m-ahoe vp_p-hoe) 1000.0) inf-amast (rtos vp_m-amast 2 0) ) ;Massstab im Ansichtsfenster vereinbaren (princ "\n\nDer aktuelle Abbildungsmaßstab zum Modell-Bereich ist 1:") (princ inf-amast) (initget (+ 2 4)) (setq vp_m-nmast (getint "\nNeuer Maßstab <1:500 bei RETURN> 1:") ) (if (= vp_m-nmast NIL) (setq vp_m-nmast 500)) (setq vp_m-nhoe(/ 1.0 (/ vp_m-nmast 1000.0))) (vl-load-com) ;;;Scale zuweisen (vla-put-CustomScale(vlax-ename->vla-object (cdr(assoc -1 vp_eedliste)))vp_m-nhoe) )
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 24. Nov. 2006 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für Zweistein
|
Zweistein Mitglied Dipl.-Ing. Bau / SFI
Beiträge: 16 Registriert: 07.07.2005
|
erstellt am: 27. Nov. 2006 07:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Joern! Danke für den Gegentest und für den Code-Vorschlag! Es bleibt zunächst noch die Vermutung, dass etvl. im Bereich der EEDs (GC 1040) ebenfalls ein neuer Wert eingetragen werden muss, damit bei GC 45 ein neuer Wert akzeptiert wird. In einem Buch aus den 90ern zum Thema dxf-Standard (Rossipaul) haben offenbar die EEDs noch eine viel größere Bedeutung. Hallo CADchup! Danke für Deinen Hinweis, dass die Aufgabe nur mit ActiveX zu lösen sei. Kannst Du hierzu auch eine Begründung liefern, warum dies so ist? Wie sah denn die Lösung hierzu vor ActiveX aus - meines Wissens gab es Tilemode auch schon zu MS-Dos-Zeiten... ? Gruß Zweistein Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Nov. 2006 07:46 <-- editieren / zitieren --> Unities abgeben: Nur für Zweistein
Zitat: Original erstellt von Zweistein: ... dass die Aufgabe nur mit ActiveX zu lösen sei. Kannst Du hierzu auch eine Begründung liefern, warum dies so ist?
.. das Bearbeiten von Viewports ist in den Funktionen einfach nicht entmod / entmake nicht implementiert.(Punkt!!) Warum weiß der Entwickler! ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |