|
Rund um Autocad : Layer umbenennen
Brischke am 26.04.2004 um 11:20 Uhr (0)
Hallo Stefan, dann nimm dies: Code: (defun c:laySubAnf ( / lay muster) (setq lay (tblnext LAYER T) muster Ebene );Hier den Mustertext eintragen, ;der am Anfang eines Layernamens ;gelöscht werden soll (while lay (if (and (wcmatch (strcase (setq lay (cdr(assoc 2 lay)))) (strcase (strcat muster * ))) (not (tblobjname LAYER (setq nlay (vl-string-trim (substr lay (1+ (strlen muster))))))) ) (progn ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Kreis/Bogen in Liniesegmente
Brischke am 26.05.2003 um 13:13 Uhr (0)
Hallo Jürgen,folgende Zeilen erledigen das für dich. Einfach das Objekt wählen und dann die Anzahl der Segment eingeben. Programm erstellt dann eine LWPolylinie.Code:(defun c:kbla (/ elem selem pts) (setq elem (entlast)) (command "_.DIVIDE" (setq selem(car (entsel)))(getint "
Anzahl der Segmente:")) (setq selem (vlax-ename-vla-object selem) pts (list (vlax-curve-getStartPoint selem)) ) (while (setq elem(entnext elem)) (setq pts(cons (cdr(assoc 10 (entget elem))) pts)) (entdel elem) ) (entmake(append(lis ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Verbindungspunkt
Brischke am 25.05.2004 um 15:14 Uhr (0)
Hallo Morton, in einem der letzten AutoCAD-Magazine habe ich ein Tool veröffentlicht, welches an den Kreuzungspunkten von Linien einen Bogen in die Linie einfügt. Hast du das AutoCAD Magazin, dann schau dir das mal an, vielleicht entspricht das ja deiner Aufgabenstellung. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Ös ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farben auf Layer sortieren
Brischke am 27.01.2004 um 11:25 Uhr (0)
Zitat: Original erstellt von Karin72: ...da hatte ich bereits geschaut (und nix passendes gefunden)... Hallo Karin, dann schau bitte noch einmal. Gleich das Prog 3 meiner Downloads (Menü: Hilfe) sollte genau diese Aufgabenstellung erfüllen. Wenn du damit nicht zurecht kommst dann schick mir ne PM Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : neu aufbau der zeichnung beschleunigen
Brischke am 25.11.2004 um 10:59 Uhr (0)
Hallo michelangelo, blende die Grafik doch aus, wenn du diese nicht benötigst, falls doch, dann hast du schlechte Karten. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Kopf mit Lisp
Brischke am 20.03.2003 um 08:12 Uhr (0)
Hallo Bernd, ich habe da mal ein Tool geschrieben, welches Dir Exceltabellen als Tabelle aus AutoCAD-Elementen einfügt. Das wären Zeilenweise Blöcke, in denen die Attribute mit den Werten der Tabelle gefüllt sind. Mehr dazu kannst du dort - http://www.cadlon.de/Freedwnload/Tabellenfunktion.pdf nachlesen. Das Tool, kann auch sehr leicht auf Deine Anforderungen bzgl. Layer, usw. angepasst werden. Bei Interesse einfach melden. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Block in Polylinie
Brischke am 28.10.2003 um 11:50 Uhr (0)
Hallo Florian,anbei eine einfache Lösung, die allerdings noch keine Kreisbögen berücksichtigt. Das könnte man auch noch reinbringen, ist aber etwas aufwendiger.Zunächst mal die LISP-Datei laden.Baue Dir am besten eine Schaltfläche mit folgendem Inhalt (sel_blk).Dann startest du einfach einen Befehl Schieben/Löschen... und klickst auf die Schaltfläche .. die Polylinie wählen - Blöcke sind ausgewählt.Code:(vl-load-com)(defun sel_blk ( / pl) (princ "
UmgrenzungLWPolylinie wählen:") (setq pl (ssget "_:S" ((0 . ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block in Polylinie
Brischke am 28.10.2003 um 12:13 Uhr (0)
Hallo Florian,mir ist auch noch eine einfache, den Kreisbögen angenäherte Lösung eingefallen. Jede Polylinie wird nun in 100 gleichlange Segmente geteilt. Das kann nun sein, dass dies für deinen Anwendungsfall noch zu grob ist, dann setze diese Zahl einfach hoch.Code:(vl-load-com)(defun sel_blk ( / pl pll abst step ptli) (princ "
UmgrenzungLWPolylinie wählen:") (setq pl (ssget "_:S" ((0 . "LWPOLYLINE")))) (if pl (progn (setq pl (vlax-ename-vla-object (ssname pl 0)) pll (vlax-curve-getDistAtParam pl ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block in Polylinie
Brischke am 28.10.2003 um 13:11 Uhr (0)
Hallo Florian,zuerst ein Auszug aus der Hilfe (Acad2000) zu (ssget) Zitat:Creates a selection set from the selected object(ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])Selection sets can contain objects from both paper and model space, but when the selection set is used in an operation, ssget filters out objects from the space not currently in effect. Selection sets returned by ssget contain main entities only (no attributes or polyline vertices).Argumentssel-method A string that specifies the ob ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : automatische attribute wie username/datum
Brischke am 17.05.2001 um 11:16 Uhr (0)
Hallo Gabriel, arbeitest du mit AutoCAD2000, dann schaue mal bei den EXPRESS-Tools in der Hilfe unter "rtext". Damit kannst du dynamische Texteinträge in der Zeichnung ohne LISP machen.
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : auto lisp + mehrere zeichnungen
Brischke am 07.06.2001 um 07:43 Uhr (0)
Hallo Gabriel, das funktioniert so nicht. Am besten du schreibst die entsprechende LISP- die die Änderungen in der Zeichnung vornimmt. Diese läßt Du nach dem Öffnen gleich ausführen, indem du die Ladeanweisung und den Aufruf in der acad.lsp bei (defun s::startup () ...) vereinbarst. Jetzt ist nur noch das Problem, daß das ganze im Batchprozeß ablaufen soll. Im AutoCAD2000 ist dazu das Zusatzprogramm ScriptPro (bei den Migrationstools enthalten) genau das richtige. Bei Fragen ... Grüße Holger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP oder sonstwas?
Brischke am 20.06.2001 um 12:36 Uhr (0)
Hallo Gotthard, totgesagte leben länger! AutoLISP wird im Allgemeinen -soweit mir bekannt ist jedoch nicht von Autodesk- in Frage gestellt. Bisher hat Autodesk immer den Befehlsumfang erweitert und stellt nun auch die Entwicklungsumgebung zur Verfügung. Mit LISP können viele Sachen sehr viel einfacher gelöst werden, als z.B. mit VB oder C. Deshalb werden einige Funktionen der Applikationen auch mit LISP programmiert. Meiner Meinung nach, wird LISP weiterhin existieren und auch eine Daseinsberechtigung habe ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP oder sonstwas?
Brischke am 20.06.2001 um 13:08 Uhr (0)
Zitat: Original erstellt von MichaHo: Hallo, ... www.autodesk.de / www.autodesk.com Gruß Michael Zitat: Autodesk schreibt dazu: 7.6 Was ist Visual LISP? Visual LISP ist die neue Generation von AutoLISP®. Visual LISP ist voll kompatibel mit AutoLISP und bietet u.a. auch Zugriff auf die neue Multiple Design Environment oder die COM/ActiveX Schnittstelle. Visual LISP bietet ferner eine komplette und leistungsstarke Entwicklungsumgebung mit Tools für die Erstellung und Fehlerbehebung in L ...
|
| In das Form Rund um Autocad wechseln |
