entmaking a hatch within a block def

here's the code fragment - please help

(if (null (tblsearch "block" "arctwallwasher"));;;wallwasher
(progn
(entmake '((0 . "BLOCK")(2 . "arctwallwasher")(70 .
0)(10 0.0 0.0 0.0)))
(entmake '((0 . "LINE")(8 . "0")(10 0.0 -4.25 0.0)(11
0.0 4.25 0.0)))
(setq en1 (entlast))
(entmake '((0 . "LINE")(8 . "0")(10 -4.25 0.0 0.0)(11
0.0 -3.0 0.0)))
(entmake '((0 . "LINE")(8 . "0")(10 3.0 0.0 0.0)(11 0.0
4.25 0.0)))
(entmake '((0 . "CIRCLE")(8 . "0")(10 0.0 0.0 0.0)(40 .
3.0)))
(setq en2 (entlast))
(entmake '((0 . "HATCH")(8 . "0")(10 0.0 0.0 0.0)(2 .
"_USER")(70 . 0)(71 . 1)(91 . 1)(92 . 7)(72 . 1)(73 . 1)(93 . 3)(10
2.35514e-016 3.0 0.0)(42 . 0.414214)(10 -3.0 0.0 0.0)(42 .
0.414214)(10 -2.35514e-016 -3.0
0.0)(42 . 0.0)(97 . 2)(cons 330 en1)(cons 330 en2)(75 . 0)(76 . 0)(52 .
0.0)(41 . 0.375)(77 . 0)(78 . 1)(53 . 0.0)(43 . 0.0)(44 . 0.0)(45 . 0.0)(46
.. 0.375)(79 . 0)(47 . 0.025875)(98 . 1)(10 -0.648205 0.884371 0.0)))
(entmake '((0 . "ENDBLK")))
)
)

Thanks

Jamie Duncan

Consulting - If you're not part of the solution, there's good money in
prolonging the problem.

 

I think you would be better off using active x...

vla-AddHatch ( object, PatternType, PatternName, Associativity [,
HatchObjectType])

There's is documentation for how to add to the outerloop (boundary) in the
docs. Look in the activex section under the hatch object. But if you still
want to entmake it then by all means

Devin

 

knowing nothing about active x, I would prefer to stick to lisp, which I am
more familiar with

--


Jamie Duncan

Consulting - If you're not part of the solution, there's good money in
prolonging the problem.

 

I understand.

 

thanks for the help though, and maybe it's time I learned more about it

--


Jamie Duncan

Consulting - If you're not part of the solution, there's good money in
prolonging the problem.

 

It wasn't too long ago that I only knew lisp. And it was a bit more
programming. Then I picked up on the activex, it's a little scary at first,
but it's real easy to pick up. Now the code is greatly reduced in length,
and I think it's faster too from what I heard. It allows me to do things
that I never could with lisp alone. The guys here have been a big help to
me. Ask a few questions and read the docs and pretty soon, you got it down.

Devin