command issues

hi

im trying to create a wipeout beneate a hatch, i cant figure out what im doing wrong?

(defun C:TEST(/ ent)
 (setq ent (entget(car(entsel))))
 
 (command "HATCHGENERATEBOUNDARY" (cdr (assoc -1 ent)) "")
 (command "WIPEOUT" "p" "" (entlast) "" "y" "")
 (command "DRAWORDER" (entlast) "u"  "" (cdr (assoc -1 ent))"")
 )

thanks

Shay

Try:

(defun C:TEST(/ ent)
 (setq ent (entget(car(entsel))))

 (command "HATCHGENERATEBOUNDARY" (cdr (assoc -1 ent)) "")
 (command "WIPEOUT" "p" "y")
 (command "DRAWORDER" (entlast) "" "u"  (cdr (assoc -1 ent)) "" )
)

Another

(defun C:TEST (/ sel)
 (setq sel (entsel))
 (command "_.HATCHGENERATEBOUNDARY" sel "")
 (if (= (getvar 'PICKFIRST) 1)
   (command "_.WIPEOUT" "p" "y")
   (command "_.WIPEOUT" "p" (entlast) "y")
 )
 (command "_.DRAWORDER" (entlast) "" "_u" sel "")
 (princ)
)

HTH

Henrique

(if (and (setq s (car (entsel "\n Select hatch :")))
        (eq (cdr (assoc 0 (entget s))) "HATCH")
        )
 (......

Thank you all

Thank you all

To come late better than never

hi

_.HATCHGENERATEBOUNDARY is unknow command in acad 2010, is there any eqivalent?

hi

 

_.HATCHGENERATEBOUNDARY is unknow command in acad 2010, is there any eqivalent?

Maybe -> -hatchedit

(command "-hatchedit" sel "" "b" "" "p" "" "n" "") give a very minimal options to select from (there is "create boundry") when i access this command from acad, but from lisp is not there,

wierd

Remove the "" after the variable sel

Remove the "" after the variable sel

Thanks you very much for the quick respons Tharwat

Thanks you very much for the quick respons Tharwat

You're welcome anytime