本帖最后由 baitang36 于 2018-11-2 09:08 编辑

先看一个小程序 gys.lsp

;改任何实体的颜色 (c)SYZ 1995.3.18

(defun c:gys ()

(setq ss (ssget))

(setq tcol (getstring

"\n输入新颜色(回车为白色,也可以改为其他颜色): "

)

)

(IF (= tcol "")

(setq tstyle "W")

)

(command "change" ss "" "p" "c" tcol "")

)

为叙述方便，程序源码一律用10进制，fas文件内容显示一律用16进制。也就是winhex的显示模式。

在AutoCAD2008下编译成fas文件，内容如下：

Offset         0   1   2   3   4   5   6  7    8   9   A   B  C   D  E  F

00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D

00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!

00000020   0D 0A 31 32 31 0D 0A 31  34 20 24 14 00 00 00 00     121  14 $

00000030   35 00 0D 00 03 06 0C 00  09 0B 00 35 01 0A 00 03   5          5

00000040   06 09 00 03 09 00 09 08  00 35 02 07 00 03 67 0B            5    g

00000050   00 00 00 09 06 00 06 05  00 57 00 00 00 00 09 04            W

00000060   00 51 01 03 00 01 00 0A  03 0C 00 51 01 03 00 01    Q         Q

00000070   00 0A 09 08 00 51 01 03  00 01 00 0A 09 02 00 51        Q         Q

00000080   01 03 00 01 00 0A 09 01  00 51 01 03 00 01 00 0A            Q

00000090   03 09 00 51 01 03 00 01  00 0A 09 08 00 51 01 03      Q         Q

000000A0   00 01 00 16 24 0D 0A 32  35 30 20 35 20 24 32 E2       $  250 5 $2?

000000B0   25 F1 1E D6 E4 BE 6B 1B  64 06 12 11 62 2F 3C 46   %?咒緆 d   b/

000000C0   58 4C 4F 4F 55 9D 40 96  4A F0 1E BF A7 B6 0D 68   XLOOU @朖?咖?h

000000D0   0E 07 12 46 15 00 11 07  1F 0D 01 50 31 CA 5F C9      F       P1蔩?

000000E0   1D F1 1E B1 E6 8C 4B 31  3E 06 12 37 42 22 75 74    ?辨孠1>  7B"ut

000000F0   36 6E 66 06 31 F8 73 E2  24 F6 1E 87 8C ED 24 56   6nf 1鴖??噷?V

00000100   38 5C 46 14 40 1A 5D 42  1B 0D 5E 63 31 F9 26 B4   8\F @ ]B  ^c1??

00000110   7F CD 1E E4 B1 8D 4A 31  5D 5C 46 04 5B 0F 11 40    ?浔 J1]\F [  @

00000120   5E 59 58 36 63 B1 68 A4  24 F0 4B E5 E4 A3 4A 3B   ^YX6c県?餕邃;

00000130   97 E3 DA AC C4 81 C0 D2  D2 A6 23 D9 E9 4B 93 2D   椼诂?酪姚#匍K?

00000140   8E 40 C9 2D 4F A0 98 83  E2 CE C0 93 AC 87 DF AD   嶡?O牁冣卫摤囘?

00000150   DD E9 C0 99 E0 2D EF 48  0D CA 22 B3 DA AC 11 62   蓍罊?颒 ?弛?b

00000160   0E 07 41 14 53 06 45 07  1B 51 0B 62 72 F8 26 ED     A S E  Q br??

00000170   24 FA 42 E4 E4 BE 4A 6A  1E 3D 55 1E 47 43 11 3D   $鶥滗綣j =U GC =

00000180   1A 4E 0F 62 30 F8 3A F7  25 F0 1E E4 ED 8F 4A 3B    N b0???漤 J;

00000190   0A 07 12 47 14 4A 15 07  1D 0F 0B 6B 33 F8 13 E2      G J     k3??

000001A0   25 F0 1F EE ED 8E 4A 27  18 C3 E5 06 22 D2 CC 28   %?铐嶫' 缅 "姨(

000001B0   CC 40 0A 3B 66 61 73 34  20 63 72 75 6E 63 68 0A   藹 ;fas4 crunch

000001C0   3B 24 3B 41 39 2F 33 2F  31 38                              ;$;A9/3/18

经过测试，注释部分对编译后的文件无任何影响，因此编译后注释会丢失。

00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D

00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!

这两行是fas文件的文件头，任何程序编译的fas文件都不变，可以作为判断是否为fas文件

的依据。

00000020   0D 0A 31 32 31 0D 0A 31  34 20 24 14 00 00 00 00     121  14 $

这一行有两个数字，121 和14，有些资料说是121是第一段的长度，14是字符串的个数。

表示从地址 2B开始到地址A4,共有121个字节。

14 00 00 00 00

00000030   35 00 0D 00 03 06 0C 00  09 0B 00 35 01 0A 00 03   5          5

00000040   06 09 00 03 09 00 09 08  00 35 02 07 00 03 67 0B            5    g

00000050   00 00 00 09 06 00 06 05  00 57 00 00 00 00 09 04