how to delete hatch after boundary??

[ktbjx]

i found this lisp that creates polyline boundaries.

but i wanna delete the hatch after creating the boundary

how will i add

(entdel sset)????

(defun  c:PHB (/ oldce sset cnt obj)
 (setq OLDCE (getvar "cmdecho"))
 (setq OLDColor (getvar "CeColor"))
 (setq OLDLayer (getvar "Clayer"))
 (setvar "cmdecho" 0)
 (princ "\nSelect Hatch Objects: ")
 (setq sset (ssget ":l" '((0 . "hatch"))))

 (setq CNT -1)
 (while (setq OBJ (ssname SSET (setq CNT (1+ CNT))))
  (setvar 'clayer (cdr (assoc 8 (setq ent (entget OBJ)))))
   (setvar 'cecolor (if (setq clr (assoc 62 ent))
         (itoa (cdr clr)) "BYLAYER"))
   
   (command "-hatchedit" OBJ "b" "p" "y")
   )


 (setvar "cmdecho" OLDCE)
 (setvar "CeColor" OLDColor)
 (setvar "CLayer" OLDLayer)

 (princ)
 )

[ziele_o2k]

something like this

[color=RED]([/color][color=BLUE]defun[/color]  [color=BLUE]c:PHB[/color] [color=RED]([/color][color=BLUE]/[/color] oldce sset cnt obj[color=RED])[/color]
 [color=RED]([/color][color=BLUE]setq[/color] OLDCE [color=RED]([/color][color=BLUE]getvar[/color] [color=#a52a2a]"cmdecho"[/color][color=RED]))[/color]
 [color=RED]([/color][color=BLUE]setq[/color] [color=BLUE]OLDColor[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=#a52a2a]"CeColor"[/color][color=RED]))[/color]
 [color=RED]([/color][color=BLUE]setq[/color] [color=BLUE]OLDLayer[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=#a52a2a]"Clayer"[/color][color=RED]))[/color]
 [color=RED]([/color][color=BLUE]setvar[/color] [color=#a52a2a]"cmdecho"[/color] [color=#009900]0[/color][color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color] [color=#a52a2a]"\nSelect Hatch Objects: "[/color][color=RED])[/color]
 [color=RED]([/color][color=BLUE]setq[/color] sset [color=RED]([/color][color=BLUE]ssget[/color] [color=#a52a2a]":l"[/color] [color=DARKRED]'[/color][color=RED](([/color][color=#009900]0[/color] [color=DARKRED].[/color] [color=#a52a2a]"hatch"[/color][color=RED]))))[/color]

 [color=RED]([/color][color=BLUE]setq[/color] CNT [color=#009900]-1[/color][color=RED])[/color]
 [color=RED]([/color][color=BLUE]while[/color] [color=RED]([/color][color=BLUE]setq[/color] OBJ [color=RED]([/color][color=BLUE]ssname[/color] SSET [color=RED]([/color][color=BLUE]setq[/color] CNT [color=RED]([/color][color=BLUE]1+[/color] CNT[color=RED]))))[/color]
  [color=RED]([/color][color=BLUE]setvar[/color] [color=DARKRED]'[/color]clayer [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]8[/color] [color=RED]([/color][color=BLUE]setq[/color] [color=BLUE]ent[/color] [color=RED]([/color][color=BLUE]entget[/color] OBJ[color=RED])))))[/color]
   [color=RED]([/color][color=BLUE]setvar[/color] [color=DARKRED]'[/color]cecolor [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]setq[/color] clr [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]62[/color] [color=BLUE]ent[/color][color=RED]))[/color]
         [color=RED]([/color][color=BLUE]itoa[/color] [color=RED]([/color][color=BLUE]cdr[/color] clr[color=RED]))[/color] [color=#a52a2a]"BYLAYER"[/color][color=RED]))[/color]
   
   [color=RED]([/color][color=BLUE]command[/color] [color=#a52a2a]"_hatchedit"[/color] OBJ [color=#a52a2a]"_b"[/color] [color=#a52a2a]"_p"[/color] [color=#a52a2a]"_y"[/color][color=RED])[/color]
   [color=RED]([/color][color=BLUE]entdel[/color] OBJ[color=RED])[/color]
   [color=RED])[/color]


 [color=RED]([/color][color=BLUE]setvar[/color] [color=#a52a2a]"cmdecho"[/color] OLDCE[color=RED])[/color]
 [color=RED]([/color][color=BLUE]setvar[/color] [color=#a52a2a]"CeColor"[/color] [color=BLUE]OLDColor[/color][color=RED])[/color]
 [color=RED]([/color][color=BLUE]setvar[/color] [color=#a52a2a]"CLayer"[/color] [color=BLUE]OLDLayer[/color][color=RED])[/color]

 [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]
 [color=RED])[/color]

[ktbjx]

thank you so much sir!!!!

[tombu]

something like this

 

How did you place your code formatted in color?

[ziele_o2k]

How did you place your code formatted in color?

I'm using Lisp Styler by Lee Mac for bbcode on this forum.

[tombu]

Thanks, going to try that next time!

 

Got to give thanks again to Lee Mac for making our lives easier as well!

[Lee Mac]

I'm using Lisp Styler by Lee Mac for bbcode on this forum.

 

Thanks, going to try that next time!

 

Got to give thanks again to Lee Mac for making our lives easier as well!

 

Thank you both - I'm pleased the program is proving useful.

 

Just a tip: run the LISP Styler in a new drawing to avoid functions defined in the active drawing being displayed in blue (such as [noparse]c:PHB[/noparse] and the global variables OLDColor & OLDLayer in your post.).