Region!!

Hi,

In AutoCAD 2000/ 2004, I drew a rectangle & made it as a region. Now, to get the details of entity, I did the following:

(setq a (car (entsel)))
(entget a)

AutoCAD displayed the following details:

((-1 . <Entity name: 1783588>) (0 . "REGION") (330 . <Entity name: 17834f8>) (5
"49") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbModelerGeometry") (70 . 1) (1 . "koo mi n o ") (1 . "h J1410(1 nl
^\\VL kqoqm QK mk K*: U*1 og nlejienl mook ") (1 . "rn fqfffffffffffffffj:rooh
n:rono ") (1 . "=0;& {rn {n {rn {rn |") (1 . "3*2/ {rn {rn {m {o |") (1 .
",7:33 {rn {rn {rn {l {rn {n |") (1 . "9><: {rn {rn {k {m {rn {j 90-(>-; ;0*=3:
0*+ |") (1 . "300/ {rn {rn {i {l |") (1 . "/3>1:r,*-9><: {rn noqllfoifmfljlfkgn
iqkfikgolfklgikjmk o o o n n o o 90-(>-;@) V V V V |") (1 . "<0:;8: {rn {h {g
{rn {f -:-,:; {k {rn |") (1 . "<0:;8: {rn {no {i {rn {nn -:-,:; {k {rn |")
(1 . "<0:;8: {rn {i {no {rn {nm -:-,:; {k {rn |") (1 . ":;8: {rn {nl {nk {i
{nj 90-(>-; |") (1 . "<0:;8: {rn {g {h {rn {ni -:-,:; {k {rn |") (1 . ":;8:
{rn {nh {nl {h {ng 90-(>-; |") (1 . ":;8: {rn {nk {nf {g {mo 90-(>-; |") (1 .
"):-+:' {rn {f {mn |") (1 . "):-+:' {rn {f {mm |") (1 . ",+->687+r<*-): {rn
gqljnninjmjmomknkl hqfjhkjhfgmjmingik o n o o V V |") (1 . ":;8: {rn {nf {nh
{no {ml 90-(>-; |") (1 . "):-+:' {rn {ni {mk |") (1 . ",+->687+r<*-): {rn
gqljnninjmjmomknkl jqoljjomgoimkihngk o o n o V V |") (1 . "):-+:' {rn {nm {mj
|") (1 . ",+->687+r<*-): {rn nmqlmifhhoinghijkg hqfjhkjhfgmjmingik o o rn o V V
|") (1 . "/061+ {rn gqljnninjmjmomknkl hqfjhkjhfgmjmingik o |") (1 . "/061+ {rn
nmqlmifhhoinghijkg hqfjhkjhfgmjmingik o |") (1 . ",+->687+r<*-): {rn
nmqlmifhhoinghijkg jqoljjomgoimkihngk o rn o o V V |") (1 . "/061+ {rn
gqljnninjmjmomknkl jqoljjomgoimkihngk o |") (1 . "/061+ {rn nmqlmifhhoinghijkg
jqoljjomgoimkihngk o |"))


In the above lines, what are those unknown characters with group code 1? In which group code the CG of the REGION is stored?

Can somebody help me to solve this problem?

Regards,
Pradeep Hebbar

 

Hello Pradeep,

The big jumble of characters that you see are encrypted ACIS solid data.
You cannot work on this data using Lisp. Instead you can obtain each
group code 1 from the entity and then use the following command to
decrypt the encrypted data into a readable ACIS format. You can then
download the ACIS data specifications from www.spatial.com and try an
build your solid.

Regards
Rakesh Rao

PS: Where are you based?

;; ! ******************************************************************
;; ! MD_DecryptACIS
;; ! ******************************************************************
;; ! Function : Decrypt the ACIS format string info stored on a 3dsolid
;; ! entity
;; ! Arguments: 'EncStr' - Encrypted string
;; ! Updated : October 26, 2001

(defun MD_DecryptACIS( EncStr / DecStr tmpStr )
(setq DecStr "")
(while (> (strlen EncStr) 0)
(setq
tmpStr (substr EncStr 1 1)
EncStr (substr EncStr 2)
DecStr (strcat DecStr (if (= tmpStr " ")
" "
(chr (- 79 (- (ascii tmpStr) 80)))
)
)
)
)
DecStr
)
;; ! ******************************************************************

 

Hello Pradeep,

The big jumble of characters that you see are encrypted ACIS solid data.
You cannot work on this data using Lisp. Instead you can obtain each
group code 1 from the entity and then use the following command to
decrypt the encrypted data into a readable ACIS format. You can then
download the ACIS data specifications from www.spatial.com and try an
build your solid.

Regards
Rakesh Rao

PS: Where are you based?

;; ! ******************************************************************
;; ! MD_DecryptACIS
;; ! ******************************************************************
;; ! Function : Decrypt the ACIS format string info stored on a 3dsolid
;; ! entity
;; ! Arguments: 'EncStr' - Encrypted string
;; ! Updated : October 26, 2001

(defun MD_DecryptACIS( EncStr / DecStr tmpStr )
(setq DecStr "")
(while (> (strlen EncStr) 0)
(setq
tmpStr (substr EncStr 1 1)
EncStr (substr EncStr 2)
DecStr (strcat DecStr (if (= tmpStr " ")
" "
(chr (- 79 (- (ascii tmpStr) 80)))
)
)
)
)
DecStr
)
;; ! ******************************************************************

--

 

Hi,

Thanks Mr.Rakesh Rao!!

I was trying to write a program to mark the centroid of a regiont. Now I got some idea about that.

I am working in in Bangalore, basically from Mangalore.

Regards,
Pradeep Hebbar

 

Hi Pradeep

Visit my homepage -> Free Stuff and search for 'VxGetMassProps'.

Cheers