|
OneSpace Modeling : Eigenes Menu
Dorothea am 29.04.2004 um 10:20 Uhr (0)
Hallo Michael, Zitat: Ich habe einfach Eigenes_Menu.lsp und Welle07.lsp zusammengefügt. Bei dieser Lösung würde die Datei aber schnell unübersichtlich, da ich ja alle Macros die ich in Eigenes_Menu.lsp aufrufen möchte zusammenfügen müßte. Warum? Du kannst jeden Dialog in sein eigenes File schreiben oder zwei in eins oder alle. Da bist du an nichts gebunden. Wenn du alle Dialoge geladen haben willst, dann schreib dir doch ein Lade -File (lade_meine_kommandos.lsp). Da steht dann nichts weit ...
|
| In das Form OneSpace Modeling wechseln |
|
Rund um AutoCAD : Datenbank, AutoCAD 64bit
molo am 19.04.2011 um 16:07 Uhr (0)
Moin, moin,Ich wurschtel mich mal wieder durch das Thema Datenbanken. Hier ist mein Wissen etwas größer als bei Lisp ;-) Ich habe schon mal eine kleine Access und eine kleine Base (Open Office) Datenbank erstellt.Außerdem habe ich früher schon ein zweimal das Tutoriell der Büroeinrichtung durchgespielt von AutoCAD.Dieses wollte ich gerade nochmal machen. Jetzt habe ich allerdings eine 64bit Version. Dazu lese ich ------------------------------------------------Anmerkung: Für die 64-Bit-Version von AutoCAD ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Variabler Loop für Punktauswahl beim Bildzuschnitt
Archäologie Bubi am 19.08.2021 um 17:02 Uhr (1)
Hallo LISP GemeindeIch arbeite an einem Bildmanager, der auf unsere Bedürfnisse zugeschnitten ist. Eine der Funktionen ist der Bild zuschnitt.An sich hatte ich damit keine Probleme. Da die Funktion aber im restlichen Code eingebaut ist (wird über einen Button in DCL gestartet), will das Programm weiter bevor ich alle Punkte wählen konnte (ist gerade natürlich auch nur eine Pause festgelegt). Die Anzahl der Punkte ist aber für jedes Bild anders und ich würde auch gerne die [Close] und [Undo] Funktionen von ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Höhenkooten erstellen, Layer in Ansichtsfenstern
BuNa am 15.07.2010 um 12:31 Uhr (0)
Hallo, Runkelrübe, Hallo, Alfred....vielen Dank für eure Beiträge.zu den Höhenkoten: eine Applikation wie CADMANDU installieren, ist wohl nicht möglich. Die Links verweisen nur noch auf eine Seite, die nicht mehr gefunden wird. Auch andere Suchergebnisse nach diesem Programm waren erfolglos. Ein Erstellen über Blöcke kann vielleicht Sinn machen, aber die Zahl selbst muss ich dann doch auch noch manuell eintippen, oder etwa nicht?Habe in den ganzen Beiträgen von LISP-Dateien oder VBA-Dateien, und Applikatio ...
|
| In das Form Rund um AutoCAD wechseln |
|
PTC Creo Elements/Programmierung : Umlaute in CSV-Dateien - Stückliste
der_Wolfgang am 26.03.2018 um 13:38 Uhr (2)
Zitat:Original erstellt von MiBr:da hatte ich auch schon drüber nachgedacht, allerding ist das beim näheren betrachten nicht ganz so einfach.Stichwort : Rekursion! ( ich hatte das auch im Hinterkopf als wie uns um deine Funktion gekuemmert haben)Wir hatten das Thema auch vor gar nich so langer Zeit:* Ordnerinhalt über LISP auslesen* Wie bekomme ich alle am Bildschirm angezeigten Teile in eine ListeAber statt den vorhandenen Code (deswegen) in Funktionen zu unterteilen, von denenen sich eine rekursiv selb ...
|
| In das Form PTC Creo Elements/Programmierung wechseln |
|
Lisp : Dynamischen Block via Lisp steuern
reltro am 16.06.2013 um 19:35 Uhr (0)
Warum sollte das nicht gehn?Hab jetzt mal nicht deine Funktion hergenommen, da da ein Fehler auftritt... Denke das liegt daran dass hier(*) etwas fehlt, nähmlich die umwandlung in den passenden Typ Code:(defun dySet (DynBlockRef Name NewValue / Property) (if (setq property (dyGet DynBlockref Name)) (progn (vlax-put-property property Value NewValue) ;---- **hier (vlax-release-object Property) ;braucht es das? (unsicher) ) ))Code:(defun BlockRef:SetDynamicPropValue (block prop value / ) (setq prop ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : Suchen/Ersetzen via RegExp
mapcar am 18.09.2004 um 17:03 Uhr (0)
Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Öh, wo ist denn der Verweis? Axel, jetz steh ich aber im Wald, was meinst Du damit? Damit meinte ich, dass es unter VB(A) doch nicht reicht, nur einen Kommentar einzufügen, um auf etwas zu verweisen: Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Muss dann da nicht so was kommen? Declare Function publicname Lib libname [Alias alias ] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]...])] As Type Ich h ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD Plant 3D : Iso-Meldung / Iso-Information
alterHausmeister am 30.05.2018 um 11:12 Uhr (1)
Hallo an alle ...meine Frage bezieht sich auf die Version 2017:Bei einer Iso-Meldung kann man(n) ja einstellen, dass diese spezielle Meldung vermasst werden soll. Soweit, so gut, aber jetzt sollen (als Anforderung vom TÜV) auch die Bodensymbole (Iso-Information) vermasst werden. "Meine" aktuell in der Planung befindlichen Leitungen verlaufen mit Neigung (und natürlich nicht im WKS) aus bzw. ins Erdreich. Nun sollen diese Durchtrittspunkte mit Maßen versehen werden. Wäre schon schön, wenn es wenigstens auf ...
|
| In das Form AutoCAD Plant 3D wechseln |
|
Rund um Autocad : Mass-Reihe nach Excel auslesen
Proxy am 08.03.2005 um 12:50 Uhr (0)
Mit VBa könnte es ungefähr so aussehen: Code: Sub DimValue2Excel() Dim doc As AcadDocument Dim sel As AcadSelectionSet Dim mode As Integer Dim groupCode As Variant, dataCode As Variant Dim gpCode(0) As Integer Dim dataValue(0) As Variant Dim i As Long Dim cad As Object Dim acad As AcadApplication Dim autocad_gestartet As Boolean autocad_gestartet = True On Error Resume Next Set cad = GetObject(, AutoCAD.Application ) If Err.Number 0 Then Err.Clear MsgBox AutoCAD ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : LISP: Höhenkoten platzieren
cadffm am 03.08.2018 um 11:45 Uhr (1)
Also zusammengefasst:Läuft nicht durch weil, siehe Stefan, du schließt die Punktdatei wieder. Das Close-Statement gehörthinter die While-Schleife, nicht in die While-Schleife.Verschiedene Layer in einem Block nutzen für Text sichtbar/unsichtbar ist auch schon angesprochen worden.Angenommen die Punkte landen alle auf Layer "PUNKTE", dann würde ich für den Z-Wert eine Attributdefinition auf Layer "PUNKT_Z-WERT" legen.Möchte man diese nicht sehen schaltet man den Layer aus, Möcht eman die Punkte mit allem dru ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Nummern automatisch an Text anfügen
THE_ONE am 21.01.2008 um 11:23 Uhr (0)
Hallo!So habe es jetzt endlich fertig!Code:(defun c:addnumber (/ START_NUMBER Object stringeintrag stringelement x) (initget 5) ;lässt kein NULL (also nur ENter drücken) und keine negativen Zahlen zu (if (setq START_NUMBER (getint "Enter a number:")) ;liest einen Integer ein (progn (initget 0) (while (setq Selection (entsel "Wähle Text")) ;solange bis der User Enter drückt ;entsel liefert eine Liste mit zwei Elementen: 1stes Element ist der Name, ;zweites Element ist die Cursorposition an der der Curs ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : fehlender Schriftpfad: vertikale Schrift möglich
Peter2 am 11.12.2006 um 14:29 Uhr (1)
Nur so zur allgemeinen Info: Sache:erzeugt man per Befehlzeile Schriftstile mit Schriften, die nicht gefunden werden, sind plötzlich auch vertikale Schriften möglich.Grund:Typisches Beispiel, dass alles durcheinander kommt, wenn man in laufender Sitzung Pfade ändert ...Im Detail - was ist wie passiert:- Vorgeschichte: Es werden Schriftstile per Lisp angelegt:(command "_style" "Standard" "Isocp.shx" "0" "1" "0" "N" "N")Alles klar, kein Thema.- Dann werden die Verzeichnisnamen der Schriften umbenannt, aber d ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Datenrückgabe Funktion
Brischke am 17.10.2005 um 11:14 Uhr (0)
Zitat:Original erstellt von Gerd_Ecke:Hallo Mitstreiter,beginne mich ein wenig mit LISP zu beschäftigen.Erstelle eine Routine die Blöcke und Attribute in eine Textdatei schreibt.Mit folgenden Zeilen schreibe ich die XYZ werte in besagte Datei, ohne Probleme :(Princ (rtos (car (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (cadr (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (caddr (cdr (assoc 10 (entget aa)))) 2 3) Datei )Da aber mein Excel als de ...
|
| In das Form AutoLisp wechseln |
