{
  "macros": [
    {
      "id": "1789941358258450-0",
      "name": "dene",
      "description": "Catiaya Bağlan Scripti",
      "path": "D:\\Masaustu-2025\\dene.catscript",
      "func": "CATMain",
      "passApp": false
    },
    {
      "id": "1790147725639535-0",
      "name": "Düzlem",
      "description": "Catiadaki Plane Düzlemi",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Plane",
      "emoji": "💠",
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg"
      ],
      "paletteSelectionTypes": [
        "planarface"
      ]
    },
    {
      "id": "1790148019228965-1",
      "name": "Sikeç",
      "description": "Catiadaki Sketch",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Sketch",
      "emoji": "✍️",
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg",
        "cathybridpartworkbench"
      ],
      "paletteSelectionTypes": [
        "face",
        "planarface"
      ]
    },
    {
      "id": "1790020854537390-1",
      "name": "Join / Birleştir",
      "description": "Catiadaki Join Komutu",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Join",
      "emoji": "🔗",
      "inPalette": true,
      "paletteWorkbenches": [
        "catshapedesignworkbench",
        "cathybridpartworkbench",
        "prtcfg"
      ]
    },
    {
      "id": "1790148176996840-2",
      "name": "3d Sınırlar",
      "description": "Catianın Project 3D Silhouette Edges Komutu",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Project 3D Silhouette Edges",
      "emoji": "➰",
      "inPalette": true,
      "paletteWorkbenches": [
        "cs0wks"
      ]
    },
    {
      "id": "1790020312733093-0",
      "name": "Fill / Doldur",
      "description": "GSD deki Fill Komutu",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Fill",
      "emoji": "🧺",
      "inPalette": true,
      "paletteWorkbenches": [
        "cathybridpartworkbench",
        "catshapedesignworkbench",
        "prtcfg"
      ]
    },
    {
      "id": "1790237788409579-0",
      "name": "Katı Yüzey Sil",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Remove Face",
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg"
      ],
      "paletteSelectionTypes": [
        "face"
      ]
    },
    {
      "id": "1790053075539437-0",
      "name": "Programı Simule Et",
      "description": "Catiadaki Replay Tool Path",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Replay Tool Path",
      "emoji": "▶",
      "inPalette": true,
      "paletteWorkbenches": [
        "m3xprogramworkbench"
      ]
    },
    {
      "id": "1789955088805241-0",
      "name": "Aktif Klasör Aç",
      "description": "Aktif DÖkümanın Klasörünü Açar",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "code": "Function CATMain()\n Dim fikopost\r\n Set fikopost =       CreateObject(\"FikoYT.FikoPostV4\")\r\n fikopost.AktifKlasorAc CATIA\nEnd Function\n",
      "language": 0,
      "emoji": "📂",
      "inPalette": true
    },
    {
      "id": "1790101687845038-0",
      "name": "Seçimli Test",
      "description": "Seçimli Filitre Test",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "code": "Function CATMain()\n    Dim oSel As Selection\n    Set oSel = CATIA.ActiveDocument.Selection\n\n    ' Ekranda seçili bir şey var mı kontrolü\n    If oSel.Count > 0 Then\n        Dim secilenNesne As AnyObject\n        ' Item2(1) seçilen ilk nesneyi, .Value ise onun altındaki asıl geometriyi verir\n        Set secilenNesne = oSel.Item2(1).Value\n        \n        ' Nesnenin tipini alıyoruz\n        Dim nesneTipi As String\n        nesneTipi = TypeName(secilenNesne)\n        \n        MsgBox \"Seçili nesnenin tipi: \" & nesneTipi\n    Else\n        MsgBox \"Şu anda hiçbir nesne seçili değil!\"\n    End If\nEnd Function\n",
      "language": 0,
      "inPalette": true
    },
    {
      "id": "1790086467113674-0",
      "name": "Eksen",
      "description": "Catia Axis System Komutu",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Axis System",
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg",
        "catshapedesignworkbench"
      ]
    },
    {
      "id": "1790041403926066-2",
      "name": "FikoYT Vukuatı İntizam",
      "description": "Eski Merkez",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "code": "Function CATMain()\nDim fikopost\r\nSet fikopost = CreateObject(\"FikoYT.IFikoScript\")\r\nfikopost.Calistir CATIA\nEnd Function\n",
      "language": 0,
      "emoji": "🛠️",
      "inPalette": true
    },
    {
      "id": "1789967375993837-0",
      "name": "Parttan Processe",
      "description": "PartDosyalarını Son Eksene Göre Hazır Programlarla Aynı Klasörüne Oluşturur",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "code": "Function CATMain()\nDim fikopost\r\nSet fikopost = CreateObject(\"FikoYT.FikoPost2023\")\r\nfikopost.ProcessOlustur CATIA\nEnd Function\n",
      "language": 0,
      "emoji": "📝",
      "inPalette": true,
      "paletteDocKinds": [
        "catpart"
      ]
    },
    {
      "id": "1790158276688836-1",
      "name": "Kütük",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Creates Rough Stock",
      "emoji": "📦",
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg",
        "catshapedesignworkbench",
        "cathybridpartworkbench"
      ]
    },
    {
      "id": "1790368604621720-0",
      "name": "Eksen Çevir",
      "description": "Ekseni Xte Takla Attırır",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "code": "Sub CATMain()\r\n\r\n    Dim doc\r\n    Dim part\r\n    Dim sel\r\n    Dim status\r\n    Dim sourceAxis\r\n\r\n    Set doc = CATIA.ActiveDocument\r\n    Set part = doc.Part\r\n    Set sel = doc.Selection\r\n\r\n    sel.Clear\r\n\r\n    status = sel.SelectElement2( _\r\n        Array(\"AxisSystem\"), _\r\n        \"Axis System seçin\", _\r\n        False)\r\n\r\n    If status <> \"Normal\" Then\r\n        MsgBox \"Seçim yapılmadı.\"\r\n        Exit Sub\r\n    End If\r\n\r\n    Set sourceAxis = sel.Item2(1).Value\r\n\r\n    Dim origin(2)\r\n    Dim xAxis(2)\r\n    Dim yAxis(2)\r\n    Dim zAxis(2)\r\n\r\n    sourceAxis.GetOrigin origin\r\n    sourceAxis.GetXAxis xAxis\r\n    sourceAxis.GetYAxis yAxis\r\n    sourceAxis.GetZAxis zAxis\r\n\r\n    ' Y ekseni etrafında 180 derece\r\n    xAxis(0) = -xAxis(0)\r\n    xAxis(1) = -xAxis(1)\r\n    xAxis(2) = -xAxis(2)\r\n\r\n    zAxis(0) = -zAxis(0)\r\n    zAxis(1) = -zAxis(1)\r\n    zAxis(2) = -zAxis(2)\r\n\r\n    Dim axisSystems\r\n    Dim newAxis\r\n\r\n    Set axisSystems = part.AxisSystems\r\n    Set newAxis = axisSystems.Add()\r\n\r\n    newAxis.OriginType = catAxisSystemOriginByCoordinates\r\n    newAxis.PutOrigin origin\r\n\r\n    newAxis.XAxisType = catAxisSystemAxisByCoordinates\r\n    newAxis.PutXAxis xAxis\r\n\r\n    newAxis.YAxisType = catAxisSystemAxisByCoordinates\r\n    newAxis.PutYAxis yAxis\r\n\r\n    newAxis.ZAxisType = catAxisSystemAxisByCoordinates\r\n    newAxis.PutZAxis zAxis\r\n\r\n    newAxis.Name = sourceAxis.Name & \"_Y180\"\r\n\r\n    part.Update\r\n\r\nEnd Sub",
      "language": 0,
      "inPalette": true,
      "paletteWorkbenches": [
        "prtcfg",
        "cathybridpartworkbench",
        "catshapedesignworkbench"
      ]
    },
    {
      "id": "1790053545051716-1",
      "name": "Kaydet",
      "description": "Dökümanı Kaydet",
      "path": "",
      "func": "CATMain",
      "passApp": false,
      "command": "Save",
      "emoji": "💾",
      "inPalette": true
    }
  ]
}