(if (and (print Osnaps/Main) (print Osnaps/Main/btnGce) Osnaps/Main/btnGce ; To be absolutely safe. (print (dcl-Control-GetVisible Osnaps/Main/btnGce)) (if (= "BRICSCAD" (strcase (getvar 'product))) (> 16 (atoi (getvar '_vernum))) (> 2016 (atoi (substr (print (ver)) 13))) ; https://www.theswamp.org/index.php?topic=36606.msg416136#msg416136 ) ) (progn (dcl-Control-SetVisible Osnaps/Main/btnGce nil) (dcl-Control-SetWidth Osnaps/Main (- (dcl-Control-GetWidth Osnaps/Main) 32)) ; 32 is the button distance. ) )
(defun c:Osnaps/Main/btnOsnapz#OnClicked () (setvar 'gridmode (setvar 'osnapz (boole 6 (getvar 'osnapz) 1))) (princ))