Author Topic: How to get code name from fas file (Read 7630 times)

Adesu · « **on:** March 27, 2007, 11:13:13 PM »

Hi Alls,
This below code is a very simple,that code have name is "test",everybody of course known it,my problem is if that code to become a fas file,I can not know what name of the code, and is there a code to search name code from fas file?.

Lsp file

Code: [Select]

(defun c:test (/ p1 p2 p3 p4)
  (setq p1 '(0 0 0))
  (setq p2 '(10 0 0))
  (setq p3 '(10 5 0))
  (setq p4 '(0 5 0))
  (command "_pline" p1 p2 p3 p4 "c" "")
  (princ)
  )    ; defun

Fas file from above code

Code: [Select]

 FAS4-FILE ; Do not change it!
118
16 $	Q
		
				Q
Q

Q
Q
Q
	Q
	Q
5$
251 5 $ØÕ>u
/-|-+Fgk6LH#uu¨±Yd-j=FGHb1\ÌÞt8k\IF
_D^`1XÌÕ?\|IBpd#CD=A4¥ºZ/Z)-1o B&C(V[Q1XþÞq82]\BuC#)9b[ÌoE
1o G-@QDlgOS1¢°ft^E]I%C\K?bjÿÔ?/Z)-1dCRhmXÌæ?/I'ytSG.BR~%YÌÔ?}	'f]GG`1mÍÕ?u/1Kc¯{D0:'
;fas4 crunch
;$;A3/28/07

Kerry · « **Reply #1 on:** March 27, 2007, 11:21:32 PM »

Add something like this to the end of the file before you compile it

Code: [Select]

(PROMPT "\n  CommandLine : < MYSuperDuperProgram > [Build 20070328]\n")
(princ)

Adesu · « **Reply #2 on:** March 29, 2007, 01:34:28 AM »

Hi Kerry,
My code now revised like this

Code: [Select]

(defun c:test (/ p1 p2 p3 p4)
  (setq p1 '(0 0 0))
  (setq p2 '(10 0 0))
  (setq p3 '(10 5 0))
  (setq p4 '(0 5 0))
  (command "_pline" p1 p2 p3 p4 "c" "")
  (princ)
  (prompt "\nCommandLine : (c:test)[Build 20070328]\n")
  )    ; defun

But I cat not see , what I looking for

Kerry · « **Reply #3 on:** March 29, 2007, 02:04:04 AM »

Sorry, I meant like this ..So it shows when loading ..

Code: [Select]

(defun c:test (/ p1 p2 p3 p4)
  (setq p1 '(0 0 0))
  (setq p2 '(10 0 0))
  (setq p3 '(10 5 0))
  (setq p4 '(0 5 0))
  (command "_pline" p1 p2 p3 p4 "c" "")
  (princ)
)    ; defun
;;----------------------------------------------------
(prompt "\nCommandLine : < c:test >  [Build 20070328]\n")
(princ)

SomeCallMeDave · « **Reply #4 on:** March 29, 2007, 08:00:49 AM »

If you create a VLX, you can add a text resource file to the compilation and you can include any data that you need. It will be included at the bottom of the VLX in clear text

Code: [Select]

;fas4 crunch
;$;A3/28/07o7ADESU RESOURCE$#$#$#$#$
DATA you need goes HERE
Function Names --  c:Test
Or anything Else
$#$#$#$#$VRTLIB-1

Adesu · « **Reply #5 on:** March 29, 2007, 07:46:26 PM »

Quote from: SomeCallMeDave on March 29, 2007, 08:00:49 AM

If you create a VLX, you can add a text resource file to the compilation and you can include any data that you need. It will be included at the bottom of the VLX in clear text

Code: [Select]
;fas4 crunch ;$;A3/28/07o7ADESU RESOURCE$#$#$#$#$ DATA you need goes HERE Function Names -- c:Test Or anything Else $#$#$#$#$VRTLIB-1

Yes it can do, my question is , are you creating that text with manual ?, or with add a lisp program.
Others question, if you have a lisp file in fas file, and you forgot what it name code then that code not yet add text as your suggest,how to know to call it

Kerry · « **Reply #6 on:** March 29, 2007, 08:35:51 PM »

Open a new drawing, preferably without many commands loaded ..

At the command line :

Command: lsp
Enter an option [?/Commands/Functions/Variables/Load]: C
Enter Commands to list <*>: *

Load the VLX

Command: lsp
Enter an option [?/Commands/Functions/Variables/Load]: C
Enter Commands to list <*>: *

Compare the lists

Adesu · « **Reply #7 on:** March 29, 2007, 10:20:22 PM »

Here result I just check, at that list I can not find "test".

Code: [Select]

Command:
Command: lsp

Enter an option [?/Commands/Functions/Variables/Load]: c

Enter Commands to list <*>: *

-BLOCKREPLACE                 (SUBR)
-BLOCKTOXREF                  (SUBR)
-CDORDER                      (SUBR)
-COPYTOLAYER                  (SUBR)
-LAYOUTMERGE                  (SUBR)
-LMAN                         (SUBR)
-LMANMODE                     (SUBR)
-OVERKILL                     (SUBR)
-REDIRMODE                    (SUBR)
-TCASE                        (SUBR)
-XLIST                        (SUBR)
3D                            (SUBR)
3DARRAY                       (SUBR)
ACADINFO                      (SUBR)
ACETUCS-BACK                  (SUBR)
ACETUCS-BOTTOM                (SUBR)
ACETUCS-FRONT                 (SUBR)
ACETUCS-LEFT                  (SUBR)
ACETUCS-RIGHT                 (SUBR)
ACETUCS-TOP                   (SUBR)
ADDVARS2SCR                   (SUBR)
AI_BOX                        (SUBR)
AI_CONE                       (SUBR)
AI_CUSTOM_SAFE                (SUBR)
AI_DISH                       (SUBR)
AI_DOME                       (SUBR)
AI_MESH                       (SUBR)
AI_PRODUCT_SUPPORT            (SUBR)
AI_PRODUCT_SUPPORT_SAFE       (SUBR)
AI_PYRAMID                    (SUBR)
AI_SELALL                     (SUBR)
AI_SPHERE                     (SUBR)
AI_TORUS                      (SUBR)
AI_TRAINING_SAFE              (SUBR)
AI_WEDGE                      (SUBR)
ALIASEDIT                     (SUBR)
ALIGNSPACE                    (SUBR)
ARCTEXT                       (SUBR)
ATEXT                         (SUBR)
ATTIN                         (SUBR)
ATTOUT                        (SUBR)
ATTREDEF                      (SUBR)
BCOUNT                        (SUBR)
BEXTEND                       (SUBR)
BLOCK?                        (SUBR)
BLOCKREPLACE                  (SUBR)
BLOCKTOXREF                   (SUBR)
BREAKLINE                     (SUBR)
BSCALE                        (SUBR)
BTRIM                         (SUBR)
BURST                         (SUBR)
CDORDER                       (SUBR)
CHSPACE                       (SUBR)
CHURLS                        (SUBR)
CLIPIT                        (SUBR)
CLOSEALL                      (SUBR)
COPYM                         (SUBR)
COPYTOLAYER                   (SUBR)
DATE                          (SUBR)
DDEMODES                      (SUBR)
DDGRIPS                       (SUBR)
DDRMODES                      (SUBR)
DDSELECT                      (SUBR)
DIMEX                         (SUBR)
DIMIM                         (SUBR)
DIMREASSOC                    (SUBR)
DIMSIO                        (SUBR)
EDGE                          (SUBR)
EDITTIME                      (SUBR)
ETBUG                         (SUBR)
EXOFFSET                      (SUBR)
EXPLAN                        (SUBR)
EXPRESSMENU                   (SUBR)
EXPRESSREG                    (SUBR)
EXPRESSTOOLS                  (SUBR)
EXTRIM                        (SUBR)
FASTSEL                       (SUBR)
FLATTEN                       (SUBR)
FS                            (SUBR)
FSCREEN                       (SUBR)
FSMODE                        (SUBR)
FULLSCREEN                    (SUBR)
GATTE                         (SUBR)
GETSEL                        (SUBR)
GIFIN                         (SUBR)
GOTOURL                       (SUBR)
IMAGEAPP                      (SUBR)
IMAGEEDIT                     (SUBR)
IMAGEOVERLAP                  (SUBR)
LAP                           (SUBR)
LAYCUR                        (SUBR)
LAYDEL                        (SUBR)
LAYFRZ                        (SUBR)
LAYISO                        (SUBR)
LAYLCK                        (SUBR)
LAYMCH                        (SUBR)
LAYMRG                        (SUBR)
LAYOFF                        (SUBR)
LAYON                         (SUBR)
LAYOUTMERGE                   (SUBR)
LAYTHW                        (SUBR)
LAYULK                        (SUBR)
LAYUNISO                      (SUBR)
LAYVPI                        (SUBR)
LAYVPMODE                     (SUBR)
LAYWALK                       (SUBR)
LMAN                          (SUBR)
LMANMODE                      (SUBR)
LSP                           (USUBR)
LSPDUMP                       (SUBR)
LSPSURF                       (SUBR)
MKLTYPE                       (SUBR)
MKSHAPE                       (SUBR)
MOCORO                        (SUBR)
MOVEBAK                       (SUBR)
MPEDIT                        (SUBR)
MSTRETCH                      (SUBR)
MVSETUP                       (SUBR)
NCOPY                         (SUBR)
OVERKILL                      (SUBR)
PCXIN                         (SUBR)
PLT2DWG                       (SUBR)
PROPULATE                     (SUBR)
PSBSCALE                      (SUBR)
PSFILL                        (EXRXSUBR)                    Core
PSTSCALE                      (SUBR)
QLATTACH                      (SUBR)
QLATTACHSET                   (SUBR)
QLDETACHSET                   (SUBR)
QQUIT                         (SUBR)
REBUILD-EXPRESS-MENU          (SUBR)
REDIR                         (SUBR)
REDIRMODE                     (SUBR)
REPURLS                       (SUBR)
REVERT                        (SUBR)
RTEDIT                        (SUBR)
RTEXT                         (SUBR)
RTEXTAPP                      (SUBR)
RTUCS                         (SUBR)
SAVEALL                       (SUBR)
SHOWURLS                      (SUBR)
SHP2BLK                       (SUBR)
SSX                           (SUBR)
SUPERHATCH                    (SUBR)
SYSVDLG                       (SUBR)
TCASE                         (SUBR)
TCIRCLE                       (SUBR)
TCOUNT                        (SUBR)
TEDIT                         (SUBR)
TEXTFIT                       (SUBR)
TEXTMASK                      (SUBR)
TEXTUNMASK                    (SUBR)
TFHELP                        (SUBR)
TFRAMES                       (SUBR)
TIFFIN                        (SUBR)
TJUST                         (SUBR)
TORIENT                       (SUBR)
TREX                          (SUBR)
TSCALE                        (SUBR)
TSPACEINVADERS                (SUBR)
TUTCLEAR                      (SUBR)
TUTDEMO                       (SUBR)
TXT2MTXT                      (SUBR)
TXTEXP                        (SUBR)
VARS2SCR                      (SUBR)
VLIDE                         (SUBR)                        Core
VPSCALE                       (SUBR)
VPSYNC                        (SUBR)
XDATA                         (SUBR)
XDLIST                        (SUBR)
XLIST                         (SUBR)

Command:
Command: 'VLIDE
Command:
Command:
Command:
Command: _appload Test.fas was added to the Startup Suite.


Command:
Command:
Command: lsp

Enter an option [?/Commands/Functions/Variables/Load]: c

Enter Commands to list <*>: *

-BLOCKREPLACE                 (SUBR)
-BLOCKTOXREF                  (SUBR)
-CDORDER                      (SUBR)
-COPYTOLAYER                  (SUBR)
-LAYOUTMERGE                  (SUBR)
-LMAN                         (SUBR)
-LMANMODE                     (SUBR)
-OVERKILL                     (SUBR)
-REDIRMODE                    (SUBR)
-TCASE                        (SUBR)
-XLIST                        (SUBR)
3D                            (SUBR)
3DARRAY                       (SUBR)
ACADINFO                      (SUBR)
ACETUCS-BACK                  (SUBR)
ACETUCS-BOTTOM                (SUBR)
ACETUCS-FRONT                 (SUBR)
ACETUCS-LEFT                  (SUBR)
ACETUCS-RIGHT                 (SUBR)
ACETUCS-TOP                   (SUBR)
ADDVARS2SCR                   (SUBR)
AI_BOX                        (SUBR)
AI_CONE                       (SUBR)
AI_CUSTOM_SAFE                (SUBR)
AI_DISH                       (SUBR)
AI_DOME                       (SUBR)
AI_MESH                       (SUBR)
AI_PRODUCT_SUPPORT            (SUBR)
AI_PRODUCT_SUPPORT_SAFE       (SUBR)
AI_PYRAMID                    (SUBR)
AI_SELALL                     (SUBR)
AI_SPHERE                     (SUBR)
AI_TORUS                      (SUBR)
AI_TRAINING_SAFE              (SUBR)
AI_WEDGE                      (SUBR)
ALIASEDIT                     (SUBR)
ALIGNSPACE                    (SUBR)
ARCTEXT                       (SUBR)
ATEXT                         (SUBR)
ATTIN                         (SUBR)
ATTOUT                        (SUBR)
ATTREDEF                      (SUBR)
BCOUNT                        (SUBR)
BEXTEND                       (SUBR)
BLOCK?                        (SUBR)
BLOCKREPLACE                  (SUBR)
BLOCKTOXREF                   (SUBR)
BREAKLINE                     (SUBR)
BSCALE                        (SUBR)
BTRIM                         (SUBR)
BURST                         (SUBR)
CDORDER                       (SUBR)
CHSPACE                       (SUBR)
CHURLS                        (SUBR)
CLIPIT                        (SUBR)
CLOSEALL                      (SUBR)
COPYM                         (SUBR)
COPYTOLAYER                   (SUBR)
DATE                          (SUBR)
DDEMODES                      (SUBR)
DDGRIPS                       (SUBR)
DDRMODES                      (SUBR)
DDSELECT                      (SUBR)
DIMEX                         (SUBR)
DIMIM                         (SUBR)
DIMREASSOC                    (SUBR)
DIMSIO                        (SUBR)
EDGE                          (SUBR)
EDITTIME                      (SUBR)
ETBUG                         (SUBR)
EXOFFSET                      (SUBR)
EXPLAN                        (SUBR)
EXPRESSMENU                   (SUBR)
EXPRESSREG                    (SUBR)
EXPRESSTOOLS                  (SUBR)
EXTRIM                        (SUBR)
FASTSEL                       (SUBR)
FLATTEN                       (SUBR)
FS                            (SUBR)
FSCREEN                       (SUBR)
FSMODE                        (SUBR)
FULLSCREEN                    (SUBR)
GATTE                         (SUBR)
GETSEL                        (SUBR)
GIFIN                         (SUBR)
GOTOURL                       (SUBR)
IMAGEAPP                      (SUBR)
IMAGEEDIT                     (SUBR)
IMAGEOVERLAP                  (SUBR)
LAP                           (SUBR)
LAYCUR                        (SUBR)
LAYDEL                        (SUBR)
LAYFRZ                        (SUBR)
LAYISO                        (SUBR)
LAYLCK                        (SUBR)
LAYMCH                        (SUBR)
LAYMRG                        (SUBR)
LAYOFF                        (SUBR)
LAYON                         (SUBR)
LAYOUTMERGE                   (SUBR)
LAYTHW                        (SUBR)
LAYULK                        (SUBR)
LAYUNISO                      (SUBR)
LAYVPI                        (SUBR)
LAYVPMODE                     (SUBR)
LAYWALK                       (SUBR)
LMAN                          (SUBR)
LMANMODE                      (SUBR)
LSP                           (USUBR)
LSPDUMP                       (SUBR)
LSPSURF                       (SUBR)
MKLTYPE                       (SUBR)
MKSHAPE                       (SUBR)
MOCORO                        (SUBR)
MOVEBAK                       (SUBR)
MPEDIT                        (SUBR)
MSTRETCH                      (SUBR)
MVSETUP                       (SUBR)
NCOPY                         (SUBR)
OVERKILL                      (SUBR)
PCXIN                         (SUBR)
PLT2DWG                       (SUBR)
PROPULATE                     (SUBR)
PSBSCALE                      (SUBR)
PSFILL                        (EXRXSUBR)                    Core
PSTSCALE                      (SUBR)
QLATTACH                      (SUBR)
QLATTACHSET                   (SUBR)
QLDETACHSET                   (SUBR)
QQUIT                         (SUBR)
REBUILD-EXPRESS-MENU          (SUBR)
REDIR                         (SUBR)
REDIRMODE                     (SUBR)
REPURLS                       (SUBR)
REVERT                        (SUBR)
RTEDIT                        (SUBR)
RTEXT                         (SUBR)
RTEXTAPP                      (SUBR)
RTUCS                         (SUBR)
SAVEALL                       (SUBR)
SHOWURLS                      (SUBR)
SHP2BLK                       (SUBR)
SSX                           (SUBR)
SUPERHATCH                    (SUBR)
SYSVDLG                       (SUBR)
TCASE                         (SUBR)
TCIRCLE                       (SUBR)
TCOUNT                        (SUBR)
TEDIT                         (SUBR)
TEXTFIT                       (SUBR)
TEXTMASK                      (SUBR)
TEXTUNMASK                    (SUBR)
TFHELP                        (SUBR)
TFRAMES                       (SUBR)
TIFFIN                        (SUBR)
TJUST                         (SUBR)
TORIENT                       (SUBR)
TREX                          (SUBR)
TSCALE                        (SUBR)
TSPACEINVADERS                (SUBR)
TUTCLEAR                      (SUBR)
TUTDEMO                       (SUBR)
TXT2MTXT                      (SUBR)
TXTEXP                        (SUBR)
VARS2SCR                      (SUBR)
VLIDE                         (SUBR)                        Core
VPSCALE                       (SUBR)
VPSYNC                        (SUBR)
XDATA                         (SUBR)
XDLIST                        (SUBR)
XLIST                         (SUBR)

Kerry · « **Reply #8 on:** March 29, 2007, 10:29:41 PM »

Mine ...

Quote

Command: lsp

Enter an option [?/Commands/Functions/Variables/Load]: c

Enter Commands to list <*>: t*

T25 (SUBR)
T30 (SUBR)
T35 (SUBR)
T50 (SUBR)
T70 (SUBR)
T90 (SUBR)
TBH (SUBR)
TCASE (SUBR)
TCIRCLE (SUBR)
TCOUNT (SUBR)
TEST (SUBR)
TEXTFIT (SUBR)
TEXTMASK (SUBR)
TEXTUNMASK (SUBR)
TFHELP (SUBR)

Adesu · « **Reply #9 on:** March 29, 2007, 10:42:44 PM »

Hi Kerry,
I more interest it with your info,but in my cad allways I can not got as I looking for,I don't know what happend it.
if I load my fas file,I got this message, what is meaning

Code: [Select]

$ 
; error: bad character read (octal): 24
_$

Kerry · « **Reply #10 on:** March 29, 2007, 10:53:58 PM »

Quote from: Adesu on March 29, 2007, 10:42:44 PM

Hi Kerry,
I more interest it with your info,but in my cad allways I can not got as I looking for,I don't know what happend it.
if I load my fas file,I got this message, what is meaning
Code: [Select]
$ ; error: bad character read (octal): 24 _$

I don't know what would cause that. Have you edited the FAs/VLx file ?

but you do have extra "" in PLINE command

should be
(command "_pline" p1 p2 p3 p4 "c" )
not
(command "_pline" p1 p2 p3 p4 "c" "")

Adesu · « **Reply #11 on:** March 29, 2007, 11:20:22 PM »

You are right,thanks for your correction.

and I just tested as suggest "SomeCallMeDave", it's great "TRICK" ,look at this

Code: [Select]

Command: test
_pline
Specify start point:
Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: c
Command:
CommandLine : (c:test)[Build 20070328]
nil

This is good trick to add a text the end of fas file.

Code: [Select]

;fas4 crunch
;$;A3/28/07o7ADESU RESOURCE$#$#$#$#$
DATA you need goes HERE
Function Names --  c:Test
Or anything Else
$#$#$#$#$VRTLIB-1

News:

Author Topic: How to get code name from fas file (Read 7630 times)

Adesu

How to get code name from fas file

Kerry

Re: How to get code name from fas file

Adesu

Re: How to get code name from fas file

Kerry

Re: How to get code name from fas file

SomeCallMeDave

Re: How to get code name from fas file

Adesu

Re: How to get code name from fas file

Kerry

Re: How to get code name from fas file

Adesu

Re: How to get code name from fas file

Kerry

Re: How to get code name from fas file

Adesu

Re: How to get code name from fas file

Kerry

Re: How to get code name from fas file

Adesu

Re: How to get code name from fas file