|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 13:22 Uhr (0)
Hallo Heinz, die Programmierung kam nicht von mir, habe nur die vorhandenen Fehler beseitigt. Aber trotzdem hier die gewünschte Änderung. Gruß Cad-Lisp (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (princ "
Wählen sie ein Element für die Layers ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 21:55 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Cad-inwenn ich mir meinen Text so einlese ist das überhaupt ein string den ich bearbeiten kann.(setq textw (car (entsel))) (setq abfrage (entget textw)) (setq letzteob (cdr (assoc 1 abfrage))) Du solltest mehr prüfen und solltest die Variablen so benennen, dass sie wenigstens irgend was mit dem Inhalt zu tun haben und nicht völlig falsche Namen haben.Beispiel:Code:(if (and (setq text-entityname (car (entsel "
Textelement wählen: "))) (setq text-entgetlist ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Text kopieren und hochzählen
joern bosse am 30.05.2013 um 07:13 Uhr (0)
Hallo Markus,falls der Link von Heinz nicht geholfen hat hier nochmal ein bißchen geänderter Code:Code:(defun c:test2 ( / LASTOBJ N OLDOBJEKT) ;;;!!!DIMZIN wird nicht automatisch wieder zurückgestellt!!! (setvar "DIMZIN" 3) if (setq oldobjekt (car(entsel "
Text wählen:"))) (progn (setq n 1) (while (or (= n 1) lastobj) (command "_.copy" oldobjekt ""(cdr(assoc 10 (entget oldobjekt)))pause) (if (/=(distance (cdr(assoc 10 (entget(entlast)))) (mapcar (lambda(A) (* A 2.0)) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 12:13 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo LisplerBin AnfängerHabe einen Text 111/9 will ihn kopieren und die neun um eine erhöhen.Nach abfrage bekomme ich das zurück "111/9" wie muss ich das umwandeln um den Text bearbeiten zu können bzw. die 9 auf 10 umwandeln.Hallo Heinz,das sollte doch in dem gerade von Dir absolvierten LISP Seminar in Wien behandelt worden sein, oder hat Herr Berger das versäumt? Wenn Du mir sagst, wo Du dabei noch Probleme hast, dann kann vielleicht auch ich Dir hier weiter helfe ...
|
| In das Form AutoLisp wechseln |
|
Lisp : zum Downloaden: Zeichnungs-Wechsel mit Werkzeugpalette (OpenDCL)
autocart am 10.05.2012 um 14:26 Uhr (0)
Hallo Heinz,Danke fürs Testen! Inzwischen habe ich eine neue Version online gestellt, in der der Fehler nicht mehr kommen dürfte. Wie es für mich aussieht hatte das Problem mit einem Autocad-Reaktor (vlr-docmanager-reactor und :vlr-documentToBeActivated Event) zu tun. Nun verwende ich statt dessen einen von OpenDCL implementierten Reaktor (DocActivated Event). Seit dem kommt der Fehler bei mir nicht mehr.EDIT: Habs nochmals mit der veröffentlichten Vorgänger-Version verglichen: Der hier genannte Grund kann ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren
Dober Heinz am 16.01.2008 um 11:17 Uhr (0)
Hallo LisplerBeschäftige mich gerade mit den Reaktoren.Habe folgenden Code von Lisp-Buch kopiert und getestet.Wenn ich eine Bemassung wähle funktioniert der Code, es wird ein Layer angelegt.Aber wenn ich eine Schraff wähle geschied nichts, kann mir bitte einer sagen wo der Fehler liegt.Danke; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . ...
|
| In das Form Lisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
Brischke am 13.08.2004 um 08:23 Uhr (0)
Hallo Heinz, das ist nur eine Teillösung zum Ändern einer über die Blöckbibliothek erstellten Zeichnung. Wenn ich das richtig verstanden habe, dann sollen auch die Blöcke durch Anwählen eines entsprechenden Eintrags in der Tabelle in die Zeichnung eingefügt werden. Meines Erachtens kommt man hier an einer Datenbanklösung nicht vorbei. Deshalb kann ich mir nicht vorstellen, dass es hier eine Freeware-Lösung gibt. Sinnvoller ist wohl mal die Suche nach einer Applikation, denn so neu ist die Aufgabenstellung ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Prüfen ob Zahl
marc.scherer am 21.12.2005 um 18:33 Uhr (0)
Hallo Heinz,könnte es sein, dass Du die nützlichen Debug-Funktionen der VLisp-IDE gar nicht benutzt?Solltest Du aber. Hier kannst Du nämlich ne ganze Menge über die Funktionsweise des Lisp-Interpreters lernen indem Du bestimmte Ausdrück überwachen läßt und Deine Proggies Schrittweise arbeiten läßt. Dann ist es auch überhaupt kein Problem für Dich herauszufinden was genau Deinen Fehler verursacht:(read ".1")Was genau soll denn Deine Funktion machen?Soll da am Ende n Integer oder Real rauskommen?Guck Dir mal ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:39 Uhr (0)
Hallo Heinz, ich habe mir einmal erlaubt das Lisp zu ändern, damit es läuft. So sollte es funktionieren. Die Frabe stimmt aber nur dann, wenn der ausgewählte Layer die Farbe vonLayer hat. (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (while ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bereinigen / Purge Befehlsabfrage
nahe am 22.06.2011 um 08:43 Uhr (0)
Hallo Chris anbei ein kleines Lisp zum Bereinigen das ich mal vor langer Zeit geschrieben habe.Ich hab aber keine Ahnung ob es in den neueren AutoCAD Versionen noch funktioniert.Damals war der Hintergedanke, dass purge unter Umständen nicht alles beim 1. Durchlauf bereinigtund es notwendig war purge ein paar mal durchzuführen um wirklich alles bereinigt zu haben.;*************************************************************************;** Datei REINIG;** Dient zum automatischen bereinigen von Zeichnungen;* ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Kurzer Dateiname mit Zeichen ~
CADmium am 09.12.2004 um 10:13 Uhr (0)
auf XP liefert ein (vlax-dump-object (setq FSO(vlax-create-object "Scripting.FileSystemObject")) T) folgende Liste : ; IFileSystem3: FileSystemObject ; Eigenschaftswerte: ; Drives (RO) = # VLA-OBJECT IDriveCollection 003f74a8 ; Unterstützte Methoden: ; BuildPath (2) ; CopyFile (3) ; CopyFolder (3) ; CreateFolder (1) ; CreateTextFile (3) ; DeleteFile (2) ; DeleteFolder (2) ; DriveExists (1) ; FileExists (1) ; FolderExists (1) ; GetAbsolutePathName (1) ; GetBaseName (1) ; GetDri ...
|
| In das Form AutoLisp wechseln |
|
Lisp : dBase-Datenbanktreiber unter LISP verfügbar?
Mailüfterl am 24.09.2010 um 11:22 Uhr (0)
Hallo Alfred,vielen Dank für diesen Hinweis!Dieses Beispiel veranschaulicht den Zugriff via ADO unter Nutzung der Bibliothek msado15.dll auf eine ACCESS-Datenbank. "Praktischerweise" wird die Bibliothek msado15.dll gleich mitgeliefert, obwohl sie Bestandteil des Betriebssystems ist. Eleganter wäre es, ihren Pfad aus der Registry abzufragen und dann zu laden:(vl-registry-read (strcat "HKEY_CLASSES_ROOTCLSID" (vl-registry-read "HKEY_CLASSES_ROOTADODB.ParameterCLSID") "InprocServer32"))Das Prinzip dürfte für ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 01.03.2004 um 09:52 Uhr (0)
Hallo Moony ich denk mal, dass das mit LISP nicht wirklich einfach ist. Anbei ein kleines Makro für Excel, vielleicht hilft Dir ja das weiter. Grüße Heinz Sub test() 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 ...
|
| In das Form AutoLisp wechseln |
