Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  3D Block einfügen und skalieren

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:  3D Block einfügen und skalieren (1008 mal gelesen)
rasat
Mitglied


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

Beiträge: 2
Registriert: 14.04.2014

AutoCad Lisp

erstellt am: 14. Apr. 2014 21:11    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

Gibt es die Möglichkeit ein 3D Block mit Lisp ein eine Zeichnung einzufügen und in alle Achsen unterschiedlich zu skalieren.
Welchen Befehl mit welchen Parametern ist zu verwenden? " Insert" skaliert nach meinen Erfahrungen nur in der x und y Achse.

------------------
Sat

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10

erstellt am: 14. Apr. 2014 21:26    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 rasat 10 Unities + Antwort hilfreich

Erzeuge einen Block z.B. aus einem Würfel Kantenlänge 1 und nenne ihn "box".
Dann sollte das hier funktionieren:
a) als einfachen Command Aufruf

Code:
(command "_insert" "box" "_x" 1 "_y" 2 "_z" 3 '(5.0 6.0 7.0) 0)

b) Echtes Lisp sähe dann so aus

Code:
(entmake
  (list (cons 0 "INSERT")(cons 2 "box")
        (cons 67 0) (cons 410 (getvar "ctab")) (cons 8 (getvar "clayer"))
        (cons 10 (list 5.0 6.0 7.0))
        (cons 41 1.1)(cons 42 2.2)(cons 43 3.3)
        (cons 50 45.0)
  )
)

v) In Visual Lisp kann man auch vla-InsertBlock verwenden
die Setq sollen die einzelnen Schritte leichter erkennbar machen, die Funktionen können natürlich ohne Variablenzuweisung direkt eingesetzt werden.

Code:
(setq acad (vlax-get-acad-object)) ;Get AutoCAD application object
(setq doc (vla-get-ActiveDocument acad)) ;Get the current document object
(setq ms (vla-get-ModelSpace doc)) ;Get the document's Model Space object
(setq pt (vlax-make-safearray vlax-vbDouble '(0 . 2))) ;Create a 3 element array to hold the insertion point
(setq pt (vlax-safearray-fill pt '(3.0 4.0 5.0))) ;Fill the array with the insertion point XYZ
(setq blk (vla-InsertBlock ms pt "box" 1.1 2.2 3.3 33.0)) ;Create a block reference

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 14. Apr. 2014 editiert.]

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

rasat
Mitglied


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

Beiträge: 2
Registriert: 14.04.2014

AutoCad Lisp

erstellt am: 14. Apr. 2014 22:01    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

Habe den ersten Vorschlag getestet und er funktioniert.
Danke für die schnelle Lösung.

------------------
Sat

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10

erstellt am: 15. Apr. 2014 00:18    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 rasat 10 Unities + Antwort hilfreich

Es funktionieren selbstverständlich alle 3 Lösungsvorschläge. 

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

System: F1
und Google

erstellt am: 15. Apr. 2014 06:38    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 rasat 10 Unities + Antwort hilfreich

Und Lösung 1 zeigt zudem das es nix mit Lisp zutun haben muß, der Einfügen-Befehl bringt das alles mit was man braucht.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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