---

Hallo !

Ich versuche eine Exceltabelle zu erstellen, die mir als einfaches Beispiel mal 3 gewählte Texte in eine bestimmte Zelle schreiben soll.

Die Funktion ansich läuft.
Ich finde allerdings keine Hilfe darin, wie ich die Texthöhe richtig modifizieren kann. Ich finde keine Beschreibung zur vl-Funktion

vla-setcelltextheight 

Hier mein code:

Code:

---

(defun c:foo ( / ActiveDocument mSpace pt myTable nRows nCols row cell
        lst z
      )

  (princ "\nFunktion erstellt eine Tabelle anhand von gewählten Texten")

  (if (setq section (entsel "\nWähle die Section"))
    (if (or (member (cdr (assoc 0 (entget (setq ent (car section))))) '("TEXT"))
    (member (cdr (assoc 0 (entget (setq ent (car section))))) '("MTEXT"))
)
      (progn
(redraw ent 3) (setq section (cdr (assoc 1 (entget ent))))
      )
    )
  )

  (if (setq schakt (entsel "\nWähle die Schakt wert"))
    (if (or (member (cdr (assoc 0 (entget (setq ent (car schakt))))) '("TEXT"))
    (member (cdr (assoc 0 (entget (setq ent (car schakt))))) '("MTEXT"))
)
      (progn
(redraw ent 3) (setq schakt (cdr (assoc 1 (entget ent))))
      )
    )
  )

  (if (setq fyll (entsel "\nWähle die Fyll wert"))
    (if (or (member (cdr (assoc 0 (entget (setq ent (car fyll))))) '("TEXT"))
    (member (cdr (assoc 0 (entget (setq ent (car fyll))))) '("MTEXT"))
)
      (progn
(redraw ent 3) (setq fyll (cdr (assoc 1 (entget ent))))
      )
    )
  )
 
  (command "_regen" "")

  (vl-load-com)
  (setq ActiveDocument (vla-get-activedocument (vlax-get-acad-object)))
  (setq mSpace(vla-get-modelspace ActiveDocument))
  (setq pt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
  ;insertion point for the table
  (vlax-safearray-fill pt (getpoint "\n Wähle einen Einfügepunkt für die Tabelle: "))
  (setq myTable (vla-addtable mSpace pt 3 3 5 10))      ; parameter für Tabellen eigenschaften
  ; Anz. Zeilen
  ; Anz. Spalten
  ; Höhe Zelle
  ; Breite Zelle

  (defun drawCell (table row cell wert)
    (vla-setcelltextheight table 0 0 1)
    (vla-settext table row cell wert)
    (vla-setCellAlignment table 1 0 5)
  )
  (drawCell myTable 0 0 section)
  (drawCell myTable 1 0 "Schakt")
  (drawCell myTable 1 1 schakt)
  (drawCell myTable 2 0 "Fyll")
  (drawCell myTable 2 1 fyll)
   

  (princ)
  );defun

---

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Ah die SUBEXPR war nicht korrekt.
So funktioniert es.

Code:

---

  (defun drawCell (table row cell wert)
    (vla-setcelltextheight table row cell 1)
    (vla-settext table row cell wert)
    (vla-setCellAlignment table row cell 5)
  )

---

Ich wäre trotzdem dankbar, wenn mir jemand Hilfe geben könnte in den mir unbekannten vl-funktionen

Ausgegangen bin ich bei meinem code von der SeiteTEXTEINGABE

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hallo Dirk,
reicht da nicht ein einfaches
(vlax-dump-object table 'T)

=> dann wird doch alles aufgelistet im Textfenster.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Kordinaten einlesen Youtube

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

---

reicht sicherlich. ich finds nur manchmal schei... das
Autodesk keine muehe macht vl besser zu dokumentieren.
ich kann nämlich mit der vbaide ziehmlich wenig anfangen.
google fragen liefert zwar beispiele aber mit dem param muss
man selbst rumspielen bis es passt. der einstieg in vl verbirgt
eine menge stolpersteine. aber das thema hatten wir bereits.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Excel ist von Microsoft  und nicht von Autodesk  und Methodenaufruf bzw. Zugriff auf die Properties über die Com-Schnittstelle ist immer das gleiche und erfolgt über die Funktionen:
vlax-invoke-methode  und vlax-get-property / vlax-put-property

vla-irgendwas ist nur die "interne Abkürzung" für den Funktionsaufruf

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

VBaide.gif

Hallo Dirk,
eigentlich ist es doch immer dasselbe, im folgenden Ein Beispiel mit einer Linie:

Code:

---

;Objekt wählen: ; IAcadLine2: AutoCAD Line-Schnittstelle (Linie)
; Eigenschaftswerte:
;  Angle (RO) = 5.36914
;  Application (RO) = #<VLA-OBJECT IAcadApplication 00000001401f91d8>
;  Delta (RO) = (275.47 0.0 -9.09495e-013)
;  Document (RO) = #<VLA-OBJECT IAcadDocument 0000000030292d30>
;  EndPoint = (-4836.76 3533.39 11464.7)
;  EntityTransparency = "VonLayer"
;  Handle (RO) = "A9FA"
;  HasExtensionDictionary (RO) = 0
;  Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003d5c9e18>
;  Layer = "0"
;  Length (RO) = 275.47
;  Linetype = "ByLayer"
;  LinetypeScale = 1.0
;  Lineweight = -1
;  Material = "ByLayer"
;  Normal = (-0.779946 -0.601274 -0.173648)
;  ObjectID (RO) = 12499
;  ObjectID32 (RO) = 12499
;  ObjectName (RO) = "AcDbLine"
;  OwnerID (RO) = 12500
;  OwnerID32 (RO) = 12500
;  PlotStyleName = "ByLayer"
;  StartPoint = (-5004.95 3751.55 11464.7)
;  Thickness = 0.0
;  TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000003fbbf5b0>
;  Visible = -1
; Unterstützte Methoden:
;  ArrayPolar (3)
;  ArrayRectangular (6)
;  Copy ()
;  Delete ()
;  GetBoundingBox (2)
;  GetExtensionDictionary ()
;  GetXData (3)
;  Highlight (1)
;  IntersectWith (2)
;  Mirror (2)
;  Mirror3D (3)
;  Move (2)
;  Offset (1)
;  Rotate (2)
;  Rotate3D (3)
;  ScaleEntity (2)
;  SetXData (2)
;  TransformBy (1)
;  Update ()

(defun c:test ( / )
  (setq vla-obj (vlax-ename->vla-object (car (entsel "\nLinie wählen:"))))
  ;;;Beispiel schieben, 2 Parameter
  (vlax-invoke vla-obj 'Move (vlax-3D-point '(0.0 0.0 0.0)(vlax-3D-point '(10.0 0.0 0.0))))
  ;;;Beispiel Eigenschaft ändern
  (vlax-put vla-obj 'Layer "MeinLayer")
  ;;;Beispiel Eigenschaften beziehen
  (vlax-get vla-obj 'Layer)
  )

---

Ich weiß nicht mehr welcher Beitrag es war, auf jeden Fall hatte Holger das schon mal sehr schön erklärt.
Für Eigenschaften gibt es
vlax-put und vlax-get, optional kannst Du z.B. auch vla-get-layer verwenden.
Vorteil von (vlax-get vla-obj 'StartPoint) gegenüber (vla-get-StartPoint vla-obj): es wird gleich eine Liste zurückgegeben und kein Variant
(vlax-get vla-obj 'StartPoint) => (-5004.95 3751.55 11464.7)
(vla-get-StartPoint vla-obj) => #<variant 8197 ...>

Für Methoden kannst Du vlax-invoke verwenden, die Anzahl der Argumente wird Dir in den Klammern dargestellt.
Wenn ich nicht weiß, was für Argumente gefordert sind, dann verwende ich den Objektkatalog von VBAIDE, siehe auch das beigefügte Bild.

Und wenn es um Excel-Objekte geht, dann verwende ich einfach den Objektkatalog bei der VBA-Umgebung von Excel, tja, und ein bißchen ausprobieren muss man dann eh.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Kordinaten einlesen Youtube

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

---

hi Jörn
super ja ich erinnere mich auch, das holger das
ähnlich schon einmal beschrieben hat. was mir
in deinem anhang auffiel, wie du in der vba umgebung
die argumente raussuchen kannst, die es bedarf.
werd ich morgen gleich mal ausprobieren. super hilfe,
vielen dank.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Der Tip mit dem VBA verweis hat den Stein ins rollen gebracht, um mich noch mehr mit VLISP auseinanderzusetzen.
Ich war mir doch sicher, dass mir eine Tür bisher verschlossen blieb.
Ich click jetzt 1000 mal auf 10uŽs

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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