Így csináltam:
Designing an sealable AA battery box in Autodesk Fusion 360 from Gabor Penoff on Vimeo.
A modell még csak most printelődik, nem tudom mennyire jók a méretek. Ha kész, teszek ide download linket is.]]> Alfred Google Translate workflow-t, ám a Google egy ideje DDOS attacknak veszi a workflow ismétlődő lekérdezéseit és ez azt eredményezi, hogy viszonylag gyorsan kizár a szolgáltatásból egy teljes napra. Nem volt mese, más fordító megoldás után kellett nézni – így akadtam rá a dict.cc-re.
Innen már csak pár lépés volt Raphael Baron dict.cc-hez írt Python kódja, onnan meg Thomas Hirsch Alfredre szabott workflow-ja.
Thomas megoldása sajna bedrótozta a workflowba, hogy az angol->német irányban fordítson, viszont a dict.cc angolról és németről számos más nyelvre képes fordítani, így csak egy picit kellett megpiszkálni a workflowt ahhoz, hogy angol<->magyar és angol<->lengyel irányokban is fordítson:
Újabb forrás->cél nyelv hozzáadásához csak újabb script filtert kell létrehozni:
amiben csak ezeket kell cserélgetned:
A workflow-t szedheted tőlem, vagy a github forkból.]]>
TL;DR: 2010-es Excelnél újabb verzióban soha ne használd a Workbook_SheetBeforeRightClick() event handlert arra, hogy saját CommandBart hozz létre – helyette ott a Custom UI editor for Microsoft Office, amivel ugyan csak bedrótozott hierarchiát tudsz csinálni, viszont cserébe nem fagy majd random szénné alatta a host környezet.
A dolog úgy indult, hogy egy Office update után elkezdett furán viselkedni a VBA kód pár táblában. Jó szokás szerint a hibajelenségnek semmi köze nem volt a hiba okához, a Microsoftos alkalmazásnak pedig esze ágában sem volt bármiféle notificationt küldeni, hogy neki XY kóddarabbal lenne baja, sokkal inkább a számukra már sokszor bevált utat választba, nemes egyszerűséggel vagy rommá fagyasztotta a futtató környezetet, vagy a teljes Excel UI elfelejtett a végfelhasználóval kommunikálni. Mutatom:
Excel 2010+ event handler madness from Gabor Penoff on Vimeo.
A videóban jól látszik, hogy a testData tábla kiválasztása után az megnyílik, majd az Excel előbb mintha elfelejtené a screent update-elni, később viszont teljesen meggárgyul és a saját UI elemei is megszűnnek működni. Nézzük végig, mi történik belül. A 2. kattintásra a standard context menünek kellene előbújnia, azonban én ezt elkapom és a saját cuccaimat pakolom a gyári menü helyére. Mindez úgy történik, hogy aWorkbook_SheetBeforeRightClick() event handlert használom:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean) rightClickMenuShow (rightClickMenuTitle) Cancel = RightClickCancel End Sub
rightClikMenuShow() törli az előző custom menüt, majd újra létrehozza és megjeleníti:
Sub rightClickMenuShow(rightClickMenuName As String) RightClickCancel = True Call rightClickMenuDelete(rightClickMenuName) Call rightClickMenuCreate(ActiveSheet) CommandBars(rightClickMenuTitle).ShowPopup End Sub
Sub rightClickMenuDelete(rightClickMenuName As String) Dim bar As CommandBar For Each bar In CommandBars If UCase(Trim(bar.Name)) = UCase(Trim(rightClickMenuTitle)) Then bar.Delete Next bar End Sub
Sub rightClickMenuCreate(S_Caller As Worksheet) Dim rightClickMenuName As String Dim rightClickMenuIndex As Long rightClickMenuName = rightClickMenuTitle Call rightClickMenuDelete(rightClickMenuName) Application.CommandBars.Add Name:=rightClickMenuName, Position:=msoBarPopup rightClickMenuIndex = 0 rightClickMenuIndex = rightClickMenuIndex + 1 CommandBars(rightClickMenuName).Controls.Add Type:=msoControlButton, Before:=rightClickMenuIndex With CommandBars(rightClickMenuName).Controls(rightClickMenuIndex) .FaceId = 263 .Style = msoButtonIconAndCaption .Caption = "Excel's &Default Shortcut Menu" .OnAction = "ShowDefaultRightClickMenu" End With rightClickMenuIndex = rightClickMenuIndex + 1 CommandBars(rightClickMenuName).Controls.Add Type:=msoControlButton, Before:=rightClickMenuIndex With CommandBars(rightClickMenuName).Controls(rightClickMenuIndex) .Style = msoButtonCaption .Caption = "Freeze me please" .OnAction = "myTestSub" .BeginGroup = True End With End Sub
myTestSub() makrót elindító event handler mechanizmus. Miután ebben hozzá nem nyúlok a képernyő frissítését szabályozó Application.ScreenUpdating metódushoz, nézzük meg, mit csinál a myTestSub():
Sub myTestSub() Dim f As Variant f = Application.GetOpenFilename If f = False Then MsgBox "No file selected." Else Workbooks.Open Filename:=f, ReadOnly:=True End If End Sub
Workbook_SheetBeforeRightClick() event handlerben egy CommandBars(rightClickMenuTitle).ShowPopup() hívással. A helyes megoldás ilyenkor az, hogy ezt a popup generátort úgy ahogy van kidobod és létrehozol egy XML-t, ami a fenti két eljárás meghívásához legyártja majd az UI eleme(ke)t a jobb klikkre megjelenő context menüben:
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <contextMenus> <contextMenu idMso="ContextMenuCell"> <menu id="appMenu" label="engine" insertBeforeMso="Cut"> <button id="item_id1" label="(Do not) freeze me please" onAction="myTestSub"/> </menu> </contextMenu> </contextMenus> </customUI>
Sub myTestSub(control As IRibbonControl)
Ha kell, szedheted a youmagine-ről.]]>
CIB e-bank bug from Gabor Penoff on Vimeo.
Ilyenkor csak az applet reload segít, ami ezután “hálából” nem tud authentikálni a mobilToken által adott OTP kulccsal, csak majd úgy 5 perc múlva. So 2016!]]>Release 2016 february, version: 2.0.1909
Autodesk Fusion 360 bug: second canvas disappear on edit sketch command within a component from Gabor Penoff on Vimeo.
Január
Volt sok szép napkelténk:
Boldog volt minden állat:
A sok hó dacára:
megint átúszták a bátrak a Visztulát:
Meg ennek:
Aztán miután hazajöttünk, egy este felmásztam a tetőre:
Végre megerestem Krakkóban ezt a tavat:
Enni ilyet:
Fotózni ilyen kisembert:
Nézni bután ezekre:
meg csodálattal erre:
csalódni ebben:
Azért hazaérve teszteltünk ilyet:
meg pár ilyet:
Kóstoltuk a helyi söröket:
Felmentünk a lufival körülnézni:
Jöttek a nördök:
Főztünk együtt ilyet:
Néztünk suhanó hangtalan gépeket:
És nyárnyitó parádét:
Kis színes virágok nyíltak a semmiből:
a teraszon:
Végre megmásztam a Mária templomot:
és vele sok nagy vihar is:
Szép volt a málna a piacon:
ezt csinálni:
meg ezt:
és rászoktunk a rumra:
Majdnem lett még egy cicánk:
Csodálkoztunk a sosem látott alacsony Dunán:
Megint elmentünk ezt inni:
e mellé:
Szokatlanul szép volt az ősz:
Majd leesett a hó:
aztán gyors hazamentünk:
aztán vissza, az év végét ünnepelni a barátokkal:
]]>
Release 2016 januári verzió: 2.0.1,870
Autodesk Fusion 360 bug: end of sketch modification collapses component hierarchy and deselects active component from Gabor Penoff on Vimeo.
Preface Évi 300 EUR-t fizetek azért, hogy ezt a szoftvert használjam. Több tucatnyi hibajelentést küldtem a gyártónak, nem sajnáltam az időt a részletes leírásra akkor sem, ha épp felforrt az agyam, mert az alkalmazás kifagyott munka közben. Dokumentáltam mindent szépen, ahogy illik. Az elején még jött tőlük pár feedback, aztán a visszajelzések szép lassan elmaradtak, én meg egyre frusztráltabb lettem ettől, különösen azért, mert egyre inkább azt érzem, hogy fizetek azért, hogy bétatesztelhessek. A rengeteg hibája ellenére Mac OS X-en a Fusion 360 még mindig messze a legkényelmesen kezelhető CAD/CAM alkalmazás, azonban kezdem azt érezni, hogy pár komponensnél komplexebb modellek összeállításához még mindig csak idegnyugtató használatával együtt alkalmas.
Autodesk Fusion 360 bug: capture component position scatters hierarchical components from Gabor Penoff on Vimeo.
Application.Evaluate() metódusával és a rohadék a nem túl beszédes "Error 2015" vagy "Error 2029" stringeket adná vissza cserébe, akkor ne a formulákban keresd a hibát, hanem azt nézd meg, hogy a kiértékelés forrásaként használt képlet és az aktív workbook referenciastílusa megegyezik-e. Ha nem, akkor állítsd át az
Application.ReferenceStyle = (xlA1|xlR1C1)