How do I read (entget SOLID)

[Paul Turvill]

It looks like some of your 3DSOLID definition has scrolled -- what you
posted is just part of the data. Here's the start of what I get -- as you
can see it includes the basic DXF codes -1, 0, 5, 100, 67, 8, and 70 ahead
of the ACIS gibberish:

Command: (entget(car(entsel)))

Select object: ((-1 . <Entity name: 3ef14f0>) (0 . "3DSOLID") (5 . "CAE")
(100
. "AcDbEntity") (67 . 0) (8 . "MAIN") (100 . "AcDbModelerGeometry") (70 . 1)
(1
. "noi gj n o ") (1 . "=0;& {rn {n {rn {rn |") (1 . "3*2/ {rn {rn
{m
{o |") (1 . ",7:33 {rn {rn {rn {l {n |") (1 . "9><: {rn {k {j {m {rn {i
90-(>-;
,6183: |") (1 . "9><: {rn {h {g {m {rn {f -:):-,:; ,6183: |") (1 . "300/ {rn
{rn {no {l |") (1 . "/3>1:r,*-9><: {rn jnjqj koi nkfqhhkgloffilffk o o n n o
o
o V V V V |") (1 . "9><: {rn {nn {nm {m {rn {nl -:):-,:; ,6183: |") (1 .
"300/
<<snipped for brevity>>

Command: (cdr(assoc 8 (entget (car (entsel)))))

Select object: "MAIN"
___

"Easy Entertainment Pictures" <ser...@eznow.net> wrote in message
news:3D548E69...@eznow.net...
>
> This is what ACIS 3D solid lists look like:
> Command: (entget (car (entsel)))
> -): {rn nfonqhnhjgifinhnmi ljmqlffhimghonjgin knqnooikgoolgjgof o o rn V V
|")
> (1 . ":;8: {rn {ig {hm {ii {gl 90-(>-; |") (1 . ",+->687+r<*-): {rn
> nfnoqjfmhimmjlkijj ljmqlffhimghonjgin o rn o o V V |") (1 . "):-+:' {rn
{kg {gk
> |") (1 . ",+->687+r<*-): {rn nfnoqjfmhimmjlkijj knlqkmojggogijiglf o n o o
V V
> |") (1 . "/061+ {rn nfnfqkihflhjkjmngl knlqkmojggogijiglf o |") (1 .
"/061+ {rn
> nfnfqkihflhjkjmngl ljmqlffhimghonjgin o |") (1 . ",+->687+r<*-): {rn
> nfonqhnhjgifinhnmi lgmqfnonhjkhglilj gmqmonmfioohhningn o rn o V V |") (1
.
> "/061+ {rn nfonqhnhjgifinhnmi knlqkmojggogijiglf gmqmonmfioohhningn |") (1
.
> "/061+ {rn nfonqhnhjgifinhnmi ljmqlffhimghonjgin gmqmonmfioohhningn
|").......

[Paul Turvill]

Follow-up: apparently the AutoCAD 2000+ text screen can't handle some of the
"special" characters in the various "1" groups for some 3DSOLIDs, and the
*displayed* list gets "beheaded"; the list in memory, however, is complete.
You can get the Layer and other information in the usual way, however:

(setq foo (entget (car (entsel))))
(cdr (assoc 0 foo)) --> "3DSOLID"

(cdr (assoc 8 foo)) --> "LayerName"
etc.

Just for enlightenment, examine the elements of the list with the (nth)
function:
(nth 0 foo)
(nth 1 foo)
etc.

You'll find that the first dozen are pretty normal DXF code groups, and the
rest are ACIS encoded.
___

"Paul Turvill" <nos...@turvill.com> wrote in message
news:1BFAD01146C9A3AC...@in.WebX.maYIadrTaRb...