nanoCAD 20 — objekty a funkce ve VBScript skriptech

1 · Jak spustit skript

Skript je obyčejný textový soubor .vbs. V nanoCADu ho spustíš příkazem VBS (pro JavaScript příkazem JS) a vybereš soubor. Skript se provádí shora dolů — žádnou vstupní funkci nepotřebuje.

Uvnitř takto spuštěného skriptu už máš k dispozici aktivní výkres přes globální objekt ThisDrawing. Od něj se dostaneš ke všemu ostatnímu.

Dim ms
Set ms = ThisDrawing.ModelSpace        ' přístup k modelovému prostoru

ms.AddCircle "0,0,0", 10               ' nanoCAD bere souřadnici i jako řetězec
ThisDrawing.Utility.Prompt "Hotovo." & vbCr

Skript může nanoCAD ovládat i zvenčí (samostatný .vbs, z Excelu apod.) — pak si aplikaci vytvoříš přes ProgID nanoCAD.Application a místo ThisDrawing použiješ ActiveDocument:

Dim app, doc
Set app = CreateObject("nanoCAD.Application")
app.Visible = True
Set doc = app.ActiveDocument            ' odpovídá "ThisDrawing" uvnitř skriptu
doc.ModelSpace.AddCircle "0,0,0", 25

2 · Objektový model (přehled hierarchie)

Objekty tvoří strom. Kolekce (Documents, Layers, Blocks, SelectionSets…) procházíš přes For Each nebo Item(i) a Count.

Application
 └─ Documents
     └─ Document  (= ThisDrawing / ActiveDocument)
         ├─ ModelSpace   → entity (Line, Circle, Arc, Text, …)
         ├─ PaperSpace   → entity v rozvržení
         ├─ Blocks       → definice bloků
         ├─ Layers       → vrstvy
         ├─ Linetypes / TextStyles / DimStyles / Layouts / Views
         ├─ SelectionSets → výběrové množiny
         └─ Utility      → vstup uživatele + převody

3 · Application

Kořen celé aplikace. Uvnitř skriptu k němu vede ThisDrawing.Application. Metody přiblížení (Zoom*) sídlí právě zde.

4 · Document / ThisDrawing

Reprezentuje jeden výkres (databázi DWG). Nejdůležitější objekt při práci.

5 · Utility — vstup uživatele a převody

Přes ThisDrawing.Utility vypisuješ na příkazový řádek a ptáš se uživatele. Funkce Get… čekají na vstup a vrátí hodnotu.

6 · Kreslení entit — metody Add…

Metody Add… volej na ModelSpace, PaperSpace nebo na Block. Každá vytvoří entitu a vrátí ji, takže si ji můžeš rovnou přiřadit a dál upravovat.

7 · Společné vlastnosti a metody entit

Tohle má (téměř) každá nakreslená entita bez ohledu na typ.

Vlastnosti

Metody

8 · Přehled entit a jejich vlastností

9 · Vrstvy

ThisDrawing.Layers je kolekce; Add vrátí (nebo najde) vrstvu daného jména.

10 · Bloky a atributy

Definici bloku vytvoříš přes Blocks.Add(počátek, jméno), naplníš ji stejnými Add… metodami jako model, a pak ji vložíš přes AddInsertBlock.

Dim blk, ref
Set blk = ThisDrawing.Blocks.Add("0,0,0", "ZNACKA")
blk.AddCircle "0,0,0", 3                    ' obsah bloku
blk.AddLine "-4,0,0", "4,0,0"

Set ref = ThisDrawing.ModelSpace.AddInsertBlock("50,50,0", "ZNACKA", 1, 1, 1, 0)
ref.Rotation = 4 * Atn(1) / 2               ' otočit vloženou značku o 90°

U reference bloku s atributy získáš atributy přes ref.GetAttributes() (pole objektů AttributeReference s vlastnostmi TagString a TextString).

11 · Výběrové množiny (SelectionSet)

Pro hromadné operace se hodí SelectionSet s DXF filtrem — vybere jen entity odpovídající zadaným kritériím. Filtr jsou dvě pole: typy (celočíselné DXF kódy) a hodnoty.

Dim ss, ft(1), fd(1)
On Error Resume Next
    ThisDrawing.SelectionSets.Item("VYBER").Delete   ' když už existuje
On Error GoTo 0
Set ss = ThisDrawing.SelectionSets.Add("VYBER")

ft(0) = 0 : fd(0) = "CIRCLE"        ' DXF 0  = typ entity
ft(1) = 8 : fd(1) = "OTVORY"        ' DXF 8  = vrstva
ss.Select 5, , , ft, fd             ' 5 = acSelectionSetAll (celý výkres)

ThisDrawing.Utility.Prompt "Vybrano: " & ss.Count & vbCr

12 · Systémové proměnné a příkazy

Cokoli, co v nanoCADu ovládá systémová proměnná, nastavíš z VBS. A když pro něco není přímá metoda, pošli rovnou příkaz na příkazový řádek.

