the real doo 3 (C:LOOPSELECT3 () (setq e (car (entsel "\nPick ONE for selection: "))) (PRINC "\nCAPTURED ONE BLOCK")(PRINC "\n") (PRINC "\t")(PRINC E)(PRINC "\n") (SETQ E1 (ENTGET E)) (PRINC "\n") (PRINC "\FIRST ENTITY OF SINGLE PICK BLOCK")(PRINC "\n") (PRINC "\t")(PRINC E1)(PRINC "\n") (PRINC) (SETQ E1A (ENTLAST))(PRINC "\n") (PRINC "\t")(PRINC E1A)(PRINC "\n") (SETQ E1B (ENTGET E1A))(PRINC "\n") (PRINC "\t")(PRINC E1B)(PRINC "\n") (PRINC"\n") (PRINC "\n") (setq ct 0) (textpage) (princ "\n")(PRINC "Entget of last entity:") (repeat (length E1B) (print (nth ct E1B)) (setq ct (1+ ct))) (PRINC "\n") (PRINC "\nPICK FENCE FOR SELECTION: ") (SETQ SSE (SSGET)) (SETQ SSESIZE (SSLENGTH SSE)) (SETQ SS1A (ENTLAST)) (SETQ SS1B (ENTGET SS1A)) (SETQ CT0 (SSLENGTH SSE)) (setq enct 0) (PRINC "PARCING") (textpage) (princ "\n")(PRINC "parcing selection set:") (SETQ ENCT 0) (while (/= ct0 enct) (print (ssname sse enct)) (setq ssent1 (ssname sse enct)) (PRINC ENCT) (print ssent1) (setq enct (1+ enct)) (SETQ E1AN (ENTLAST))(PRINC "\nPROCESSING ***************************") (SETQ E1BN (ENTGET E1A))(PRINC "\nCOLLECTING INFO") (setq ctn 0) (repeat (length E1BN) (print (nth ctn E1BN)) (setq ctn (1+ ctn))) (SETQ ASS0CODE (car (ASSOC 0 E1BN))) (SETQ ASS0TYPE (cdr (ASSOC 0 E1BN))) (SETQ ASS2CODE (car (ASSOC 2 E1BN))) (SETQ ASS2TYPE (cdr (ASSOC 2 E1BN))) (SETQ ASS5CODE (car (ASSOC 5 E1BN))) (SETQ ASS5TYPE (cdr (ASSOC 5 E1BN))) (SETQ ASS6CODE (car (ASSOC 6 E1BN))) (SETQ ASS6TYPE (cdr (ASSOC 6 E1BN))) (SETQ ASS8CODE (car (ASSOC 8 E1BN))) (SETQ ASS8TYPE (cdr (ASSOC 8 E1BN))) (PRINC "\nTHIS IS ASS0 CODE: \t")(PRINC ASS0CODE) (PRINC "\t")(PRINC "ENTITY TYPE") (PRINC "\nTHIS IS ASS0 TYPE: \t")(PRINC ASS0TYPE) (PRINC "\nTHIS IS ASS2 CODE: \t")(PRINC ASS2CODE) (PRINC "\t")(PRINC "BLOCK NAME") (PRINC "\nTHIS IS ASS2 TYPE: \t")(PRINC ASS2TYPE) (PRINC "\nTHIS IS ASS5 TYPE: \t")(PRINC ASS5CODE) (PRINC "\t")(PRINC "HANDLE") (PRINC "\nTHIS IS ASS5 TYPE: \t")(PRINC ASS5TYPE) (PRINC "\nTHIS IS ASS6 TYPE: \t")(PRINC ASS6CODE) (PRINC "\t")(PRINC "LINE TYPE") (PRINC "\nTHIS IS ASS6 TYPE: \t")(PRINC ASS6TYPE) (PRINC "\nTHIS IS ASS8 CODE: \t")(PRINC ASS8CODE) (PRINC "\t")(PRINC "LAYER") (PRINC "\nTHIS IS ASS8 TYPE: \t")(PRINC ASS8TYPE) (PRINC "\n*******************************************") ) (PRINC "COMPLETED"))
Bloodshed C++ Logo

Graphic user interface ONE

Using Bloodshed C++

This is a class for beginners who want to develop

a front end Graphic Interface first and pickup the

complexities of Object programming as they go.

Homework and Assignment One Splash Screen:

Client information:

Last name:McChristian
First name:Clarence
Tel:(512) 202-5408
Email:ivory_towers@hotmail.com