Multiple hatches in multiple layers

[romrom]

Hello

When I export polygons from arcgis to autocad, I’m loosing all my hatches, from differents layers, I’ve only get closed polylines !

Question : is it possible to make a lisp to create differents hatch type in differents layers at once with all closed polylines from those layers ?

Thank you for your help

[danellis]

The "simple" way would be to be to cycle through your selection checking for closed polylines.

if the object's a closed polyline then read off it's layer, and set that to current.

Hatch the object on the current layer.

Probably three quarters of this code would be essentially mimicking what you'd do on the command line.

 

 

A more complicated way to code it, but probably quicker would be to sort through all the objects, filtering them for their layer and filtering into lists to match.

You could then cycle through those lists hatching them onto a specific layer.

 

 

dJE

[BIGAL]

Need a sample dwg and some rules what hatch goes on what layer etc. Like danellis its not a very hard task but its better to do once hence a sample required.

[romrom]

cadtutor.DWGFetching info...

 

here is a sample dwg it contains only good layers with closed polylines.

So I need to hatch each closed polyline of each layer in the same layer as the polyline...

Thank you very much for answers!

[BIGAL]

This is a bit rough but its a start and gives the method. One problem maybe your polylines are by colour not bylayer.

 

(defun c:polhatch ( / obj ss len layname)
(setq oldhatch (getvar "HPNAME")) 
(setq ss (ssget "X" (list (cons 0 "LWPOLYLINE"))))
(setq len (sslength  ss))
(setq x 0)
(repeat len
(setq obj (entget (ssname ss x)))
(setq layname (cdr (assoc 8 obj)))
(setvar "Clayer" layname)
;(setvar "hpname" "newhatchpattern") ;Sets a default hatch pattern name of up to 34 characters without spaces
(command "-hatch" "S" (cdr (assoc -1 obj)) "" "")
(setq x (+ x 1))
)
(setvar "Hpname" oldhatch) ;reset back to original pattern
)

Edited April 23, 2015 by BIGAL

[danellis]

  romrom said:

[ATTACH]53868[/ATTACH]

...

So I need to hatch each closed polyline of each layer in the same layer as the polyline...

Thank you very much for answers!

 

Not necessarily, although that was what I'd thought you wanted to do from your OP.

 

 

If you needed them to be on different layers then you'd need to include for a "converter" to tell the routine that a polyline on layer 1 would need to be hatched on layer A.

 

 

dJE

[BIGAL]

danellis the lisp does hatch on same layer as pline as per request ? Same layer as the polyline...

[romrom]

thanks for answering!

the code doesn't work but i'm very bad in lisp so I'm sure I make a mistake when I try to use it!

 

 

I

[danellis]

  danellis said:

Not necessarily, although that was what I'd thought you wanted to do from your OP.

 

 

If you needed them to be on different layers then you'd need to include for a "converter" to tell the routine that a polyline on layer 1 would need to be hatched on layer A.

 

 

dJE

 

  BIGAL said:

danellis the lisp does hatch on same layer as pline as per request ? Same layer as the polyline...

 

 

Bigal, RomRom's post #4 implied to me that he may want the hatching on separate layers, but he'd have to clarify that.

 

 

 

  romrom said:

thanks for answering!

the code doesn't work but i'm very bad in lisp so I'm sure I make a mistake when I try to use it!

 

 

I

 

 

Are you getting any error messages?

 

 

dJE

[BIGAL]

After loading type POLHATCH

[romrom]

thank you again, you are very friendly boys!!

I had a error message but now it works, why: in french the command is not "-hatch" but "-hachures"

So now I can see the result it's not bad, it's a good beginning!

now if it's possible to select Automatically all boundaries when typing the "polhatch" command it's a magical command

and if the hatches take the same color as the closed polyline it's a perfect command (the layer is already a very good thing!)

And when somebody find the solution I can send him a real french camembert for thanking!

for australia it should be a long trip for it !!

Thanks again

[BIGAL]

You can fix the lisp for future reference I think its ._Hatch its to do with the period or underscore that makes it language independant. not sure if I had done it as Vl-addhatch wether the french version would be of any effect.

 

Almost forgot ssget "X" is select all rather than just ssget options are like W CP WP check code it has been updated.