Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Script zur skalieren der Blöckelemente

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:  Script zur skalieren der Blöckelemente (978 mal gelesen)
romi_cad
Mitglied
multitasking mit diplom


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

Beiträge: 460
Registriert: 22.01.2004

AutoCAD Architekture 2015 SP2

erstellt am: 23. Okt. 2017 15:43    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


skalierenbedit.txt

 
Hallo.

ich muss bei einer großen Anzahl vorhandenen Blöcke Einheiten von Millimeter auf Meter umstellen. Da die Blöcke in Millimeter gezeichnet sind, muss ich sie skalieren. Für Befehlsfolge habe ich eine Scriptdatei  erstellt, die auch funktioniert, bis auf Angabe Basispunkt und Scalefaktor.

ist es möglich, dies im Script anzugeben, da immer konstant?

Folgende Befehle sollen ausgeführt werden:
Befehl: _scale

Objekte wählen: alle


Basispunkt angeben: 0,0

Skalierfaktor angeben oder [Kopie/Bezug] 0.001

Befehl: '_zoom
Fensterecke angeben, Skalierfaktor eingeben (nX oder nXP) oder
[Alles/Mitte/Dynamisch/Grenzen/Vorher/FAktor/FEnster/Objekt] <Echtzeit>: _e Regeneriert Modell.

------------------

[Diese Nachricht wurde von romi_cad am 23. Okt. 2017 editiert.]

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



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

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 23. Okt. 2017 15:46    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 romi_cad 10 Unities + Antwort hilfreich

Servus,

_scale
alle 

0, 0 LEERZEICHEN!?

0.001


Mit diesem LSP öffnet er den markierten Block, skaliert die Objekte und schließt ihn wieder.

Code:
(defun c:TEMP (/)  (command "_-bedit") (command "_scale" "_all" "" "0,0" "0.001" "") (command "_bclose" "_save"))


------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 23. Okt. 2017 editiert.]

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


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

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 23. Okt. 2017 15:50    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 romi_cad 10 Unities + Antwort hilfreich

Hy

was funktioniert da nicht , die Befehle an sich sind ja richtig.

Basis 0,0 nun wenn dein Block nicht auf 0,0 sitzt dann wird die Entfernung dazu Mitskaliert.

Bei 0,0 ist ne Leerstelle dazwischen ? oder sehe ich das falsch


mfg cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

[Diese Nachricht wurde von cadwomen am 23. Okt. 2017 editiert.]

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

romi_cad
Mitglied
multitasking mit diplom


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

Beiträge: 460
Registriert: 22.01.2004

AutoCAD Architekture 2015 SP2

erstellt am: 23. Okt. 2017 15:57    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

Danke.

Egal wie ich Koordinaten angebe, (0, 0 mit Leerzeichen dazwischen) es wird ungültiger Punkt gemeldet.

Block sitzt auf 0,0,0
Lisp probeiere ich noch aus.

------------------

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



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

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 23. Okt. 2017 16:23    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 romi_cad 10 Unities + Antwort hilfreich

Servus, führe dein script aus und kopiere den Inhalt der Befehlszeile inkl. Fehlermeldung ins Forum... 0, 0 mit Leerzeichen ist falsch wo der Block sitzt ist egal.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 23. Okt. 2017 editiert.]

[Diese Nachricht wurde von Bernd P am 23. Okt. 2017 editiert.]

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

romi_cad
Mitglied
multitasking mit diplom


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

Beiträge: 460
Registriert: 22.01.2004

AutoCAD Architekture 2015 SP2

erstellt am: 24. Okt. 2017 07:44    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

Befehl: _SCRIPT
Scriptdateinamen eingeben <Z:\AutoCAD\Projekte\RC\Arbeitsdateien\Module\ISO Module.scr>: "C:\Users\rc\AppData\Roaming\TeamViewer\Desktop\skalieren bedit.scr"

Befehl: _scale

Objekte wählen: alle 57 gefunden
44 befanden sich nicht im aktuellen Bereich.

Objekte wählen:
Basispunkt angeben:

Ungültiger Punkt.

------------------

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



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

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 24. Okt. 2017 07:54    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 romi_cad 10 Unities + Antwort hilfreich

Servus, hast du schon das Leerzeichen aus deinem Script entfernt und verwende entweder Leerzeichen oder Zeilenumbruch als Enter.

Code:
_scale
alle  Leerzeichen hinter alle weg

0, 0 nur 0,0

0.001


------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

romi_cad
Mitglied
multitasking mit diplom


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

Beiträge: 460
Registriert: 22.01.2004

AutoCAD Architekture 2015 SP2

erstellt am: 24. Okt. 2017 08: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

jetzt funktioniert es. Danke.
Lag an Leerzeichen.

------------------

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