如何用Lisp实现往幻灯片库里增加幻灯片

q3_2006

这个有现成程序..但想知道LISP如何实现呢..增加或删除一些幻灯片到已有幻灯片库里..

/db_自贡黄明儒_

看到一个高手是这样处理的，先将库文字转成二进制，然后。。。。

kqqt6236

厉害，二进制打包。

marting

1、首先要了解幻灯库的格式
2、有读写二进制文件的方法

下面是用晓东通用LISP的函数实现的读取目录的代码，加载 通用LISP函数库 2018.04.08后，这些函数都有了，纯LISP的实现。

1. (defun c:tt ()
   
2.   (if (setq fn (findfile "acad.slb"))
   
3.     (progn
   
4.       (setq header (xd::file:bin2str (xd::file:readbinary fn 0 25)))
   
5.       (if (= header "AutoCAD Slide Library 1.0")
   
6.         (progn
   
7.           (setq start 32)
   
8.           (princ "\n")
   
9.           (while
   
10.             (/= ""
    
11.                 (setq name (xd::file:bin2str (xd::file:readbinary fn start 32)))
    
12.             )
    
13.              (prin1 name)
    
14.              (princ "  ")
    
15.              (setq start (+ start 32 4))
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. 
    

(defun c:tt ()<br />   (if (setq fn (findfile "acad.slb"))<br />     (progn<br />       (setq header (xd::file:bin2str (xd::file:readbinary fn 0 25)))<br />       (if (= header "AutoCAD Slide Library 1.0")<br />         (progn<br />           (setq start 32)<br />           (princ "\n")<br />           (while<br />             (/= ""<br />                 (setq name (xd::file:bin2str (xd::file:readbinary fn start 32)))<br />             )<br />              (prin1 name)<br />              (princ "  ")<br />              (setq start (+ start 32 4))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

命令: tt

"ZIGZAG"  "WEDGEPIC"  "WEDGE"  "VPORT-4R"  "VPORT-4L"  "VPORT-4"  "VPORT-3V"  
"VPORT-3R"  "VPORT-3L"  "VPORT-3H"  "VPORT-3B"  "VPORT-3A"  "VPORT-2V"  
"VPORT-2H"  "VPORT-1"  "VP-UR"  "VP-UL"  "VP-U"  "VP-RIGHT"  "VP-PLAN"  "VP-LR"
"VP-LO"  "VP-LL"  "VP-LEFT"  "U-WORLD"  "U-TOP"  "U-RIGHT"  "U-PREV"  "U-LEFT"
"U-FRONT"  "U-CVIEW"  "U-BOTTOM"  "U-BACK"  "TRIANG"  "TRANS"  "TORUS"  
"TORPIC"  "SWAMP"  "STEEL"  "STARS"  "SQUARE"  "SPHERPIC"  "SPHERE"  "SOLID"  
"SACNCR"  "PYRAMID"  "PT100"  "PT99"  "PT98"  "PT97"  "PT96"  "PT68"  "PT67"  
"PT66"  "PT65"  "PT64"  "PT36"  "PT35"  "PT34"  "PT33"  "PT32"  "PT4"  "PT3"  
"PT2"  "PT1"  "PT0"  "PM-QUAD"  "PM-CUBIC"  "PM-BEZR"  "PLASTI"  "PLAST"  
"PL-QUAD"  "PL-CUBIC"  "NET3"  "NET"  "MUDST"  "MESH"  "MEDIT_WA"  "MEDIT_OT"  
"MEDIT_OC"  "MEDIT_MT"  "MEDIT_MC"  "MEDIT_DV"  "MEDIT_CT"  "MEDIT_CS"  
"MEDIT_CJ"  "MEDIT_CC"  "MEDIT_CA"  "MEDIT_AV"  "LINE"  "INSUL"  "HOUND"  
"HONEY"  "HEX"  "H-OUTER"  "H-NORMAL"  "H-IGNORE"  "GRATE"  "GRASS"  "GDTU"  
"GDTT"  "GDTS"  "GDTR"  "GDTP"  "GDTN"  "GDTM"  "GDTL"  "GDTK"  "GDTJ"  "GDTI"  
"GDTH"  "GDTG"  "GDTF"  "GDTE"  "GDTD"  "GDTC"  "GDTB"  "GDTA"  "FLEX"  
"ESCHER"  "EARTH"  "DOTS"  "DOME"  "DOLMIT"  "DISH"  "DDVP3D"  "DASH"  "CYLPIC"
"CROSS"  "CORK"  "CONEPIC"  "CONE"  "CLAY"  "CHROMA"  "BRSTONE"  "BRICK"  
"BRASS"  "BOXPIC"  "BOX3D"  "BOX"  "AR-SAND"  "AR-RSHKE"  "AR-RROOF"  
"AR-PARQ1"  "AR-HBONE"  "AR-CONC"  "AR-BRSTD"  "AR-BRELM"  "AR-B88"  "AR-B816C"
"AR-B816"  "ANSI38"  "ANSI37"  "ANSI36"  "ANSI35"  "ANSI34"  "ANSI33"  
"ANSI32"  "ANSI31"  "ANGLE"  "AILOGO"  "15W100"  "14W100"  "13W100"  "12W100"  
"11W100"  "10W100"  "09W100"  "08W100"  "07W100"  "06W100"  "05W100"  "04W100"  
"03W100"  "02W100"  "%%BLANK"  "GLASS"  "WOOD"  "GROUND"

q3_2006

marting 发表于 2018-4-7 04:31
1、首先要了解幻灯库的格式
2、有读写二进制文件的方法

真早呀..谢谢,晓东API果然厉害...

yoyoho

感谢分享程序！！！！

q3_2006

yoyoho 发表于 2018-4-7 09:24
感谢分享程序！！！！

这是 程序..用起来也方便,分享给大家..就是想知道LISP怎么写..

marting

q3_2006 发表于 2018-4-7 05:51
真早呀..谢谢,晓东API果然厉害...

帮你写了一堆SLIDE的处理函数，

添加幻灯片的，见： http://bbs.xdcad.net/thread-715364-1-1.html

所有的SLIDE支持的函数差不多都有了，剩下就是根据幻灯库的格式，你可以自己试试写下 改名，删除等函数，
关于幻灯库格式的，可以研究讨论哈。

q3_2006

marting 发表于 2018-4-7 20:22
帮你写了一堆SLIDE的处理函数，

添加幻灯片的，见： http://bbs.xdcad.net/thread-715364-1-1.html

亲一下..不能用表情..晓东有BUG..大师这么热情..能不能加下QQ哈..想给个红包呢..