Perform hatch without superfluous requests

[Nikon]

Hi, everybody.
It is necessary to perform hatch, regardless of the previous type of hatching.
The first code issues superfluous requests.
The second code performs the hatch using the previous type, not the one specified in the code.

(defun c:HatchUser ( / ss)
   (setq ss (ssget))  
  (if ss
    (progn   
(command "_-BHATCH" "_Properties" "_User" "0" "_Double" "_Yes" "200" "_S" ss "")     
    )
  )
(princ)
)


(defun c:HatchUser1 ( / ss)
  (setq ss (ssget))
  (if ss
    (progn
(command "_.-BHATCH" "_User" "_Double" "_Yes" "0" "200" "_S" ss "" "")
        )
    )
  )
  (princ)
)

 

HatchUserdwg.dwg

 

Edited 1 hour ago by Nikon