Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Block

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Block (521 mal gelesen)
RoyCAD
Mitglied
Dipl-Ing Energietechnik


Sehen Sie sich das Profil von RoyCAD an!   Senden Sie eine Private Message an RoyCAD  Schreiben Sie einen Gästebucheintrag für RoyCAD

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 06. Dez. 2004 15:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 06. Dez. 2004 15:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 06. Dez. 2004 15:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

> 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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 06. Dez. 2004 16:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RoyCAD 10 Unities + Antwort hilfreich

@mapcar
Nein ! (konntest du dir ja aber auch denken  )

Warum ich es dennoch sagte liegt an dem Punkt der hier bei den
Antwortgebern oft vorkommt: Weil man es sich so angewöhnt hat..

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz