|
Autocad VBA : ACAD-Befehl aus Excel starten
startrek am 14.02.2006 um 21:40 Uhr (0)
Abend Alfonso,habs nicht auf alle Eventualitäten getestet, naja ein Versuch s.u.,aber mal general - ich hab zwar keinen Sprachfehler;-) - aber wennich das richtig deute, misst du da nur zwei Längen in dem Lisp?Wenn ja, ist das wie von hinten durch die Brust übers clipboard ins xlsheet ;-)Hab dir mal eine vba-getpoint Methode reingesetzt, da bekommst folgenden Return:p1(0 to 2) == p1(0)=x-Wert : p1(1)=y-Wert : p1(2)=z-Wertselbiges bei p2.Rein theoretisch kannste dir das ja dann gleich aus p1 und p2 errechne ...
| | In das Form Autocad VBA wechseln |
|
AutoLisp : nummerischenteil aus String filtern
startrek am 20.05.2005 um 00:51 Uhr (0)
Hallo Mario, sind sie xxx.xx immer gleich? Von Lisp ische aben keine Ahnüng , abere mit vba und regülar expressüones könnte es so gehen: Sub test() Const x% = 100 Dim s$, re As New RegExp s = OKR:123.45 m HN re.Global = True re.Pattern = .*?(ddd.dd).* Debug.Print CDbl(re.Replace(s, $1 )) + x End Sub ;;-))) lg Nancy
| | In das Form AutoLisp wechseln |
|
AutoLisp : Layout-Bezeichnung
startrek am 27.01.2005 um 23:12 Uhr (0)
ohohoh, das ging ja schneller als erwartet und obendrein an diesem gruseligen Lisp-Ort ;-)) Na denne auch von mir die besten Wishes zu einem Kilo Tunnelbauer ;-)) Ich muss schon sagen, du erstaunst mich immermehr, aber das ist schön so! Bleib so wie du bist und werde noch besser, als du so schon bist, einen guten Drive wünschend Nancy
| | In das Form AutoLisp wechseln |
|
ADT Architectural Desktop : Flächen und Koordinaten
startrek am 30.05.2004 um 15:41 Uhr (0)
Hi Torsten, Bleibt also noch Lisp. Leider sind die Elementdaten der ADT-Objekte nicht dokumentiert ... Sind sie es unter VBA ?? Ich weiss nicht, aber wenn ich zB. auf AecArea ein F1 mach kommt Schlüsselwort nicht gefunden. Ich kann mich also maximal mit F2 ganz bescheiden ranhangeln. Zu elav s Prob , vielleicht täts ja auch schon ein einfaches GetBoundingBox? lg Nancy
| | In das Form ADT Architectural Desktop wechseln |
|
AutoLisp : Zwischenablage
startrek am 28.09.2004 um 21:22 Uhr (0)
Abend Paul, erstmal welcome auf cad.de :-) wirklich keinen Schimmer, ob Lisp so ne Art Clipboard unterstützt, nur soviel, first step: Umlaute im Anhang entfernen, dann klappts auch mit dem upload ;-) lg Nancy -- One man s constant is another man s variable. Alan J. Perlis edit: stell mir trotzdem die Frage wozu via clipboard/dataobject und nicht direkt ? /edit [Diese Nachricht wurde von startrek am 28. Sep. 2004 editiert.]
| | In das Form AutoLisp wechseln |
|
Rund um Autocad : hilfe zu lisp/betrifft bembl -tool
startrek am 14.07.2003 um 01:02 Uhr (0)
Hallo nochmals, ich stelle jetz besser mal meine Frage separat: kann mir denn hier einer helfen? (möchte nur bembl.lsp bisschen anpassen) wie kann ich statt "L=" die Bogenlänge in Klammern setzen? Die einführende (oki Klammer ) habe ich schon wie gehts jetz weiter... Gruss Nancy -- [...] (command "_dimangular" es "_text" (strcat "(" (rtos len 2)) [...]
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Extrusion längs einer Raumkurve
startrek am 19.02.2003 um 23:05 Uhr (0)
Zitat: ich versuche nun mittels Lisp und einer großen Anzahl von Ebenen eine brauchbare 3/4 Helix zu kreieren. Ich werde sehen was dabei heraus kommt.Wenn der Ebenenabstand sehr klein ist müßte bei der Extrusion ein optischer Zusammenhang der Extr-Flächen eine scheinbare Gesamtdarstellung ergeben. Gruß Plasma[/B] suchst du einen optischen oder konstruktiven zusammenhang? gruss
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Hilfe in Lisp-Programmen erstellen
startrek am 06.01.2004 um 23:54 Uhr (0)
*******OFFTOPIC********* Hi zusammen, @niggemann: das hättest Du auch über Theodors Profil rausbekommen können, wozu hat man sowas sonst ? @Sebastian: editieren, nun ja, Du wirst lachen, ich wusste dies nach xxx Beiträgen auch noch nicht wie man editiert Haben mir erst Ralf Tide & Tom im Testforum beigebracht, sowas kann vorkommen lg Nancy [Diese Nachricht wurde von startrek am 06. Jan. 2004 editiert.]
| | In das Form Rund um Autocad wechseln |
|
AutoLisp : Nachbar Zelle aus Tabelle
startrek am 29.06.2005 um 13:47 Uhr (0)
Hi, mal auf die Schnelle, ist weder Lisp noch besonders hübsch. Nur n kleiner Ansatz, wobei so ganz ohne Excel, nur als Liste bzw. Textfile könnt ich mir das auch vorstellen;-) Gruss Nancy Code: Sub x() Dim xlapp As Object, wb As Object Dim arr, i&, p#(2) Set xlapp = CreateObject( Excel.application ) Set wb = xlapp.workbooks.Open( D:Mappe1.xls ) arr = wb.sheets( Tabelle1 ).range( A1:B1000 ) wb.Close 0 Set xlapp = Nothing For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Neues auf meinen Lisp-Seiten
startrek am 22.06.2005 um 23:22 Uhr (0)
Hi Axel, was machst du denne grade - Auszeit oder Gehirnwäsche? Gucken wie die Pflaumenbäume blühen und warten bis du Pflaumenmus draus machen kannst? ;-)))) Neenee, Käse, ich freu mich auch ungemein, von dir mal wieder einen Thread zu lesen, und dann noch diese Sache betreffend. Find s auch echt rattenscharf - bist und bleibst einfach ein super Erklärbär, der sich zwar bissel arg rar macht, aber ich bin ja schon froh, dasser noch da ist:-) lg Nancy
| | In das Form AutoLisp wechseln |
|
Rund um Autocad : Z-Koordinaten von Punkten ändern
startrek am 11.09.2004 um 18:34 Uhr (0)
Einen wunderschönen zusammen ;-) ... hab s mal vorsichtig probiert, ist aber kein Lisp. Code: Sub z_point_charlie() Dim sset As AcadSelectionSet, Ent As AcadEntity Dim s$, oldP, newP#(0 To 2) s = ThisDrawing.Utility.GetString(0, Z-Verschiebung angeben: ) If Not IsNumeric(s) Or s = Then Exit Sub If InStr(1, s, . ) Then s = Replace(s, . , , ) Set sset = ThisDrawing.SelectionSets.Add( set1 ) sset.SelectOnScreen For Each Ent In sset If TypeOf Ent Is IAcadPoint Then oldP = Ent.Coordinates ...
| | In das Form Rund um Autocad wechseln |
|
AutoLisp : Umschalten zwischen geöffneten Zeichnungen
startrek am 01.08.2004 um 17:26 Uhr (0)
Hi Wilfried, mit Lisp kann ich Dir nicht dienen, hier ein gruseliger VBA-Code - hoffentlich bekomm ich keine Prügel hier ;-) CU Nancy -- Userform1.frm Code: Option Explicit Private Sub UserForm_Initialize() Dim i% For i = 0 To Documents.Count - 1 ListBox1.AddItem Documents.Item(i).Name Next End Sub Private Sub ListBox1_Click() Dim i% With ListBox1 For i = 0 To .ListCount If .Selected(i) Then if Documents(i).WindowState = acMin then Documents(i).Window ...
| | In das Form AutoLisp wechseln |
|
Autocad VBA : ACAD-Befehl aus Excel starten
startrek am 14.02.2006 um 19:08 Uhr (0)
Hallo Alfonso,bin mir nicht sicher, obs einwandfrei läuft, da ich nicht weiss,was dein Lisp genau macht (Usereingaben? etc)U.U. braucht man ja nicht unbedingt ein appactivate,anyway, spiele mal bissel rum, achja ich bin mal einfach davon ausgegangen, dass Acad gestartet ist;-)HTH, Nancy-- Code:Sub test() Dim acApp As Object, x Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName Cells(1, 1) = x AppActivate "Autodesk Architectural Desktop 2005" acApp.activedocument.sendcomm ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
