|
AutoLisp : String auf mehrere strings durch definierte trennzeichen aufteilen?
Brischke am 22.02.2004 um 21:44 Uhr (0)
Hallo Siegfried, da man so etwas immer wieder brauch, habe ich mir bereits vor einiger Zeit mal eine solche Funktion geschrieben. Aufrufen: (setq Stringliste (f:str-teilen String Trennzeichen )) Code: (defun f:str-teilen (sil_str sil_tr / sil_i sil_str1 sil_trli) (setq sil_i 0) (if (= STR (type sil_str)) (progn (while ( sil_i (strlen sil_str)) (setq sil_i (1+ sil_i) sil_str1 (substr sil_str sil_i 1) ) (if (= sil_str1 sil_tr) (setq sil_trli (cons sil_i sil_trli)) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Xdata GC 1011 und VLA-setXdata
CADmium am 22.05.2012 um 11:04 Uhr (0)
ach so ..der appli-Name .. den übergeb ich extra .... haste vielleicht (regapp "hallo")vergessen ?Die Funktionen sind Bestandteil einer Bibo, die außeinanderzuklamüsern würde hier zu weit führen, ..die Bibo zu posten aber auch.Aber ein GC-Lisp daraus kann ich dir zur Verfügung stellen:(defun DT:XDATA-PUT-GC (OBJ NEWXDATA / XDATA DATA) (if(and(=(type OBJ)ENAME) (=(type NEWXDATA)LIST) (=(type(car NEWXDATA))STR) (vl-every (lambda(X) (and (listp X) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute zum Block
Brischke am 24.01.2013 um 13:36 Uhr (0)
Zitat:Original erstellt von cadplayer:... phil kerkers ap-API, schon mal davon gehört?...Kenne ich nicht, inzwischen kenne ich mich (denke ich) auch in der .Net und der ActiveX und Lisp-API recht gut aus.Zitat:Original erstellt von cadplayer:... Das Autocad-magazin erhalte ich leider nicht, zumal ich neuerungen oft aus der direkten quelle ADESK erhalte ......... was nützen die Neuerungen? Diese haben doch eh nur in den seltensten Fällen etwas davon, was man als Lösung der Probleme bezeichnen könnte.Zitat:O ...
|
| In das Form Lisp wechseln |
 |
Lisp : Werte von Attributen in Blöcken ändern
CADwiesel am 19.01.2021 um 14:53 Uhr (15)
Im Kern brauchst du ENTNEXT. Damit hangelst du dich durch die Attribute, wenn deine Blockref welche hat.Hier mal ein Lisp codeschnipsel mit dem du was machen könntest...Code:(defun attchange (elem attname gcwert wert / aslst) (setq aslst (entget elem)) (if (= (cdr (assoc 0 aslst)) "INSERT") (progn (if (= (cdr (assoc 66 aslst)) 1) (progn (setq aslst (entget (entnext (cdr (assoc -1 aslst))))) (while (/= (cdr (assoc 0 aslst)) "SEQEND") (if (= (cdr (assoc 2 aslst)) attnam ...
|
| In das Form Lisp wechseln |
|
Lisp : bitte beachtet Urheberrechte
tom.berger am 23.06.2004 um 16:47 Uhr (0)
Zitat:Original erstellt von CADwiesel:Also ich denke das die hier veröffentlichten Programme oder Programmteile nicht der Rede wert sind, was das Urheber- oder Copyrightrecht betrifft.Alle Personen, die meinen ihre Schöpfungen sind etwas Besonderes, werden diese compilieren, und nicht im Quellcode veröffentlichen.Hier in den Foren geistert mit Sicherheit nichts rum, was dem besonderen Schutz des Gesetzes unterliegt.Da befindest Du Dich mit absoluter Sicherheit im Irrtum.Es geht auch gar nicht darum, ob di ...
|
| In das Form Lisp wechseln |
|
Lisp : Kleines Knacknuss Projekt
Tumi am 01.07.2009 um 15:26 Uhr (0)
Hallo Leute. Aller Anfang ist schwer... und könnte Eure Hilfe brauchen. Trotz einigen Online Crash-Kursen und einem dicken LISP Handbuch fehlt mir wohl die Praxiserfahrung, darum wende ich mich an Euch und hoffe Ihr habt Spass daran diese Knacknuss zu lösen. Natürlich dürft Ihr, die CAD.de User die Vorlagen übernehmen und mit Euren Firmeninternen Layern ect füllen, da dies eine abgespeckte Version unserer Hauseigenen Vorlage ist Es geht um folgendes:Kurze Einleitung:Wenn unser Inginuerbüro ein neues Objekt ...
|
| In das Form Lisp wechseln |
|
Lisp : Falscher Block durch Lisp eingefügt
wronzky am 13.08.2008 um 17:05 Uhr (0)
Hi Robert,frei nach Radio Eriwan: im Prinzip JA, aber: Zitat:1.Möglichkeit - Ich schreibe bei jedem defun noch ein z.B. "-Roh" dazuist nur die halbe Wahrheit, natürlich müssen die Aufrufe aus den anderen Funktionen dann auch angepasst werden. Zitat:2.Möglichkeit:Alle defun-funktionen in die defun c: -d.h. weniger Klammern und alle variablen an den Anfang.nicht weniger Klammern, sondern anders verschachtelt:Code:(defun c:blabla () ;-- Command-Defun (defun funktion1 () ;-- Funktion 1-Defun ... ) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer eines Layer-Eigenschaftsfilters schnell frieren/tauen
cadffm am 01.10.2018 um 13:39 Uhr (1)
Die Seite http://internetadressehier/ bringt keine Erkenntnis über die Struktur aber auch mit der richtigen URL habe ich keine Ahnung was das mit dem Fall zutun hat.Teste ob es per Lisp wie gewünscht schnell geht, also alle Laye oder die entsprechend vergleichbare Auswahlfrieren/tauen und wenn es geht: Viel Spaß beim coden.Ansätze?In dem Moment wo du dir etwas denkst kannst du zugleich davon ausgehen:Es gibt dies bereits 100x im Netz was aber nicht bedeutet man würde es auch leicht finden.Ich suche jetzt ...
|
| In das Form Lisp wechseln |
|
Lisp : Buchstaben im Attributnamen
Andrina08 am 04.08.2021 um 07:21 Uhr (1)
Hallo zusammen! Ich habe einen Punktimport erstellt, welcher aus einer Datei einen Block einfügt und die Punktnummer, sowie die Höhen als Attribute abfüllt. Eine Zeile im File sieht wie folgt aus: PT 203 S 153 2687839.100 1249973.784 438.404Die 203 wird in diesem Fall die Punktnummer. Nun möchte ich gerne auch Buchstaben importieren können, das gibt aber im Moment noch einen Fehler... Könnt ihr mir da weiterhelfen? Auszug, aus meinem Lisp, wo die Punkte importiert werden: (if file (progn (setq fi ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl -xref nimmt keine Variablen?
Peter2 am 04.01.2018 um 15:10 Uhr (5)
Ich habe ein Xref mit dem Namen "Abrund-2". Befehlszeilenzugriff mit eingetipptem Namen ist kein Problem.Code:Befehl: -XREFOption eingeben [?/Binden/Lösen/Pfad/pFadtyp/Entfernen/Neuladen/Überlagern/Zuordnen] Zuordnen: pXRef-Namen eingeben, um Pfad zu bearbeiten: Abrund-2XRef-Name: "Abrund-2"Alter Pfad: D:BeispieleAbrund-2.dwg....Will ich den Namen aber per Lisp-Variable übergeben dann hört der Spass auf:Code:Befehl: (setq x "Abrund-2")"Abrund-2"Befehl: -XREFOption eingeben [?/Binden/Lösen/Pfad/pFadtyp/Entf ...
|
| 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 |
|
Lisp : Block im Block sprengen
autocart am 14.06.2009 um 21:46 Uhr (0)
Hallo Jungspunt! Zitat:Original erstellt von Jungspunt:Ich habe bei Cadwiesel eine Lisp gefunden wie man die Layer innerhalb eines Blockes auf Layer 0 setzt und als Layerfarbe vonLayer.Du meinst wahrscheinlich "Elemente innerhalb eines Blockes", oder? Außerdem macht es grundsätzlich mehr Sinn (abgesehen von Ausnahmen), wenn man die Farbe von Elementen auf Layer 0 innerhalb von Blöcken auf "vonBlock" stellt und nicht auf "vonLayer". Zitat:Original erstellt von Jungspunt:Bei meine Blöcken geht das aber leide ...
|
| In das Form Lisp wechseln |
|
AutoLisp : pnetz aus 2d
mapcar am 16.09.2005 um 21:24 Uhr (0)
Zitat:Original erstellt von moes:...schon rasch gute Schnitte zeichnen.Liegen denn deine Daten wirklich in einem quadratischen Raster vor? Normalerweise doch nicht, denn man kann sich ja beim Vermessen von Gelände die Punkte nicht völlig frei aussuchen. Meist liegen die Punkte ja ziemlich verstreut auf Höhenlinien usw. Das passt nachher weder in quadratisches noch in sonst ein Raster.Tja, und Schnitte zeichnen mit 3D-Polylinien? Auch nur von Hand mit den Polylinien als Hilfe, oder?Auch bei dem Verfahren m ...
|
| In das Form AutoLisp wechseln |
