（XD::Slide:List）幻灯库SLB列目录

marting

1. (defun XD::Slide:List (slb / data)
   
2.   (if (setq data (xd::slide:init slb))
   
3.     (mapcar 'car data)
   
4.   )
   
5. )
   

(defun XD::Slide:List (slb / data)<br />   (if (setq data (xd::slide:init slb))<br />     (mapcar 'car data)<br />   )<br /> )<br />

_$ (XD::SLIDE:LIST "d:\\acad.slb")
("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")
_$

ynhh

类似这个
CADSlide幻灯库
如能应界面管理集合
就太好了

fy1005

把函数收集起来做图库