TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: 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
(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
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
-
Add something like this to the end of the file before you compile it
(PROMPT "\n CommandLine : < MYSuperDuperProgram > [Build 20070328]\n")
(princ)
-
Hi Kerry,
My code now revised like this
(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
-
Sorry, I meant like this ..So it shows when loading ..
(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)
-
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
;fas4 crunch
;$;A3/28/07o7ADESU RESOURCE$#$#$#$#$
DATA you need goes HERE
Function Names -- c:Test
Or anything Else
$#$#$#$#$VRTLIB-1
-
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
;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
-
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
-
Here result I just check, at that list I can not find "test".
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)
-
Mine ...
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)
-
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
$
; error: bad character read (octal): 24
_$
-
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
$
; 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" "")
-
You are right,thanks for your correction.
and I just tested as suggest "SomeCallMeDave", it's great "TRICK" ,look at this
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.
;fas4 crunch
;$;A3/28/07o7ADESU RESOURCE$#$#$#$#$
DATA you need goes HERE
Function Names -- c:Test
Or anything Else
$#$#$#$#$VRTLIB-1