Plotstilltabelle in Zeichnung per VBA ändern (Autodesk/AutoCAD VBA)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Plotstilltabelle in Zeichnung per VBA ändern (1360 mal gelesen)

Bernhard F.
Mitglied

Senden Sie eine Private Message an Bernhard F.

Schreiben Sie einen Gästebucheintrag für Bernhard F.

Beiträge: 24
Registriert: 17.03.2008

WIN 10
BricsCAD 20
Autocad 2019

erstellt am: 11. Mai. 2009 12:27

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo zusammen,
ich möchte die Plotstilltabelle auf einen bestimmten vorgegebenen Namen Ändern (in Modell und in Layout1).
Kann mir jemand einen Tip geben?

Danke
Bernhard F.

------------------
Gruß, Bernhard F.

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

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

Senden Sie eine Private Message an Bernd P

Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3446
Registriert: 07.06.2001

erstellt am: 11. Mai. 2009 14:15

<-- editieren / zitieren -->

Unities abgeben:

Nur für Bernhard F.

Servus

bestimmten vorgegebenen Namen willst du einen Plotstil in einer Tabelle ändern oder eine ganz andere Tabelle?

Bei Tabelle bei Plotstil in einer Tabelle kann ich dir nicht helfen.

Ich holl mir _-psetupin aktuelle Seiteneinrichtungseinstellungen

Code:
(progn (command "_-PSETUPIN" "VORLAGENNAME.dwt" "*" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y"))

Und wende sie dann mit _-Plot an.

Code:
^C^C-plot;;;EINRICHTUNGSNAME;;;_y;_n

Bitte Code durcheinander (lisp script) verzeihen.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>XXXX, Layerfilter>XXXX

[Diese Nachricht wurde von Bernd P am 11. Mai. 2009 editiert.]

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

Anzeige:	Infos zum Werbeplatz >>
ISYBAU Translator 2026 CAD APP für Kostenlose Werkzeuge / Add-Ons, Infrastruktur, Datenaustausch Das Original auf CADSOMA! Der ISYBAU Translator für Autodesk® Civil 3D® 2026 ist eine unverzichtbare Erweiterung für jeden, der Kanaldaten im ISYBAU (-XML) Format exportieren oder importieren muss. Es besteht ein direkter Zugriff auf die Autodesk® Civil 3D® eigenen Daten.

Bernhard F.
Mitglied

Beiträge: 24
Registriert: 17.03.2008

WIN 10
BricsCAD 20
Autocad 2019

erstellt am: 11. Mai. 2009 14:31

<-- editieren / zitieren -->

Unities abgeben:

Danke für die Hilfe.
Ich habe selber die Lösung gefunden.

Dim styleSheetName As String
Dim Style_orig As String

Style_orig = "TEST.ctb"

Dim i%
With ThisDrawing.Layouts
For i = 0 To .Count - 1
ThisDrawing.Layouts(i).StyleSheet = Style_orig
Next
End With

------------------
Gruß, Bernhard F.

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

ISYBAU Translator 2026 CAD APP für Kostenlose Werkzeuge / Add-Ons, Infrastruktur, Datenaustausch