|
Lisp : Alle Blöcke einer Zeichnung in unbenannte Blöcke umwandeln
CAD-Tötti am 09.07.2010 um 15:47 Uhr (0)
Hallo, ich war lange nicht mehr online ... deswegen weiß ich auch nicht, ob es dieses Thema schon mal gab.Ich suche ein Tool für folgende Situation: ich möchte ALLE Blöcke einer Zeichnung (benannte & unbenannte) in unbenannte Blöcke umwandeln.Denkbar wäre alternativ ein Tool, welches alle Blöcke der Zeichnung (benannte & unbenannte) nach dem Zufallsprinzip oder nach einem beliebigen Muster umbenennt.Wer kann mir helfen?Danke und Grüße aus dem hohen Norden,CAD-Tötti
|
| In das Form Lisp wechseln |
|
AutoLisp : zeichnung ausstechen
StefanW am 23.02.2005 um 17:16 Uhr (0)
Hallo Jan ! Hab Dir mal was aus der Map-Hilfedatei kopiert, damit sollte das laufen. Zitat: Trims linear objects inside or outside of a specified boundary. (map_dwgtrimobj ssclip boundary inorout skiptopo keepod bitflag ) Returns a selection set of objects trimmed by the operation or nil. ssclip Selection set of objects to trim boundary Entity name of a boundary object. Valid objects: a single circle or a single closed 2D polyline inorout Trim flag: 1 Trim outside boundary 0 Trim ins ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
fewoer am 17.07.2012 um 16:23 Uhr (0)
Hey CADblue,danke für die schnelle Antwort, bei mir läuft es allerdings auch ohne das princ nicht. Das hatte ich nachträglich eingefügt, weil ich dachte es würde helfen.Ich habe momentan die Vermutung, dass es an der Stelle gegen Ende hängt:Code:(command "_AstM4CommExplodeToAcis")(setq l (ssget "X" ((0 . "LINE"))))(command "_erase" l "")Ich glaube, er führt zuerst das Kommando AstM4CommExplodeToAcis aus, sucht sofort nach Linien und versucht die zu löschen. Aber es gibt eben erst Linien in der Zeichnung, w ...
|
| In das Form Lisp wechseln |
|
Lisp : Abfrage als Text in Zeichnung einfügen
cadplayer am 18.08.2009 um 15:39 Uhr (0)
Hallo!Ich habe hier eine Routine, mit der ich die Länge einer Linie abfragen kann.Meine Frage ist die, wie schaffe ich das Ergebnis als Text an die Linie zu erzeugen? Das muss irgenwie mit (command "text"...) möglich sein, weiss aber das anzustellen.(defun c:ll ( / gl l el eldat) (setq el (entsel)) (while el (setq eldat (entget(car el))) (if (= (cdr (assoc 0 eldat)) "LINE") (progn (setq l (distance (cdr (assoc 10 eldat)) (cdr (assoc 11 eldat)))) (princ " Länge Teilstück: ") (princ l) (if gl (setq gl (+ gl ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
Doc40 am 22.05.2009 um 15:19 Uhr (0)
Hallo Heiko!Vielen Dank für deinen "Schnellschuss". Funktioniert einwandfrei! Wie von dir bereits erwähnt funktioniert die Routine leider nur für ein Objekt. Schön wäre, wenn ohne Benutzereingabe alle Objekte gewählt, und diese verschoben anstatt kopiert würden. (Modellbereich soll leer sein) Ein leerer Modellbereich ist wichtig, um eine Unterscheidung zwischen importierten Zeichnungen (ProEngineer) und generischen AutoCAD-Zeichnungen treffen zu können. Leider ist mein v-Functions-Wissen noch nicht ausrei ...
|
| In das Form Lisp wechseln |
|
Lisp : Abfrage als Text in Zeichnung einfügen
CADwiesel am 18.08.2009 um 15:51 Uhr (0)
so?Code:(defun c:ll ( / gl l el eldat)(setq el (entsel))(while el(setq eldat (entget(car el)))(if (= (cdr (assoc 0 eldat)) "LINE")(progn(setq l (distance (cdr (assoc 10 eldat)) (cdr (assoc 11 eldat))))(princ "Länge Teilstück: ")(princ l)(if gl(setq gl (+ gl l))(setq gl l)))(princ "KEINE LINIE gewählt!"))(setq el (entsel)))(princ "Gesamtlänge: ")(princ gl)(if(setq start (getpoint "
Einfügepunkt:")) (entmake (LIST (0 . "TEXT") (cons 8 (getvar "clayer")) (CONS 10 start) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
Peter2 am 19.10.2010 um 13:40 Uhr (0)
Zitat:Original erstellt von Brischke:...Folglich mach ein Zoom-Grenzen und lass die ganze Rechnerei weg - fertig.Die Tücke steckt im Detail, weil ...- es soll mit "Zoom Grenzen" gespeichert werden, weil damit die Voransicht (BMP), andere Viewer und der nächste Acad-Zugriff gleich das ganze Bild zeigen - was wichtig und zeitsparend ist.- es soll der Zeichner speichern und nicht der "Prüfer im Massenlauf". Bei der "Standardprüfung" gibt es dann eine Liste der falsche gezoomten Zeichnungen, und die muss der ...
|
| In das Form Lisp wechseln |
|
Lisp : Abfrage als Text in Zeichnung einfügen
CADmium am 18.03.2010 um 08:44 Uhr (0)
Zitat:Original erstellt von MARTINLE:Wie findet Ihr solche Sachen so schnell? also ich weiß ungefähr , was ich schon mal geschrieben hab und bei meinen Lisp auf der Platte steht dann auch der zugehörige Link mit bei ;) Zitat:Original erstellt von MARTINLE:Ich stelle mir vor, daß man solch ein Lisp gut dafür verwenden könnte um bei einem Rechteck nach der Eingabe "Abmessungen" diese Distanz als Breite einsetzen könnte. Somit bräuchte man nicht immer mit der Hand die Breite eingeben, nur noch die Länge, ode ...
|
| In das Form Lisp wechseln |
|
Lisp : Meldung beim Öffnen der Zeichnung unterdrücken
Bernd10 am 08.07.2010 um 09:53 Uhr (0)
Hallo,beim Öffnen mancher Zeichnungen erscheint die Meldung in der Anlage. Mir ist klar, warum das passiert. Für bestimmte Fälle möchte ich aber per Lisp die Meldung unterdrücken, damit keine Anwendereingabe notwendig ist. Bei bestimmten Befehlen kann dies mit der Funktion initdia oder der Systemvariable expert erreicht werden. Für meinen aktuellen Fall habe ich nichts gefunden.Wie kann ich die beiliegende Meldung beim Befehl Öffnen unterdrücken?Danke im Voraus und viele rüßeBernd
|
| In das Form Lisp wechseln |
 |
Lisp : Script und Lisp in Zeichnung ziehen Fehler
cadffm am 26.07.2021 um 11:29 Uhr (15)
In dem Fall würde ich zur IT gehen und Fragen ob da etwas neues Installiert/geändert wurde,wenn man nach deinem Problem sucht findet man derartige Informationen, Beispielsweise ein Programm was "VIEWFINITY" heißt/hieß,oder du hast evtl. andere Rechte bekommen? Auch als Admin mit bestimmten Einstellungen der Benutzerverwaltungkann sowas der Fall sein.Auf jeden Fall ist es jetzt kein AutoCAD Thema mehr (es sei denn es wurde ein Zusatzprogramm in AutoCAD implementiert welches die Aktionen ins Leere laufen läs ...
|
| In das Form Lisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
Wolfgang S am 29.11.2010 um 08:22 Uhr (0)
Grüß Euch!Ich bin dieses Problem schon einmal angegangen.folgende Hinweise:- XREF-Linientypen beachten, evt. mit Switch im Programm, Namenssuche mit dem *|*- Layer Linetypes ändern- alle losen Elemente mit LT=/ByLayer oder ByBlock und mit dem gesuchten LT- alle Blockdefinitionen die nicht xrefabhängig sind durchgehen- alle Attribute durchgehen - SEQEND-Layer - alle Blockreferenzen durchgehen - SEQEND-Layer ich hab bei mir gleich mal den falschgeschriebenen Continous-Linetype und den AUSGEZOGEN Linientyp mi ...
|
| In das Form Lisp wechseln |
|
Lisp : Änderung in Zeichnung: gelöschte Objekte
joern bosse am 15.08.2007 um 14:06 Uhr (0)
Hallo Henning,so mache ich es zur Zeit auch. Aber die Listen werden bei manchen Projekten doch recht groß.Angenommen ich habe 5000 Punktblöcke. Zudem noch zugehörige Punktnummer und Koordinaten, Neigungspfeile, 3D-Polylinien in der Liste gespeichert, d.h., die Listen können schnell doch ganz schön groß werden. Wenn jetzt ein Anwender der Meinung ist, ich lösche 4000 Punktblöcke, dann würde das Programm insgesamt schneller arbeiten, wenn ich die Liste mit den verbleibenden 1000 Punktblöcken einmal neu schre ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
cadffm am 03.02.2014 um 10:50 Uhr (1)
@Theo Die 2012er Hilfe ist so wie so etwas gruselig, Ich selbst verwendet die 2014er KlickDas kann man natürlich nur Leuten empfehlen die dann nicht krampfhaft die 2014er Funktionen in ihrem 2012er versuchen zu testen,aber zum nachschlagen ist diese Hilfe um Welten besser !------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD[Diese Nachricht wurde von cadffm am 03. Feb. 2014 editiert.]
|
| In das Form Lisp wechseln |
