| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Turbocad |
Autor
|
Thema: Frage zu TURBOCA Script-Funktion (1239 mal gelesen)
|
AMathieu Mitglied
Beiträge: 3 Registriert: 04.01.2012
|
erstellt am: 04. Jan. 2012 11:38 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin neu im Forum und habe schon gleich eine Frage ;-) Ich arbeite hin und wieder mit ACAD LT 2006. Dort gibt es die Funktion Script, der man eine ASCII_Datei mit dem Inhalt Z.B.: spline 10,10 10,20 12,24 übergeben kann. Im Prinzip nur ein Befehl mit einer Kette von Parametern, die abgearbeitet werden. Gibt es sowas auch in einer Turbocad-Version.
------------------ Mit freundlichem Gruß Achim M. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
devo Mitglied Holzverarbeiter
Beiträge: 366 Registriert: 11.02.2010 dell Latitude E6410 i5, 4 GB Ram, Win 7 TC V6-V10,V16 US; V6,11,12,17-20 D
|
erstellt am: 04. Jan. 2012 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
Hallo Achim, prinzipiell schon, allerdings funktioniert das nur über eine programmierschnittstelle. Ab v11 ist ein Makrorecorder an bord. Hier ein Beispiel mit festverdrahteten punktkoordinaten - genauso ist ein Abspielen einer Datei - am besten .csv möglich. Anwendung: Makrorecorder starten und das beigefügte Skript einfügen und ausführen. Script: Dim TCDraw Dim TCGraphic Dim TCVerts
Set TCDraw = TCApp.Drawings.Add("") Set TCGraphic = TCDraw.Graphics.AddCurveBezier(10,10, 0) Set TCVerts = TCGraphic.Vertices TCVerts.Add 10,20, 0, True '(x, y, z, pendown) TCVerts.Add 12,24,0, True TCVerts.Add -5,12,0, True TCVerts.Add 10,10 ,0, True TCGraphic.Draw Set TCGraphic = Nothing Set TCDraw = Nothing Set TCVerts = Nothing gruss mike
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AMathieu Mitglied
Beiträge: 3 Registriert: 04.01.2012
|
erstellt am: 04. Jan. 2012 14:56 <-- editieren / zitieren --> Unities abgeben:
|
PSblnkd Mitglied Dipl.-Ing.
Beiträge: 156 Registriert: 13.03.2009
|
erstellt am: 05. Jan. 2012 08:11 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
@devo Den Makrorecorder gab es schon in viel früheren TC-Versionen, wenigstens ab V8. @AMathieu Deine ACAD-Funktion zum Einlesen von Skript-Dateien könnte man auch für TC programmieren, ohne dazu den Makrorecorder in Anspruch nehmen zu müssen. Dort sind leider keine Eingaben über Dialog-Felder o.ä. möglich. Als Einstiegs-IDE ist EXCEL-VBA zu empfehlen. Eine eigene IDE bringt TC leider seit der 11er Version nicht mehr mit. Ein Tutorial (in deutsch) für die TC-Programmierung ist hier erhältlich http://www.ps-blnkd.de/SDK_Inh.pdf -> Anfrage per eMail www.ps-blnkd.de (Impressum). Grüsse aus Berlin PSblnkd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AMathieu Mitglied
Beiträge: 3 Registriert: 04.01.2012
|
erstellt am: 05. Jan. 2012 10:08 <-- editieren / zitieren --> Unities abgeben:
|
devo Mitglied Holzverarbeiter
Beiträge: 366 Registriert: 11.02.2010 dell Latitude E6410 i5, 4 GB Ram, Win 7 TC V6-V10,V16 US; V6,11,12,17-20 D
|
erstellt am: 05. Jan. 2012 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
Hallo PSblnkd, das kann schon sein, aber solange es vba gab hat sich dafür kein Mensch interessiert. hallo achim, das script von gestern war fehlerhaft, mit jedem aufruf wurde eine neue Zeichnung erstellt. hier die korrektur: Dim TCApp Dim TCDraw Dim TCGraphic Dim TCVerts Set TCApp = GetObject("", "TurboCAD.Application") Set TCDraw = TCApp.ActiveDrawing Set TCGraphic = TCDraw.Graphics.AddCurveBezier(10,10, 0) Set TCVerts = TCGraphic.Vertices TCVerts.Add 40,40, 0, True '(x, y, z, pendown) TCVerts.Add 32,24,0, True TCVerts.Add -5,12,0, True TCVerts.Add 15,-5 ,0, True TCVerts.Add 8,4 ,0, True TCVerts.Add -4,10 ,0, True TCVerts.Add 0,10 ,0, True TCVerts.Add 10,10 ,0, True TCGraphic.Draw Set TCGraphic = Nothing Set TCDraw = Nothing Set TCVerts = Nothing Set TCApp = Nothing und für splines: Dim TCApp Dim TCDraw Dim TCGraphic Dim TCVerts Set TCApp = GetObject("", "TurboCAD.Application") Set TCDraw = TCApp.ActiveDrawing Set TCGraphic = TCDraw.Graphics.AddCurveSpline(10,10, 0) Set TCVerts = TCGraphic.Vertices TCVerts.Add 40,40, 0 TCVerts.Add 32,24,0 TCVerts.Add -5,12,0 TCVerts.Add 15,-5 ,0 TCVerts.Add 8,4 ,0 TCVerts.Add -4,10 ,0 TCVerts.Add 0,10 ,0 TCVerts.Add 10,10 ,0 TCGraphic.Draw Set TCGraphic = Nothing Set TCDraw = Nothing Set TCVerts = Nothing gruss mike
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
devo Mitglied Holzverarbeiter
Beiträge: 366 Registriert: 11.02.2010 dell Latitude E6410 i5, 4 GB Ram, Win 7 TC V6-V10,V16 US; V6,11,12,17-20 D
|
erstellt am: 05. Jan. 2012 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
|
devo Mitglied Holzverarbeiter
Beiträge: 366 Registriert: 11.02.2010 dell Latitude E6410 i5, 4 GB Ram, Win 7 TC V6-V10,V16 US; V6,11,12,17-20 D
|
erstellt am: 05. Jan. 2012 13:44 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
|
PSblnkd Mitglied Dipl.-Ing.
Beiträge: 156 Registriert: 13.03.2009
|
erstellt am: 06. Jan. 2012 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
Zitat: Original erstellt von devo: [B]Hallo PSblnkd, das kann schon sein, aber solange es vba gab hat sich dafür kein Mensch interessiert.
Das kann ich so nicht bestätigen. Auch heute noch benutze ich manchmal den Makrorecorder, um mir bestimmte CAD-Funktionen "übersetzen" zu lassen, die sich ansonsten nur sehr schwer intuitiv anhand des TC-Objektmodels und der daraus abgeleiteten SDK-Funktionen generieren lassen. Grüsse aus Berlin PSblnkd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
devo Mitglied Holzverarbeiter
Beiträge: 366 Registriert: 11.02.2010 dell Latitude E6410 i5, 4 GB Ram, Win 7 TC V6-V10,V16 US; V6,11,12,17-20 D
|
erstellt am: 07. Jan. 2012 12:58 <-- editieren / zitieren --> Unities abgeben: Nur für AMathieu
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|