|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
steinemann09 am 05.09.2012 um 10:14 Uhr (0)
Hallo Thomas und Interessierte,abei mein Lösungsansatz für folgende Aufgabe:Auswahl einer Blockreferenz mittels Lisp und Aufruf eines VBA-Formulars, in dem die Blockattributeausgelsen werden.Gruß VolkerLisp :(defun c:testdial () (Vl-load-com) (Setq applic (vlax-get-acad-object)) (setq hElement (car (entsel "Wählen Sie bitte ein Blockattribut aus"))) (setq hOBJEKTID (vla-get-objectid (vlax-ename-vla-object hElement) ) ) ; ObjektID des ausgewählten Blockes (vl-vbarun "modul1.zeigeform ...
|
| In das Form Lisp wechseln |
|
AutoCAD VBA : Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln
steinemann09 am 08.04.2009 um 18:46 Uhr (0)
hallo henning,ich hoffe, nach so langer Zeit, Dich hierüber noch erreichen zu können. Ich habe versucht Dein Script an meine Aufgabe anzupassen. Aber leider funktioniert es noch nicht.Abgespeckt stelle ich Dir meinen Versuch mal rein, der sich an DeinemBeipiel orientiert.Diese Lisproutine versuche ich leider efolglos in VBA zu implementieren, (die eigentliche ist umfangreicher, aber es geht erst mal ums Prinzip):(defun oi2la(); Routine zur Ermittlung des Layernamens aus der Objekt-ID(setq DOC(vla-get-activ ...
|
| In das Form AutoCAD VBA wechseln |
|
Lisp : assoziative Beziehungen in Elementdaten
steinemann09 am 27.08.2008 um 22:06 Uhr (0)
Hallo User,vielleicht hat jemand einen Tipp. Ich habe in AutoCAD 2005 über ein LISP-Programm jeweils ein Schriftfeld, dass mit der Fläche eines geschl. Polygons assoziativ verknüpft ist, einem Blockattribut zugeordnet. Somit beziehen sich alle Blockattribute in der DWG jeweils auf eine geschl. PL. Um Plausibilitätsprüfungen durchführen zu können(Gibt es zu jeder PL ein Blockattribut, bezieht sich jeweils nur 1 Blockattribut auf eine PL etc.) will ich in AutoLISP über die Abfrage der Elementdaten der PL und ...
|
| In das Form Lisp wechseln |
|
Lisp : Aus ObjectID (VBA/VL) den ObjectNamen eines Elementes ermitteln
steinemann09 am 30.03.2009 um 15:41 Uhr (0)
Hallo Leute,obwohl ich aus der Lisp-Ecke komme, habe ich in VB ein Formular programmiert und muß aber auf ein Lisp-Programm von dort aus zugreifen.Ich übergebe dabei die ObjectID des Elementes an LISP.Um in gewohnter Weise mit den ssget/entget - Befehlen arbeiten zu können, benötige ich aber den Object-Namen des Elementes. Umgekehrt von Objektnamen zur ObjektId habe ich einen Weg.Bsp.(setq hElement (car (entsel "Wählen Sie bitte eine Polyline aus")))(setq hObjektID (vla-get-objectid (vlax-enam ...
|
| In das Form Lisp wechseln |
|
Lisp : Aus ObjectID (VBA/VL) den ObjectNamen eines Elementes ermitteln
steinemann09 am 02.04.2009 um 17:46 Uhr (0)
Hallo Thomas,entschuldige bitte, möcht aber nochmal zu dem Problem nachhaken.Ist es denn auch möglich, nur von der ObjectID ohne das Objekt den Objektnamen zu ermitteln. Ich kann das Objekt wahrscheinlich nicht ohne weiters von VBA nach Lisp übergeben, sondern nur die Object-Id.In Deinem Bsp. erhlalte ich die Variable DOC ja nur über die entsel-Abfrage in Lisp. Das Objekt wird aber bei mir ja in VBA ausgewählt und nicht in Lisp.Danke für Deinen Mühe,Gruß Volker
|
| In das Form Lisp wechseln |
|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
steinemann09 am 04.09.2012 um 17:05 Uhr (0)
Hallo liebe Visual Lisp Programmierer,ein hoffentlich einfaches Problem, aber ich komme mit try und error leider nicht mehr weiter.Ich möchte einfach aus Lisp ein VBA-Formular aufrufen und einen in Lisp ausgewähltes Blockattribut weiter verarbeiten.Das funktioniert so weit, aber nur wenn ich ein einziges VBA-Projket geladen ist. Da ich mehre VBA Projekte automatisiert zum Zeichnungsbeginn geladen habe, kann ich das Formular nicht ansprechen.Meiner Überlegung nach, müsste ich statt "Userform1.Show" "blockra ...
|
| In das Form Lisp wechseln |
|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
steinemann09 am 05.09.2012 um 08:54 Uhr (0)
Hallo Thomas,danke für Deinen Link, der auf auf dieselbe Problematik verweist. Ist eigentlich nicht einleuchtend, dass die Vla-eval - Funktionnur anwendbar ist, wenn ein einziges VBA-Projekt geladen ist.Ich werde versuchen über eine VBA-run - Variante das Makro zum Befehlsaufruf des Formulares zu startenund die Parameterübergabe über bekannte Funktionen einer VBA/Lisp - Schnittstelle (Bsp. DataBecker) zu generieren. Werde meinen Lösungsansatz dann hochladen, für diejenigen, die vielleicht mal das selbe Pro ...
|
| In das Form Lisp wechseln |
|
AutoCAD VBA : Listview - Vom ausgew. Listview-element zum dazugehörigen Block
steinemann09 am 16.03.2009 um 15:41 Uhr (0)
Halllo Wilfried,danke für Deinen Asatz, damit würde es problemlos funktionieren,aber ich darf dem Flächenstempel - Block leider kein weiters Attribut zuordnen(Vorgabe des AG). Ich hoffe, ich nerve Dich nicht zusehr.Ich will ja Dein Motto, "warum Lispeln, wenns auch anders geht" nicht in Frage stellen, aber ich gebe Dir trozdem einen kleinen Besipielcode, wie ich in Lisp aus dem Blockattribut zu der über das Schriftfeld verknüpften Polylinie gelange.__________________________________________________________ ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Listview - Vom ausgew. Listview-element zum dazugehörigen Block
steinemann09 am 12.03.2009 um 21:34 Uhr (0)
Hallo Wilfried,einen etwas verpätetetes Dankeschön für die wertvollen 2 Tipps.zu 1. ich hatte es schon mit Me.ListView1.HideSelection = Trueversucht, aber da hatte ich einen Denkfehler.zu 2. Der Thread ist ja ganz hervorragend, das so viele Klimmzüge nötig sind für diese Funktion ist überraschend. Zwar funktioniert das Größenverändern des Formulares nur solange, wie man das Listview-Feld mit der Maus nicht berührt, aber das zu programmieren ist zu aufwendig. In der VBA -Hilfe steht zwar,das jedes Formular ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln
steinemann09 am 19.03.2009 um 21:59 Uhr (0)
Hallo Alfred,danke für den Link, ich werde es versuchen Von VBa eine Lisp-Routine einzubinden. Einfach wird es bestimmt nicht, allein wenn ich die Parameterübergabe sehe, wird es mir schon schwindlig. Es kann sein, dass ich mich nochmal melde, falls es unlösbar klemmt.Danke Volker
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln
steinemann09 am 21.03.2009 um 18:57 Uhr (0)
Hallo Henning,sowas habe ich ja schon lange gesucht. Jetzt kann ich endlich auch andere Lispfunktionalitätenüber VBA steuern. Ich werde die Beispiele testen, um zu begreifen, wie es genau funktioniert.Beim ersten Lesen der PDF ist mein Eindruck "sehr gut dokumentiert".Ich melde mich (auch wenn alles gelingen sollte), nach meinen "VBA - Lisp - Versuchen" .Gruß Volker
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln
steinemann09 am 18.03.2009 um 15:09 Uhr (0)
Hallo Leute,In meinen letzten Beitrag "Vom auussgew.Listviewelemt zum dazugehörigen Block", bin ich auf ein weiters Problem gestoßen, was nicht ohne weiters in VBA zu lösen ist, wie man mir als Quereinsteiger mitteilte. Deswegen will ich es zu einem neuen Thema machen.In meinen Blockattribut (siehe Besispiel.dwg) ist der Wert des Attributes "Flächenbezeichnung" über ein Schriftfeld assoziativ mit einer geschl. Polylinieverknüpft. Der Flächeninhalt der PL wird in das Attribut übernommen.Ich suche nach eine ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block einfügen??mal anders??
steinemann09 am 09.04.2009 um 13:12 Uhr (0)
Hallo Harry,Du hattest vor langer Zeit ein schönes Beispiel über den sendcommand-Befehl. Mir gelingt es zwar einen Parameter an den Lispaufruf zu übergeben, aber auf den Rückgabewert der Lispfunktion kann ich in VBA nicht zugreifen. Hast Du eventuell eine Idee dazu?_____________________________________________________________Sub test()ThisDrawing.Utility.GetEntity BlockRef, inspkt, "Blockwählen" oi = Attributes(3).ObjectID Objekt-Id des 3. Attributwertes hOBJEKTID = oi ThisDrawing.SendCommand "(oi2la " & ...
|
| In das Form AutoCAD VBA wechseln |
