|
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 |
|
Rund um Autocad : Textstile global in MTexten ändern
startrek am 28.01.2005 um 19:20 Uhr (0)
Abend nochmal, hab mich nochmal dran verkünstelt, [sorry no LISP & RegEx] sondern nur billiges VBA sieht nicht besonders hübsch aus und obs für alle Fälle zutrifft, weiss ich auch nicht, also hier nochmal ein Versuch/Ansatz: Code: Sub clearFormats() Dim sset As AcadSelectionSet, ent As AcadEntity Dim i As Long, x As Long, y&, arr1, arr2, s As String, z& Set sset = ActiveDocument.SelectionSets.Add( set1 ) sset.SelectOnScreen For Each ent In sset If TypeOf ent Is IAcadMText Then ...
| | In das Form Rund um Autocad 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 : Objekte auf Z-Höhe setzten
startrek am 06.10.2006 um 21:59 Uhr (0)
wwwilly, Günther hat im Autocad gepostet,nicht im VBA und nicht im Lisp, gehe also mal davon aus,da ist seinerseits noch keine Berührung vorhanden, weder zum einem noch zum andren ;-)Gruss, Nancy
| | In das Form Rund um Autocad wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
