|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 17:17 Uhr (0)
jo danke so weit euch beidenhab bisschen geforstet und das hier gefunden,Code:(defun c:hollayer (/ oAcad oCurDoc strFile oOpenDoc oOpenDocLayers lstObj oLayer array) (setq oAcad (vlax-get-acad-object)) (setq oCurDoc (vla-get-ActiveDocument oAcad)) (setq strFile (getfiled "Zeichnung wählen:" (getvar "DWGPREFIX") "dwg" 0)) (setq oOpenDoc (vla-Open (vla-get-documents oAcad) strFile)) (setq oOpenDocLayers (vla-get-layers oOpenDoc)) (setq lstObj nil) (vlax-for oLayer oOpenDocLayers (setq lstObj (cons oLayer ls ...
|
| In das Form Lisp wechseln |
|
Lisp : AccoreConsole nimmt kein Lisp Befehle
cadffm am 03.10.2017 um 12:07 Uhr (1)
Ohne es zu am PC anzusehen:So wird es in den vieln Fällen wie gewünscht funktionieren, gut.Aber noch mal zu deinen Anmerkungen oben zu command und setq:Deine Erklärung zu command ist zwar nett, aber falsch.Man kann damit Eingaben in die Befehlszeile senden und darüber dann also auch Autocad-Befehle fernsteuern,aber command selbst ist eine Lispfunktion, ebenso wie lsh setq oder defun,da ist nichts besonderes an command.SetqImmer wieder das gleiche Lied und oben ging ich auch hier schon mal darauf ein.Poste ...
|
| In das Form Lisp wechseln |
|
Lisp : SRXTEXT Lisp suche funktioniert nicht
cadffm am 25.06.2021 um 14:29 Uhr (1)
Zu der Ausgangfrage, du hast einen Doppelfehler gemacht.TGE-3-0-GR-E00-000--Dein Code ist:Suche nach:([A-Z][A-Z][A-Z]-[0-9]-[0-9]-[A-Z][A-Z]-[A-Z][0-9][0-9]-[0-9][0-9][0-9]-)[0-9]1. Das Zeichen "-" ist nicht in 0-9 (= 0 1 2 3 4 5 6 7 8 oder 9) enthalten2. Auch die Schreibweise ist falsch. Für den Fall man hätte nur die Fälle ändern wollen bei denen das letzte Zeichen 0-9 entspricht:([A-Z][A-Z][A-Z]-[0-9]-[0-9]-[A-Z][A-Z]-[A-Z][0-9][0-9]-[0-9][0-9][0-9]-)([0-9])Gezielt nur Text mit Index "-"Befehl: SRXTEXTS ...
|
| In das Form Lisp wechseln |
|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
joern bosse am 26.11.2024 um 08:01 Uhr (1)
Hallo 100dpi,mit folgendem Code kann der mit ENTMAKE erstellte Text auf Mitte-Zentrisch umgestellt werden, die Position sollte erhalten bleiben:Code:(defun TextMitteZentrisch (ename / P VLA-OBJ) (setq vla-obj (vlax-ename-vla-object ename)) (setq p (vla-get-InsertionPoint vla-obj)) (vla-put-alignment vla-obj 10) (vla-move vla-obj (vla-get-InsertionPoint vla-obj)p) (vla-update vla-obj) )(defun c:test ( / ) (TextMitteZentrisch (car(entsel))) )Das Einbinden in Deinen Code:Direkt nach der ENTMAKE-Funktion mit ...
|
| In das Form Lisp wechseln |
|
Lisp : Suche nach Farbe 255,255,255 per Lisp oder Befehlsstring
cadffm am 31.01.2020 um 17:49 Uhr (1)
Zitat:Original erstellt von cadffm:Objektdaten einsehen, ändern, vergleichen bringt einen oft weiter:(entget(car(entsel))) So fragt man die ab.Und keine Sorge, ich und andere hier verstehen sehr gut was du vorhast,auch sieht man die Schwächen und Fallen.Du bist dabei, nicht ungewöhnlich, die mit vielen neuen(?) Dingen gleichzeitig zu beschäftigen,da weiß man nicht wo man Anfangen soll.Ich habe mich daher mal fast ausschließlich auf die Farben filtern Sache beschränkt für den Anfang, aber die Hilfestellun ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoCAD Objektfang (Ofang) Ein oder Aus (toggle) wie F3 aber als LISP
Andreas Kraus am 15.11.2016 um 17:04 Uhr (1)
Hallo neo,die Fehlermeldung kommt weil du einfach zwei Ausdrücke ohne progn in eine Klammer bringst. ((setvar "OSMODE" (- aosmo 16384))(princ "
Ofang ein"))müsste so aussehen: (progn (setvar "OSMODE" (- aosmo 16384))(princ "
Ofang ein"))EDIT_ Da schaut man grade mal nach und schon ist wieder jemand schneller. Ich glaub ich mach jetzt Feierabend------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de[Diese Nachricht wurde von Andreas Kraus am 15. Nov. 2016 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Sound in Lisp?
HofCAD am 20.04.2010 um 18:05 Uhr (0)
Speech Application Programming Interface http://forums.augi.com/showthread.php?t=53823&page=5&highlight=speakcfg Code:(defun C:SpeakCfg(/ Sapi ~voice ~volume ~rate Voice VoiceMary VoiceMike VoiceSam VoiceLst NumVoices @SendKeysN @PlayWav @NoPath @VoiceList @member+ @Voice&TextInput);**********************SubPrograms************************************************(defun @SendKeysN (Keys n / Wscript) (if (setq Wscript (vlax-create-object "WScript.Shell")) (progn (r ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 02.08.2023 um 12:26 Uhr (1)
Ich danke Ihnen beiden für Ihre Antworten.kurz erklärt, gibt es eine Möglichkeit, eine Liste abgesehen von diesem Code zu machen, so dass ich Layers aktualisieren/umbenennen kann. Momentan sind es fast 700 verschiedene Layers und jeder Name mit eindeutigem Namen. Ich habe versucht, unsere Dateien zu durchsuchen, aber es kommen immer wieder neue Layers hinzu.Im Moment hat es 4 Dicken mit 6 verschiedenen Typen. Es sollte möglich sein, eine solche Benennung zu kodieren und sie automatisch zur Liste hinzuzufüg ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
archtools am 26.07.2023 um 08:23 Uhr (1)
Zitat:Original erstellt von kadirozen:Ich danke Ihnen für Ihre Antworten.Ich habe nicht vor, den Code so weit zu ändern, dass er etwas völlig Neues ist.Kurzform: Auch die Bearbeitung oder Änderung eines urheberrechtlich geschützten Werkes ist eine Urheberrechtsverletzung.Langform: https://www.gesetze-im-internet.de/urhg/Details:§ 39 Änderungen des Werkes(1) Der Inhaber eines Nutzungsrechts darf das Werk, dessen Titel oder Urheberbezeichnung (§ 10 Abs. 1) nicht ändern, wenn nichts anderes vereinbart ist.§ 6 ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoCAD 2007 - Lisp Programm lässt sich nicht mehr laden
Andyt8 am 27.09.2006 um 17:16 Uhr (0)
Danke das war es. Warum das auf einmal auskommentiert ist weiß ich nicht. Anscheinend hat da einer unfug getrieben. Oder frühere Versionen haben einfach dies ignoriert?Jedenfalls danke! Damit konnte es gelöst werden.------------------Unmögliche Vielfalt mit unmöglich vielen Variationen
|
| In das Form Lisp wechseln |
|
Lisp : Bestimmtes Attribut beim Blockeinfügen via Lisp per Textstring ausfüllen
cadffm am 24.03.2021 um 19:37 Uhr (1)
Wenn die vielen Beispiele dich noch nicht zum Ziel führten,warum dann nicht einfach die Attribute beim einfügen abfragen lassen und ausfüllen?Du benutzt ja ohnehin schon der nativen EINFÜGE-Befehl,also kannst du einfach ATTDIA aus, aber ATTREQ einschalten und die Attributwerte werden abgeffragt.Einfach zu verstehen, einfach umzusehen und das ganz ohne Programmierung (abgesehen vom Command).Also Attreq und Attdia setzen (fehlt übrigens auch in der aktuellen Fassung),und dann nach der Angabe der Drehung einf ...
|
| In das Form Lisp wechseln |
|
Lisp : Autocad OFANG Hilfssymbol wird bei Lisp-Befehl nicht nagezeigt ?!
joern bosse am 22.01.2012 um 07:58 Uhr (0)
Hallo Thomas,eine Erklärung habe ich nicht, vielleicht aber eine Alternative:Code:(defun c:lie ( / OsmodeAlt Pkt) (setq OsmodeAlt (getvar "OSMODE")) (setvar "OSMODE" 1) (setq Pkt (getpoint "
Ersten Linienpunkt angeben:")) (setvar "OSMODE" OsmodeAlt) (if pkt (command "._line" pkt pause)))------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Suche nach Farbe 255,255,255 per Lisp oder Befehlsstring
Manuel486 am 12.02.2020 um 16:36 Uhr (1)
Zur Erklärung was ich mache.Ich bereite einen Plan vom Architekten auf.Wir haben einen gewissen Ablauf der zu 90% immer gleich ist.Layer 0 aktuell / Layer Entsperren / Layer Tauen / Layer Ein / Layer Lstärke VorlageLayout löschen / Modell aktuell (bei mehren Layouts können alle raus)5x burst hier bräuchte ich einen Befehl der Burst macht bis er nichts mehr findetLöscht alle Punkte + Abdeckungen in der Zeichnung (für uns unwichtig)Neuer Layer _A-BEMASSUNG + _A-BEMASSUNG-INNEN (hier kommt später die Bemassun ...
|
| In das Form Lisp wechseln |
