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 StringDim sysVarData As VariantDim strData As String
 
sysVarName = "SHADEMODE"strData = 2DsysVarData = strDataThisDrawing.SetVariable sysVarName, sysVarData
...
 
Ale neviem prečo mi to nechce fungovať  Proste neviem poslať ten 2D string...
čo s tým ???
 
Vďaka
 
Andrej.

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.

 ... ups... trochu som to doplietol...
 
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 VariantDim strData As String
sysVarName = "_SHADEMODE"strData = "_2D"sysVarData = strDataThisDrawing.SetVariable sysVarName, sysVarData

Přes SendCommand vám to pojede, přes SetVariable ne.

.. to bude tým, že to je príkaz ?  a nieje to premenná..., aha... dobre.
Inak sa to nedá ? okrem snedcomm...