---

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

---

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

---

Hi,

da geht nur ActiveX. Man kann keine Vports entmoden.

Gruß
CADchup

------------------
CADmaro.de

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

---

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

---

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