Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
Andrej ![]() Zasloužilý člen ![]() Přihlášen: 12.čvc.2005 Lokalita: Slovensko Používám: Autodesk Map 3d 2007, VIZ 2006, Civil 3D 2008 Stav: Offline Bodů: 177 |
![]() Zasláno: 18.říj.2006 v 08:32 |
Ahojte...
Vo VBa si chcem napísať makro, kde si môžem nastavovať príkaz SHADEMODE...., čiže idem na to cez SendCommand., takto....
Dim sysVarName As String
Dim sysVarData As Variant Dim strData As String sysVarName = "SHADEMODE"
strData = 2D sysVarData = strData ThisDrawing.SetVariable sysVarName, sysVarData ...
Ale neviem prečo mi to nechce fungovať
![]() čo s tým ???
Vďaka
Andrej.
|
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21951 |
![]() |
a kde že je ten SendCommand?
přes ten by to zřejmě běželo - SHADEMODE totiž není proměnná, ale příkaz (spíš tedy _SHADEMODE), a parametr musí být "2D" (spíš tedy "_2D"), nikoliv 2D.
|
|
![]() |
|
Andrej ![]() Zasloužilý člen ![]() Přihlášen: 12.čvc.2005 Lokalita: Slovensko Používám: Autodesk Map 3d 2007, VIZ 2006, Civil 3D 2008 Stav: Offline Bodů: 177 |
![]() |
![]() ![]() Pôvodne som chcel aby to fungovalo na SendCommand. Takže by to malo na SendCommand vyzerať takto....
ThisDrawing.SendCommand "UCSICON" & vbCr & "N" & vbCr
...ale potom som to chcel spaviť na SetVariable...
..ani takto to nejede..., ak som to správne pochopil..
Dim sysVarData As Variant
Dim strData As String sysVarName = "_SHADEMODE"
strData = "_2D" sysVarData = strData ThisDrawing.SetVariable sysVarName, sysVarData |
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21951 |
![]() |
Přes SendCommand vám to pojede, přes SetVariable ne.
|
|
![]() |
|
Andrej ![]() Zasloužilý člen ![]() Přihlášen: 12.čvc.2005 Lokalita: Slovensko Používám: Autodesk Map 3d 2007, VIZ 2006, Civil 3D 2008 Stav: Offline Bodů: 177 |
![]() |
.. to bude tým, že to je príkaz ? a nieje to premenná..., aha... dobre.
Inak sa to nedá ? okrem snedcomm...
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Příbuzné CAD tipy: | ||
Tip 13736: | ![]() ![]() | Formátování úvodních nul v polích AutoCADu (a automatická aktualizace). |
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,125 sekund.