| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Excel tabelle via Lisp (1718 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 19. Sep. 2013 12:39 <-- editieren / zitieren --> Unities abgeben:
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 |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 19. Sep. 2013 13:05 <-- editieren / zitieren --> Unities abgeben:
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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 19. Sep. 2013 14:32 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 19. Sep. 2013 14:57 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Sep. 2013 15:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 19. Sep. 2013 15:23 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
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 |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 19. Sep. 2013 15:40 <-- editieren / zitieren --> Unities abgeben:
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 |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 20. Sep. 2013 11:56 <-- editieren / zitieren --> Unities abgeben:
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 |