topic Re: Why instead of HPANG, a number between 0 and 1 is loaded? in AutoCAD Forum

topic Re: Why instead of HPANG, a number between 0 and 1 is loaded? in AutoCAD Forum https://forums.autodesk.com/t5/autocad-forum/why-instead-of-hpang-a-number-between-0-and-1-is-loaded/m-p/5474992#M343069 Now I use Google Chrome and when I click on "Options", the menu is shown 🙂Before I used Mozilla Firefox and probably it has an error. There are my lisps from previous post. <PRE>(DEFUN C:HSCNG (/ CurHSC CurHANG)  (setq CurHSC (getreal "\nSet Current HatchScale for: "))  (setq CurHANG (getreal "\nSet Current HatchAngle for: "))  (COMMAND "HPSCALE" CurHSC )  (COMMAND "HPANG" CurHANG) ) ; ---- (DEFUN C:HSCNGDEF (/)  (princ "\nSet current HatchScale for 1, and current HatchAngle for 0")  (COMMAND "HPSCALE" "1")  (COMMAND "HPANG" "0") ) ; ----------- (DEFUN C:HSCCNGG (/)  (princ "\nChoose HatchPatterns to change HatchScale for HatchScale you setted")  (princ "\nand to change HatchAngle for HatchAngle you setted: ")  (setq zbior (ssget))  (COMMAND "_-HATCHEDIT" zbior "Properties" "") ) ; ---- (DEFUN C:HSCCNGG1 (/ HSC HANG)  (setq HSC (getreal "\nEnter value for HatchScale: "))  (setq HANG (getreal "\nEnter value for HatchAngle: "))  (princ "\nChoose HatchPatterns to change HatchScale for HatchScale you setted")  (princ "\nand to change HatchAngle for HatchAngle you setted: ")  (setq zbior (ssget))  (COMMAND "_-HATCHEDIT" zbior "Properties" "" HSC HANG ) ) ; ---- ; DEF = DEFault (DEFUN C:HSCCNGGDEF (/)  (princ "\nChoose HatchPatterns to change HatchScale for 1")  (princ "\nand to change HatchScale for 0")  (setq zbior (ssget))  (COMMAND "_-HATCHEDIT" zbior "Properties" "" "1" "0" ) ) ; ---- (DEFUN C:HSCCNGGCUR (/ Radians->Degrees CurHSC CurHANG) ;;;; ; Default, Autocad works on HatchAngle in Radians. ; In purpose to tell to Autocad, that it should give me HatchAngle in Degrees, ; not in Radians, this "Radians->Degrees" function is needed;  (defun Radians->Degrees (numberOfRadians)  (* 180.0 (/ numberOfRadians pi))  )  (setq CurHANG (Radians->Degrees (getvar "HPANG"))) ; CurHANG = Current Hatch ANGle ;;;;  (setq CurHSC (getvar "HPSCALE")) ; CurHSC = Current Hatch SCale  (setq zbior (ssget))  (princ "\nSelect Hatch Patterns to change their HatchScale for the Current HatchScale")  (princ "\nand to change their HatchAngle for the Current HatchAngle: ") ; (princ "\nWybierz Hatch'e do zmiany HatchScale na bieżącą") ; (princ "\noraz do zmiany HatchAngle na bieżący: ")  (COMMAND "_-HATCHEDIT" zbior "Properties" "" CurHSC CurHANG) ) ;----------- (DEFUN C:HNGGCUR (/ Radians->Degrees CurHANG) ;;;; ; Default, Autocad works on HatchAngle in Radians. ; In purpose to tell to Autocad, that it should give me HatchAngle in Degrees, ; not in Radians, this "Radians->Degrees" function is needed;  (defun Radians->Degrees (numberOfRadians)  (* 180.0 (/ numberOfRadians pi))  )  (setq CurHANG (Radians->Degrees (getvar "HPANG"))) ;;;;  (setq zbior (ssget))  (princ "\nSelect Hatch Patterns to change their HatchAngle for the Current HatchAngle: ")  (COMMAND "_-HATCHEDIT" zbior "Properties" "" "" CurHANG) ) ;----------- (DEFUN C:HSCINF (/)  (princ "\nCurrent HatchScale is equal to: ")  (getvar "HPSCALE") ) ;----- ;Działa ; RADTODEG = RADians TO DEGrees ; HNGINFRADTODEG (DEFUN C:HNGINF (/ Radians->Degrees CurHANG) ;;;; ; Default, Autocad works on HatchAngle in Radians. ; In purpose to tell to Autocad, that it should give me HatchAngle in Degrees, ; not in Radians, this "Radians->Degrees" function is needed;  (defun Radians->Degrees (numberOfRadians)  (* 180.0 (/ numberOfRadians pi))  )  (setq CurHANG (Radians->Degrees (getvar "HPANG"))) ;;;;  (princ "\nCurrent HatchAngle is equal to: ")  CurHANG ) ; CURHANG = CURrent Hatch ANGle ; ----</PRE> Thank you all for help. Mon, 19 Jan 2015 21:11:03 GMT Anonymous 2015-01-19T21:11:03Z