Leaderboard

@BlackBox Beat me to the Punch! @james9710 Here is my version - as simple as I can make it: (defun C:PLH (/ e el) (command "._pline") (while (= (logand (getvar "cmdactive") 1) 1) (command pause) ) (if (and (setq e (entlast)) (setq el (entget e)) (= (cdr (assoc 0 el)) "LWPOLYLINE") (= (logand (cdr (assoc 70 el)) 1) 1) ) (command "._-hatch" "_pro" "_S" "_S" e "" "") (princ "\nInvalid Polyline Created (Must be complete and Closed).") ) (princ) )

@SLW210 @HypnoS edited please test. cpy-blk-2-poly.lsp

@SLW210 please upload sample dwg , where yo did apply the lisp

'... as simple'... using logand. (chortles) Teeheehee Props though, as yours allows arcs, etc... Well done

Without using Visual LISP reactors, here's a starting point: (defun c:PLH (/ pt) (command "._pline") (while (and (not (initget 32)) (if pt (setq pt (getpoint pt)) (setq pt (getpoint)) ) ) (command pt) ) (command "_c") (command "._-hatch" "_p" "_s" "_co" "." "." "_la" "." "_s" (ssadd (entlast)) "" "" ) (princ) )

I know he uses BricsCAD and I used it for the last 5 years when I was still working in CAD. liked it a lot more the AutoCAD. there are differences but mostly for the better like double extend.