| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Block (523 mal gelesen)
|
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram
|
erstellt am: 06. Dez. 2004 15:20 <-- editieren / zitieren --> Unities abgeben:
Hallo Wie soll ich den command definieren das er mir aus den folgenden Linien ein Block macht Da ich ein Anfänger bin kann es sein das, die Frage total blöd ist. (command "linie" unlin1 untling1 "") (command "linie" unlin2 untling2 "") (command "linie" uulin2 uuling1 "") (command "linie" uulin1 uuling2 "") (command "bogen" ldo5l "e" untrech3 "r" 49.0) (command "bogen" uulinbogen2 "e" uulinbogen1 "r" 54.4) (command "_block" bname "test" (list unlin1 untling1 unlin2 untling2 uulin2 uuling1 uulin1 uuling2............) "") - ????? so funktioniert nicht!!! Gruß RoyCAD
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 06. Dez. 2004 15:25 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
Also wenn es darum geht Blockdefinitionen(BLOCK) zu erstellen würde ich über ENTMAKE gehen - nicht über Command ! [dafür mußt du dir natürlich erstmal Zeit nehmen und dich einlesen -Forum&ACADhilfe..] suche mal im Forum nach BLOCKDEFFORLOAD von H.Brischke - so kommst du (was BLOCK angeht am schnellsten dahinter.. [Diese Nachricht wurde von cadffm am 06. Dez. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 06. Dez. 2004 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
ist zwar schrott, aber probiers mal so ähnlich (setq AW(ssadd)) (command "linie" unlin1 untling1 "") (ssadd (entlast) AW) (command "linie" unlin2 untling2 "") (ssadd (entlast) AW) (command "linie" uulin2 uuling1 "") (ssadd (entlast) AW) (command "linie" uulin1 uuling2 "") (ssadd (entlast) AW) (command "bogen" ldo5l "e" untrech3 "r" 49.0) (ssadd (entlast) AW) (command "bogen" uulinbogen2 "e" uulinbogen1 "r" 54.4) (ssadd (entlast) AW) (command "_-block" "test" '(0 0 0) AW "") (command "_-insert "test" '(0 0 0) 1 1 1 0) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 06. Dez. 2004 15:28 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
Hallo RoyCad, so geht das nicht, das hast du aber sicher schon selbst gemerkt. Du musst dir die Elementnamen der Linien merken, oder gleich einem Auswahlsatz hinzufügen. (setq aws (ssadd)) (command "_.LINE" ...) (setq aws (ssadd (entlast)aws)) (command "_.LINE" ...) (setq aws (ssadd (entlast)aws)) ... (command _.-block" "NAME" (getpoint "\nBASISPUNKT") aws "") Ungetestet, könnte also sein, dass hier und da etwas klemmt. Prinzip sollte aber klar sein. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! Autodesk User Group Central Europe AutoLISP-Programmierung für AutoCAD AUGCE Manager Deutschland Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 06. Dez. 2004 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
> Du musst dir die Elementnamen der Linien merken, oder gleich einem > Auswahlsatz hinzufügen. Das macht Thomas/CADmium auch. > (setq aws (ssadd)) > (command "_.LINE" ...) > (setq aws (ssadd (entlast)aws)) Die letzte Zeile ist Unfug. (ssadd ...) ist neben (set), (setq) und (defun) eine der vier destruktiven Funktionen im Grundwortschatz von AutoLisp, das (setq) ist also völlig überflüssig. Im Prinzip war der Ansatz von CADmium schon ok - bis auf die mangelnde Internationalisierung. @cadffm > zu erstellen würde ich über ENTMAKE gehen - nicht über Command Gibt es dafür einen stichhaltigen Grund? Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 06. Dez. 2004 16:53 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
|