solid hatch to outline

[CAD]

Is there a lisp, changing solid hatch, to outline(pline global width 2mm)

,in the whole drawing also when it is in a block.

Edited July 30, 2017 by CAD

[BIGAL]

An old one hatchb.lsp

HatchB.lsp

[CAD]

Hello Bigal u good:P!!, is a nice lisp, but need some modified, i have say solid hatch, but i think, i need it for all the hatches, sorry for that:geek:.

 

-The lisp ask select object, can u make it, that do instant for all the hatches in and outside the blocks, without asking.

-When it make outline the layer is 0, can u make a layer called outline

[BIGAL]

Looking somewhere else came across this little gem done by the Master Lee-mac in 2011. Change the 0.0 to what you want.

 

; original code by lee-mac 2011 zero pline in blocks
; just need this bit 
(setq doc (vla-get-activedocument (vlax-get-acad-object)))

(setq obj (vlax-ename->vla-object (entlast)))
(if (eq "AcDbPolyline" (vla-get-objectname obj))
(vl-catch-all-apply 'vla-put-constantwidth (list obj 0.0))
)
(vla-regen doc acallviewports)
(princ)

(vl-load-com) (princ)

Edited August 1, 2017 by BIGAL

[CAD]

Hello Bigal,

 

lisp get some

 

Error: bad argument type: VLA-OBJECT nil

Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

 

 

; original code by lee-mac 2011 zero pline in blocks

; just need this bit

(setq obj (vlax-ename->vla-object (entlast)))

(if (eq "AcDbPolyline" (vla-get-objectname obj))

(vl-catch-all-apply 'vla-put-constantwidth (list obj 0.0))

)

(vla-regen doc acallviewports)

(princ)

 

(vl-load-com) (princ)

[BIGAL]

Sorry added the "doc" see code above.

[CAD]

hello B,

 

lisp loaded but nothing happen no error more but the things don't

 

-instant all hatch with outline (pline global width 2mm) without ask select objects.

-create outline layer name outlines

 

Do i miss something?

 

; original code by lee-mac 2011 zero pline in blocks

; just need this bit

(setq doc (vla-get-activedocument (vlax-get-acad-object)))

 

(setq obj (vlax-ename->vla-object (entlast)))

(if (eq "AcDbPolyline" (vla-get-objectname obj))

(vl-catch-all-apply 'vla-put-constantwidth (list obj 0.0))

)

(vla-regen doc acallviewports)

(princ)

 

(vl-load-com) (princ)

Edited August 1, 2017 by CAD

[CAD]

Bigal,

 

Do u have a sollution?