Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

DXF Code 330

1 view
Skip to first unread message

Edward Bagby

unread,
Oct 5, 2001, 5:17:51 PM10/5/01
to
In AutoCAD R14.01 I had a lisp routine that utilized dxf code 330 with
hatches to determine what the boundary entity is (I'm using regions as
boudaries in this routine).
I've since moved to R2000i, with non-associative hatching, and I'm finding
that group code 330 is not giving me the same information. It seems to be
refering to some non graphical entity "BLOCK_RECORD".
I'm trying to figure out a way to once again determine the boundary entity
with lisp code.

I don't use associative hatching because that would mess up general drafting
practices in the office.

Thanks for any help.

Edward


Edward Bagby

unread,
Oct 8, 2001, 10:43:37 AM10/8/01
to
Below are the group codes for a hatch object. The first code 330, I'm not
sure what this represents. However, the second code 330... (330 . <Entity
name: 40032130>) ...Is the associated region object, which I am trying to
access.

I use... (setq getx (cdr (assoc 330 (entget (ssname vergetdxf 0))))) ... to
access the entity name but it always returns the first 330 entity and not
the second. How do I access the second?

((-1 . <Entity name: 40032138>) (0 . "HATCH") (330 . <Entity name:
4008ecf8>)
(5 . "9F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANSI31") (70 . 0) (71
.
1) (91 . 1) (92 . 1) (93 . 4) (72 . 1) (10 23.3562 3.37284 0.0) (11 25.0247
3.37284 0.0) (72 . 1) (10 25.0247 3.37284 0.0) (11 25.0247 4.90168 0.0) (72
.
1) (10 25.0247 4.90168 0.0) (11 23.3562 4.90168 0.0) (72 . 1) (10 23.3562
4.90168 0.0) (11 23.3562 3.37284 0.0) (97 . 1) (330 . <Entity name:
40032130>)
(75 . 0) (76 . 1) (52 . 0.0) (41 . 1.0) (77 . 0) (78 . 1) (53 . 0.785398)
(43 .
0.0) (44 . 0.0) (45 . -0.0883883) (46 . 0.0883883) (79 . 0) (98 . 1) (10 0.0
0.0 0.0))


Thank you,

Edward


Edward Bagby

unread,
Oct 8, 2001, 10:52:12 AM10/8/01
to
Below are the group codes for a hatch object. The first code 330, I'm not
sure what this represents. However, the second code 330... (330 . <Entity
name: 40032130>) ...Is the associated region object, which I am trying to
access.

I use... (setq getx (cdr (assoc 330 (entget (ssname vergetdxf 0))))) ... to
access the entity name but it always returns the first 330 entity and not
the second. How do I access the second?

((-1 . <Entity name: 40032138>) (0 . "HATCH") (330 . <Entity name:

4008ecf8>)(5 . "9F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")


(100 .
"AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANSI31") (70 . 0) (71
. 1) (91 . 1) (92 . 1) (93 . 4) (72 . 1) (10 23.3562 3.37284 0.0) (11
25.0247
3.37284 0.0) (72 . 1) (10 25.0247 3.37284 0.0) (11 25.0247 4.90168 0.0) (72
. 1) (10 25.0247 4.90168 0.0) (11 23.3562 4.90168 0.0) (72 . 1) (10 23.3562
4.90168 0.0) (11 23.3562 3.37284 0.0) (97 . 1) (330 . <Entity name:

40032130>)(75 . 0) (76 . 1) (52 . 0.0) (41 . 1.0) (77 . 0) (78 . 1) (53 .
0.785398)(43 .

John Uhden

unread,
Oct 8, 2001, 12:23:57 PM10/8/01
to
Sorry I misunderstood the question. Presuming (setq ent (entget ...)), try
(assoc 330 (reverse ent)).

--
John Uhden, Cadlantic/formerly CADvantage
--> mailto:juh...@cadlantic.com
--> http://www.cadlantic.com
2 Village Road
Sea Girt, NJ 08750
Tel. 732-974-1711
FAX 732-528-1332

"Edward Bagby" <Eba...@superstructures.com> wrote in message
news:4A7D32659ACC9B67...@in.WebX.maYIadrTaRb...

0 new messages