|
Rund um AutoCAD : Infos per AutoLIPS in Zwischenablage
CADmium am 19.06.2008 um 14:46 Uhr (0)
Zitat:Original erstellt von Baldeagle:Hallo Thomas,danke für die Hilfe.Nur leider komme ich damit nicht so ganz zu recht.Ich habe Deinen Text in mein LISP-Tool kopiert und den Befehl eingebaut.Der "eigene" Teil von mir sieht so aus:(defun c:zwab ( / ) (setq block (car (entsel "
Bitte auszulesenden Block wählen:"))) (setq handle (cdr (assoc 5 (entget block)))) (setq kriterium (cdr (assoc 2 (entget block)))) (while (/= kriterium "ARTIKEL-ID") (setq block (entnext block)) (setq kriterium (cdr (asso ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Button für Ungroup Erstellen
CADmium am 09.05.2006 um 16:16 Uhr (0)
Zitat:Original erstellt von GTVLeader:Hallo Leute,Hat vielleicht jemand eine Adresse wo man eine Anleitung für Dummies / Anfänger für LISP programmieren findet? Die AutoCad Hilfe gibt nicht gerade viel her )1.Adresse : Mapcars Seiten Zitat:Original erstellt von GTVLeader:Gibts nicht so eine Befehlszeile mit der ich mir einen Button basteln könnte der mir die Gruppe welche ich anklicke auflöst. Wichtig wäre mir dabei das es immer nur die oberste Gruppe aufhebt. Also wenn ich zB 2 Gruppen nehme, diese zu ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : layer invertieren
CADmium am 21.03.2007 um 22:14 Uhr (0)
Eine gute Einführung bietet das demnächst auch hoffentlich als Buch erscheinende Tutorial von Mapcar und ein Lisp-Handbuch für R14 ... nicht zu vergessen die Onlinehilfe (aber da muß man ja erst wissen wonach man sucht .Wenn du im englischen Fit bist kann ich noch AFRALISP empfehlen.Aber noch mal zu deinem Bsp:(defun c:swi (/ lay layli) ... lay layli sind lokale Variablen (while (setq lay (tblnext "LAYER" (not lay))) ...solange mit der Funktion tblnext noch ein Layer in der Layertabelle gefunden wird, spe ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
CADmium am 14.01.2009 um 12:27 Uhr (0)
Warum sichert ihr eure Progs eigentlich nicht minimal gegen abkacken wegen fehlerhafter Usereingaben ab ?z.B. so : (ungetestet nur in den Editor geschrieben..)(defun c:bel (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing) (if(and(or(setq corner1 (getpoint "
Erste Ecke angeben: ")) (prompt "
Ungültiger 1. Punkt") ) (or(setq corner2 (getpoint "
Zweite Ecke angeben: ")) (prompt "
Ungültiger 2. Punkt") ) (or(and(setq columns (getint "
Anzahl wagerecht: ")) ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Algorithmensammlung gesucht
CADmium am 29.11.2005 um 10:26 Uhr (0)
Zitat:Original erstellt von s.wickel:Hallo Forum!Weiss vielleicht jemand von euch eine Internetseite oder ein Buch mit Algorithmen für die Programmierung?.. ein bißchen sehr allgemein .. der Grundalgorithmus eines Programms(Moduls) wäre "Datenbereitstellung" - "Aufgabenlösung" - "Datenausgabe" solche Module lassen sich dann zu übergeordneten Modulen und ganzen Programmen erweitern. Zitat:Original erstellt von s.wickel: Z. B. wenn ich die Schnittpunkte zwischen zwei Kreisen suche (nur ein Beispiel) könnte ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Blöcke skalieren
CADmium am 29.07.2004 um 21:52 Uhr (0)
.. Prima ,wenns mit den Archtools geklappt hat!Und für alle, die Interesse an Open-Source haben, oder sich vielleicht doch mal etwas intensiver mit LISP beschäftigen wollen :(defun INSERT-SCALE (AUSWAHL X Y Z / NAME OBJEKT OBJEKTDATEN BLOCKDEF INDEX) (setq NAME(cdr(assoc 2 (entget (ssname AUSWAHL 0))))) ; und jetzt alle Blockreferenzen auf Blattebene updaten .. (setq INDEX -1) (if(setq AUSWAHL (ssget "_X" ((0 . "INSERT")))) ;(ssget "_X" (list (0 . "INSERT")(cons 2 NAME) ))) funzt nicht bei unbenannt ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Polylinie skalieren
CADmium am 16.03.2004 um 23:40 Uhr (0)
... ist glaube ich so.. und nicht deaktivierbar ... -- und wenn es nicht deaktivierbar ist, probier mal folgendes (noch nicht voll durchgetestetes) Lisp : (vl-load-com) (defun C:Varia_X ( / AUSWAHL ORIGIN SCALE OBJEKT VLA-OBJ SEGMENT-ANZAHL INDEX STARTWIDTH ENDWIDTH WIDTHLIST) (if (and(setq AUSWAHL (ssget)) (setq ORIGIN (getpoint
Basispunkt : )) (setq SCALE (getreal
Skalierfaktor : )) ) (progn (repeat (sslength AUSWAHL) (setq OBJEKT (ss ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Buch für Lisp
CADmium am 08.08.2007 um 13:46 Uhr (0)
OT: Zitat:Original erstellt von KlaK:Leider wird dieses Forum des öfteren dazu verwendet eigene Produkte zu vermarkten, sei es nun über Hinweise auf ein neues Produkt oder über Testversionen. Als Anhänger der open source Philiosophie denke ich wir sollten uns gegenseitig helfen.Dazu mus ich auch mal n Kommentar abgeben: von Axel findet man kaum Komplett-Tools im Forum, meist nur Anstöße und Codeschnipsel. Weil er es u.a. auch satt hatte , die Machmirmal-Mentalität zu unterstützen. Wer meine Entwicklung ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Probleme mit OSNAP / OSMODE - ON / OFF
CADmium am 29.12.2005 um 13:44 Uhr (0)
Zitat:Original erstellt von Paulchen:Fragen: Welchen Einfluß haben die Einstellungen der o.g. sysvars? Warum klappt es, wenn die sysvars auf "0" gestellt werden? Spielt z.B der Abstand der beiden Punkte voneinander eine Rolle? Dazu gibt die ACAD-Hilfe eigentlich ausfürlich Auskunft:Zitat:OSMODE (Systemvariable) Typ: GanzzahlGespeichert in: Registrierdatenbank des SystemsAusgangswert: 4133Stellt fortlaufende Objektfangmodi unter Verwendung der folgenden Bitcodes ein: 0 KEIner 1 ENDPunkt 2 MITtelpunkt 4 ZEN ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Button für Ungroup Erstellen
CADmium am 10.05.2006 um 10:17 Uhr (0)
Zitat:Original erstellt von GTVLeader:Thanks for help, das Lisp funktioniert sehr gut! Zum Thema falsche Arbeitsweise... Ich habe früher auf dem 2D System Medusa gearbeitet (damals noch Krankonstrukteur) und in dem Programm konnte man sehr gut eine Struktur erstellen und sich auch anzeigen lassen. Vor allem konnte man auch ohne großes Auflösen, Block Editor etc etc Bauteile in der Struktur bearbeiten bzw. in der Struktur verschieben. Die Bauteile konnten auch wie Blöcke aus einer Datenbank eingeladen werd ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Pfad für _ddinsert setzen
CADmium am 12.11.2004 um 12:23 Uhr (0)
_-insert ist die internationale Variante! Drück mal in deinem Autocad F1 und suche mal den deutschen Befehl einfüge .. da steht dann : ...Plaziert eine Zeichnung oder einen benannten Block in der aktuellen Zeichnung ... Wenn Sie -einfüge an der Eingabeaufforderung eingeben, fordert Sie EINFÜGE zu weiteren Eingaben in der Befehlszeile auf. Blocknamen eingeben oder [?] letzter : Geben Sie einen Namen ein, geben Sie ? oder ~ ein, oder drücken Sie die EINGABETASTE. Einfügepunkt angeben oder [Faktor/X/Y ...
|
| In das Form AutoLisp wechseln |
