请高手更改程序，编辑填充角度

894560869

目的：如果角度为0度，那么编辑填充角度为90度

           如果角度为90度，那么编辑填充角度为0度

;;;编辑填充角度
(defun c:EH (/ SS SS1)(STRCAT "请拾取填充区域进行编辑角度为90°")(setvar "pickbox" 23)
(setq SS (ssget))(setq SS1 (ssadd))(ssadd (entlast) SS1)(repeat (sslength SS1))
(command "change" SS "" "p" "c" "BYLAYER" "la" "剖面线层" "" "_.hatchedit" SS "" "" "" "90" ))