|
AutoLisp : .CCF hinter einem ICON
Feyza am 07.04.2004 um 09:51 Uhr (0)
Hallo, okay. In AutoCAD gibt es unter Hilfsmittel-- Script-- Script Generator die Möglichkeit unter Ausgewählte Funktionen CONVERT Layer konvertieren ein Script auszuführen. Dieses ist eine .CCF Datei ( siehe Anhang -- bitte .txt von der Dateinamen entfernen). Man muss ein bestimmtes Verzeichnis angeben, wo die dwg´s liegen. Dies muss auch programmierbar sein. So: IN diesem Script muss man auf ein bestimmtes Verzeichnis zugreifen können, und dort diese CCF Datei ausführen (wo man die bestimmten dwg´s ...
|
| In das Form AutoLisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
CADmium am 28.01.2005 um 07:52 Uhr (0)
Ach Peter! Wie war das mit dem Tutorial von Mapcar? Bis zum Sommer? Nimm vorerst diese Funktion :(defun DT:LIST-REMOVE-NTH ( LISTE POS / RETURNLISTE ) (if (and(=(type LISTE) LIST)(=(type POS) INT)) (if (and(= POS 0)( POS (length LISTE))) (progn (repeat POS (setq RETURNLISTE (cons (car LISTE) RETURNLISTE )) (setq LISTE (cdr LISTE)) ) (setq LISTE (cdr LISTE)) (repeat(length LISTE) (setq RETURNLISTE (cons (car LISTE) RETURNLISTE )) (setq LISTE (cdr LISTE)) ) (setq RET ...
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
joern bosse am 12.08.2008 um 12:21 Uhr (0)
Hallo Uwe,wenn alle Stützpunkte außer Anfangs- und Endpunkte gelöscht werden sollen, dann würde ich doch eine neue Linie von Anfangs- bis Endpunkt zeichnen:Code:(defun c:test( / ) (setq obj (car(entsel))) (command "_.line" (car (setq liste (test:stzpkt obj))) (last liste)""))(defun test:stzpkt (obj / liste) (while (and(setq obj(entnext obj))(/=(cdr(assoc 0 (entget obj)))"SEQEND")) (setq liste (cons (cdr(assoc 10 (entget obj)))liste))) (reverse liste))Der Code gilt nicht für LW-Polylinien------------- ...
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
Brischke am 28.01.2005 um 09:10 Uhr (0)
Hallo,ich finde an den ganzen Lösungen ist es nachteilig, dass immer die gesamte Liste durchlaufen wird.Nachfolgend eine Lösung, bei der die Liste nicht vollständig durchlaufen werden muss.Code:(defun L:DELETE_FIRSTFOUND (LISTE ELEM / z returnLIST tmpLISTE ANZ) (setq tmpLISTE LISTE) (if (setq ANZ (VL-POSITION ELEM LISTE)) (progn (repeat ANZ (setq returnLIST (cons (car tmpLISTE) returnLIST) tmpLISTE (cdr tmpLISTE) ) ) (append (reverse returnLIST)(cdr(member ELEM LISTE))) ) ...
|
| In das Form Lisp wechseln |
|
Lisp : Umgrenzung für Schraffur neu erstellen
Hämmy am 10.09.2020 um 07:25 Uhr (1)
Hallo Leute,ich habe folgendes Problem:wenn ich Objekte die Schraffiert sind, kopiere und danach in der Größe ändere, geht die Schraffur nicht mit.Eigentlich sollte das nicht so sein, aber bei kopierten ist das leider oft der Fall.jetzt muß ich Umständlich in die Schraffur gehen, die Umgrenzung für das Objekt entfernen, und dann das gestreckte Objekt als neue Umgrenzung auswählen.Das ist natürlich sehr umständlich, deshalb wollte ich hier fragen, ob man dafür eine Lösung per Lisp basteln kann.z.B.Schraffur ...
|
| In das Form Lisp wechseln |
|
Lisp : Zoom auf Object + Zoom 0,8x
rkauskh am 29.04.2009 um 21:34 Uhr (0)
HalloIch verzweifel gerade an einer simplen zoom-Funktion.Code:(Defun C:Z8 ( / obj)(setq obj (car(entsel "Wähl mal was: ")))(command ".zoom" "o" obj)(command ".ZOOM" "fa" ".8x")(princ))Es erscheint "Wähl mal was:" und sobald ich mein Test-Rechteck klicke bekomme ich:Code:*Ungültige Auswahl*Erwartet einen Punkt oder Fenster/Letztes/Kreuzen/QUADER/ALLE/ZAun/FPolygon/KPolygon/Gruppe/Hinzufügen/Entfernen/Mehrfach/Vorher/ZUrück/AUto/EInzeln; Fehler: Funktion abgebrochenNach einem anschließenden Rechtsklick zoom ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp code?
chris888 am 02.02.2011 um 14:58 Uhr (0)
sooooohabs jetzt mal ausprobiert und1. die eingaben mit (0."line") also die . eingabe funktioniert iwie nicht kommt immer in der befehlszeile "fehlerhafte punktbezeichnung"[ich habs zumindest jetzt hinbekommen den befehl mit (cons 0 "line") hinzubekommen]2. alles toll was ihr mir da gezeigt habt aber ich will aus einem schon bestehenden auswahlsatz ausschliessen so wie wenn man die "shift" taste drückt.Problem: Ich hab objekte in einem bestimmten bereich die ich markieren will aber auf dem gleichen eigensc ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencode 1 Assoziativ Bemaßung
RSt-Stahl am 17.07.2007 um 15:11 Uhr (0)
Noch mal Hallo Forum, nachdem ich jetzt die Werte die ich brauch auslesen kann, habe ich nun das Problem das ich die Strings die ich erhalte nicht zerteilen kann. Ich erhalte z..B. folgenden Wert "A1;512" nun möchte ich nur die 512 erhalten dies gelingt mir mit (atof(substr Wert 5)). Jetzt habe ich aber das Problem ist die Bemassung aus irgendeinem Grund von Hand geändert worden, so kann ich das auf diesem Wege nicht mehr abfragen! Darum meine Frage gibt es eine Methode mit der ich bei jedem Wert falls vor ...
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
CADmium am 02.11.2006 um 19:27 Uhr (0)
Hi Mogulito, auch von meiner Seite ein herzliches Wilkommen im Lispforum..1.Siehe Marc2.so eine rekursive Gestaltung macht sich meist gut, da der Code schön kurz gehalten werden kann.Gefällt mir. Auch das Laufzeitverhalten sieht gut aus.. evtl. kann man n vorher noch auf ( 0 n (length LISTE)) testen.. dann spart man sich unnötige Durchläufe3. Ich weiß nicht aus welchem Lispdialekt du das übernommen hast,aber Autolisp kennt z.B. keine Funktion endp4. so hab ich deinen Code mal angepassr:Code:(defun NEL(N LI ...
|
| In das Form Lisp wechseln |
|
Lisp : absolute Rendermaterialpfade ändern
mapla am 23.02.2009 um 22:11 Uhr (0)
Hallo Lispler,AutoCAD legt bei Materialzuweisungen absolute Pfade an! z.bsp. bei ACAD2008All UsersAnwendungsdatenAutodeskAutoCAD 2008R17.1deuTexturesÖffnet man die Datei in 2009 ist das unproblematisch da beim Rendern Der TextureMapSuchpfad ausgelsesen wird.Allerdings funktioniert ETransmit nicht, die findet die Datei nur im absoluten Pfad sofern vorhanden.Gibt es eine Möglichkeit den absoluten Pfad vi Lisp zu ändern?Mit DxfOut Pfad entfernen und wieder einlesen funktioniert Render und Etransmit unter 2009 ...
|
| In das Form Lisp wechseln |
|
Lisp : ACAD 2011 GUI Steuerung
mapla am 08.02.2011 um 11:00 Uhr (0)
Hallo Zusammen,Wir stellen gerade um von 2002 auf 2011! Derzeit benutzen 100 ACAD User unser System!Dieses möchte ich in der Oberfläche sehr diszipliniert halten und dem User wenig möglichkeiten der Manipultion geben!daher ist die CUI Anpassung für den EndUser voerst TABU.Schnellzugriff-WerkzeugkästenDiesen Pull Downmenüschalter würde ich gern entfernen, und die Werkzeugkästen selbst gern fest zuweisen,bzw. über LISP in einen von mir definierten Ausgangszustand zurücksetzen können - geht da was?SubSription ...
|
| In das Form Lisp wechseln |
|
Lisp : Layerstatus
cadffm am 03.11.2021 um 15:38 Uhr (14)
["Dazu kommt dann die Voreinstellung der Einstellungen für das Wiederherstellen."]"Nein, bei der Befehlszeilenversion gibt es keine Optionen für das Wiederherstellen, nur für das Sichern - wenigstens bei ACAD2020."JA - ABER. Das ist ein und dasselbe! Dialogfeld wie auch Befehlszeile..Wenn du in AutoCAD einen Layerstatus erstellst, dann sind alle Eigenschaften voreingestellt auf AKTIVIERT ( = sollen wiederhergestellt werden),im Nachgang kannst du die Häkchen entfernen.. und änderst dabei aber den gespeicher ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Listeneinträge entfernen
Meldin am 17.04.2014 um 13:59 Uhr (1)
@ archtools Schade das du die einzelnen Funktionen und deine Listen Konstruktion nicht gepostet hast. Aber probiere es mal mit der Liste.Code:(SETQ i 1.0) (REPEAT 5000 (SETQ Liste (CONS (- 5000 i) (CONS i Liste)) i (+ 2 i) ) ) Und zeig dann mal was hier deine Zeiten sagen.@CadFFM Achtung es kommt immer darauf an was man verwursten will Append ist für listen gedacht nicht für einzelene Elemente da hat cons die Nase vorn, habe damals dafür einen Test erstellt solltest du dir mal ans ...
|
| In das Form Lisp wechseln |
