| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Selektion als Collection in einer Sysvar (674 mal gelesen)
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005
|
erstellt am: 01. Nov. 2005 16:18 <-- editieren / zitieren --> Unities abgeben:
Hallo, hab da als VB'ler ein Problem: Ich möchte mit VBA Entity`s bearbeiten. Das klappt alles prima. Der notwendige Befehl in AutoCAD wird über ein VB Makro erzeugt.
Code:
' Befehl einrichten vlst_cmd = "(defun c:" & vlst_Befehl & " (/) (vla-runmacro(vlax-get-acad-object) """ & vlst_Befehl & """))" & Chr$(13) ThisDrawing.SendCommand vlst_cmd
Letztendlich wird per VB ein lisp Befel ausgeführt
Code:
(defun c:MeinBefehl (/) (vla-runmacro(vlax-get-acad-object) MeinVBAMakro))
Klappt alles prima: Makro startet, Aufforderung zur Objektwahl, Maske geht auf. Das Problem ist, dass ich in VBA irgendwie nicht abfragen kann ob der Benutzer vor dem Ausführen des Befehls schon ein Objekt ausgewählt hat. Deshalb meine Idee Unterstützung in lisp: 1. abfragen ob was angeklickt ist 2. Unter einer sysvar die Selection als Collection speichern 3. VB Makro starten 4. Sysvar holen 5. Ist was gewählt worden dann läufst wie gehabt. Leider kann ich Schritte 1-3 nicht als lisp umsetzen! Einer von euch vielleicht ???Stelli
------------------ Warum lisp'eln wenn's auch anders geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Nov. 2005 16:32 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
Das Problem ist die Variablenübergabe! Mit Sysvars geht das nicht!! Das Abfragen nach einer vorhandenen Selektion geht mit (ssget "_i") ------------------ - 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 |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005
|
erstellt am: 01. Nov. 2005 18:24 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, ich weiss leider nicht wie es in lisp vorgeht. In VBA hat man auch benannte Selectionsets. - Kann man so ein Selectionset in lisp erzeugen ? - Oder die Collection in ein Dictonary ? - oder doch die verborgene Möglichkeit mit VBA diese Elemente lesen? Stelli ------------------ Warum lisp'eln wenn's auch anders geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 02. Nov. 2005 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
in Lisp würde das bei mir so aussehen (if(or(setq AUSWAHL(ssget "_i")) ;_schon was gewählt? (setq AUSWAHL(ssget)) ;_ wenn nicht, dann wähle aus ) (progn (setq i -1) (repeat(sslength AUSWAHL) ;_durchlaufe die Auswahl (setq OBJ (ssname AUSWAHL(setq i (1+ i)) machwas mit OBJ ) ) ) aber evtl kannst du in VBA was mit dem ActiveSelectionSet des Cocuments machen? ------------------ - 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 |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 02. Nov. 2005 09:15 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005
|
erstellt am: 02. Nov. 2005 10:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, vielen Dank für die Antworten! Ich habe doch noch die verborgene Möglichkeit in VBA gefunden.
Code:
Set sset = ThisDrawing.PickfirstSelectionSet If sset.Count = 0 Then On Error Resume Next ThisDrawing.Utility.Prompt Chr$(10) & "*** IS VBA TOOLS Info Funktion ***" ThisDrawing.Utility.GetEntity entity, pkt, Chr$(10) & "Objekt wählen: " On Error GoTo 0 Else Set entity = sset(0) End If
Wenn der Befehl wie im ersten Post beschrieben definiert wurde wird auch die bereits erfolgte Auswahl übernommen.Stelli ------------------ Warum lisp'eln wenn's auch anders geht. [Diese Nachricht wurde von Stelli1 am 02. Nov. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |