|
Lisp : Punktkoordinaten aus Datei auslesen
alfred neswadba am 25.11.2008 um 11:18 Uhr (0)
Hi,Willkommen in CAD-de!Deine Aufgabe erinnert mich an einen vor kurzem eingestellten Thread mit einem Titel ähnlich Sichtweiten == kann es sein, dass Du an gleichem/aehnlichem arbeitest?Zusammenfassend zur Verwendung des Forums, punktuelle Hilfe ist hier jederzeit möglich, also wenn Du beim Zeichnen, oder in Deinem Lisp irgendwo hängst und dann für diese Situation Hilfe brauchst == GERNE!Bitte aber ein Forum, in dem viele Ihre Zeit (kostenlos) zur Verfügung stellen, um Hilfestellung zu geben nicht mit kos ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Konstruktionslinien versetzen von einer Linie in einem Block
Brischke am 20.10.2003 um 20:47 Uhr (0)
Hallo CAD-Tötti, ob ein Layer vorhanden ist kannst du mit (tblobjname..) prüfen. Siehe dazu dort: http://ww3.cad.de/foren/ubb/Forum145/HTML/000261.shtml Einen Layer erzeugen solltest du innerhalb eines Reactors mit (entmake ..) Das könnte dann so aussehen: Code: (entmake (if ( 14 (atoi(substr (getvar acadver ) 1 2)));AutoCAD-Version abfragen (list (0 . LAYER ) (100 . AcDbSymbolTableRecord ) (100 . AcDbLayerTableRecord ) (cons 2 ltbs_name);Name als String (70 . 0) (cons 62 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : sssetfirst und Attribute
cadffm am 20.10.2011 um 11:50 Uhr (0)
Also OK, dann wollen wir mal sagen das es sich in Lisp 100% genau so verhalt wie auf ganz normalerAnwenderebene.Hat man die Attribute gewählt und gibt sie zB. der _Copy-Funktion zum Fraß, so wird Acad einemauc hdie Inserts kopieren und nicht die Attribute.. Und genau so verhalt sich der Auswahlsatz auch -im Auswahlsatz sind ebenfalls die übergeordneten Objekte (die Insert) enthalten !Das Besondere ist eben das sich AutoCADbei jedem Auswahlsatz auch genau merkt wie dieser erstellt wurde,Und in deinem Fall h ...
|
| In das Form Lisp wechseln |
|
Lisp : Punkte mit Linien verbinden
Dorfy am 13.02.2012 um 21:16 Uhr (0)
in deiner repeat schleife gehst du die Punkte durch und suchst dir den Text im näheren Umfeld(Fehlerbetrachtung iwan noch bedenken -- kein Text, mehr als ein Text...)somit hast du Punktnummer und Koordinaten -- die "kleine Liste" (punktnummer . (koordlist))(ich würde ihmo auf cons zurückgreifen... für die kl. Liste) diese kleinen Listen hängst du dann munter aneinander mittels cons oder append((punktnummer1 . (koordlist1))(punktnummer2 . (koordlist2))(punktnummer3 . (koordlist3))...(punktnummern . (koordli ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.-group / Hinzufügen
cadffm am 23.11.2020 um 15:21 Uhr (1)
Zitat:Original erstellt von Bernd10:mir ist jetzt erst aufgefallen, dass in Mechanical 2020 der Befehl _.-group mit der Option "Hinzufügen" inmeiner Lisp-Datei nicht funktioniert. Genauer gesagt, wird das vorhandene Objekt nicht der vorhandenen Gruppe hinzugefügt.Leider habe ich bisher keine Lösung dafür gefunden.Ich bezweifel das es mit der Version zutun hat, das läuft mind. v2012 gleich (und wenn ich raten darf, eher v2000, wenn nicht seit anbeginn).Was ich an deinem Code sehe ist: Du beendest die Objekt ...
|
| In das Form Lisp wechseln |
|
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 : 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 |