Dim old
old = ThisDrawing.GetVariable("OSMODE")    ' ulož stav uchopení
ThisDrawing.SetVariable "OSMODE", 0         ' dočasně vypni
' ... kreslení bez uchopení ...
ThisDrawing.SetVariable "OSMODE", old       ' obnov

' Mezery a "entery" se posílají jako text; vbCr = stisk Enter
ThisDrawing.SendCommand "_CIRCLE" & vbCr & "0,0" & vbCr & "5" & vbCr

Užitečné proměnné: CLAYER (aktuální vrstva), CECOLOR (barva), CELTYPE (typ čáry), OSMODE (uchopení), LUNITS/AUNITS (jednotky), TEXTSIZE, DIMSCALE, CMDECHO, FILEDIA.

13 · Souřadnice, úhly a barvy

Souřadnice

Bod je pole tří double. Ve VBScriptu ho vytvoříš přes Dim p(2) (indexy 0,1,2). nanoCAD navíc přijímá i pohodlný řetězec ve tvaru "x,y,z".

Dim p(2)
p(0) = 10 : p(1) = 20 : p(2) = 0
ThisDrawing.ModelSpace.AddCircle p, 5        ' pole 3× double

ThisDrawing.ModelSpace.AddCircle "10,20,0", 5 ' řetězec (nanoCAD)

Úhly

API pracuje výhradně v radiánech (ne ve stupních). VBScript nemá konstantu Pi — spočítáš ji jako 4 * Atn(1).

Function Rad(deg)                 ' stupně → radiány
    Rad = deg * (4 * Atn(1)) / 180
End Function

ThisDrawing.ModelSpace.AddArc "0,0,0", 25, Rad(0), Rad(90)

Barvy

Nejjednodušší je barevný index ACI (Color): 1 červená, 2 žlutá, 3 zelená, 4 azurová, 5 modrá, 6 fialová, 7 bílá/černá; 0 = ByBlock, 256 = ByLayer. Pro plnou barvu slouží TrueColor.

14 · Konstanty a číselné kódy

15 · VBScript — jazykový základ (v kontextu CAD)

Vestavěné funkce se hodí i tady: matematické Abs, Int, Fix, Sqr, Sin, Cos, Tan, Atn; textové Len, Mid, Left, Right, InStr, Replace, Split, UCase; převody CStr, CDbl, CInt, Round; dialogy MsgBox, InputBox. Konstanty vbCr, vbCrLf, vbTab pro formátování výpisů.

16 · Příklady

Základ — kružnice a úsečka

Dim ms, c(2), p(2), q(2)
Set ms = ThisDrawing.ModelSpace

c(0) = 50 : c(1) = 30 : c(2) = 0
ms.AddCircle c, 10             ' kruh, poloměr 10

p(0) = 0   : p(1) = 0 : p(2) = 0
q(0) = 100 : q(1) = 0 : q(2) = 0
ms.AddLine p, q               ' úsečka 0,0 → 100,0

Průchod modelem a spočítání kružnic

Dim ent, n
n = 0
For Each ent In ThisDrawing.ModelSpace
    If InStr(ent.ObjectName, "Circle") > 0 Then n = n + 1
Next
ThisDrawing.Utility.Prompt "Kruhu: " & n & vbCr

Vstup od uživatele — kruh na vybraném bodě

Dim ut, p
Set ut = ThisDrawing.Utility
p = ut.GetPoint(, "Zadej stred kruhu: ")   ' vrátí pole 3× double
ThisDrawing.ModelSpace.AddCircle p, 5

Nová vrstva a přiřazení barvy

Dim lay
Set lay = ThisDrawing.Layers.Add("KOTY")
lay.Color = 1                     ' 1 = červená (ACI)
ThisDrawing.ActiveLayer = lay     ' nové objekty půjdou sem

Polární bod

Dim ut, base(2), p2
Set ut = ThisDrawing.Utility
base(0) = 0 : base(1) = 0 : base(2) = 0
p2 = ut.PolarPoint(base, 4 * Atn(1) / 4, 100)  ' 45°, vzdálenost 100
ThisDrawing.ModelSpace.AddLine base, p2

17 · Úskalí a tipy

• Úhly v radiánech. Nejčastější chyba: AddArc/Rotate berou radiány, ne stupně.
• Objekty přes Set. Přiřazení objektu bez Set skončí chybou; naopak čísla se Setem nepiš.
• Souřadnice = pole 3× double (nebo řetězec "x,y,z"). Pozor na 2D vs 3D metody.
• Žádné pojmenované konstanty. Ve VBS piš číselné hodnoty (viz sekce 14).
• Diakritika. Řetězce vypisované na příkazový řádek (Prompt) drž bez háčků/čárek nebo ulož soubor v odpovídajícím kódování — jinak hrozí „rozsypaný čaj". V komentářích diakritika nevadí.
• Po změně geometrie se obraz obvykle překreslí sám; když ne, pomůže REGEN nebo ThisDrawing.Regen 1.
• Dostupnost prvků se liší podle verze/edice — 3D tělesa, tabulky a některé kóty nemusí být všude.
• Autoritativní zdroj je API dokumentace v nanoCAD Developers' Club; tato příručka je praktický přehled kompatibilního ActiveX modelu.