感谢楼主分享
好象还是1.2.3版本的,不能用,我以前有个,不知道怎么了,现在这个装了那个也就不能用了
老大软件使用时间到今年五月一号到期了
老大更新一下
;;;------------------------2014年5月5日更新
明经通道下载地址：http://bbs.mjtd.com/thread-83390-1-1.html晓东家园下载地址：http://bbs.xdcad.net/thread-667553-1-1.html
1、紧急修改，原版本限制日期为2014年5月1日修改为2015年5月1日。
2、新增对ACAD2012~2015（32位和64位系统）的支持。
3、改进图纸再造程序MakeEntMake，支持嵌套块，该命令将产生一个以图纸名称命名的线型文件在第1个系统支持搜索目录内，\\***\\<图名>.Lin；并产生一个以<图名>.lsp文件在
图纸所在文件夹内；请新建空白图纸，并加载<图名>.lsp，然后执行Emake再造图纸。
该程序制作的新图，不再受教育版及去印戳后被提示非AutoCAD产品制作的困恼。
操作视频见后附跟帖。
4、改进读取文本流函数SS:READBINARY,具体用法见后序跟帖。
5、新增字体文件字形索引编号及索引形名称查看函数，SS:Shx:GetIndexName 。
6、本程序加载了AutoCAD自带的ARX程序Geom3D.arx和GeomCAL.arx文件，即可下列使用系统函数，方便编程：
(cal "-0.2+5^3/2*sin(1.4)")
(align <选择集/对象> <第1个源点> <第1个目标点> <第2个源点> <第2个目标点> [指定第3个源点+第3个目标点或 <继续, [是否基于对齐点缩放对象？[是(Y)/否(N)] <否>] >])
(3dalign <选择集/对象> [复制C] <第1个源点,基点> <第2个源点> <第3个源点> <第1个目标点><第2个目标点> <第3个目标点>)
(mirror3d <选择集/对象> <[对象(O)/最近的(L)/Z 轴(Z)/视图(V)/XY 平面(XY)/YZ 平面(YZ)/ZX 平面(ZX)/三点(3)]<三点>]> )
(rotate3d <选择集/对象> <[对象(O)/最近的(L)/视图(V)/x 轴(X)/y 轴(Y)/z 轴(Z)/两点(2)]>)
;;;------------------------------------------------------------------------------;;;
;;; SS:ReadBinaryStream V2.0 ;;;
;;;------------------------------------------------------------------------------;;;
;;
;;function : Read binarystream from file(full path) by given charset , return a List or a String .
;;
;;Args:
;;file -- file name with full path , The file size must be less than amount of memory can be used for the current AUTOCAD .
;;
;;char -- charset name , it must register in your system , see the Windows registry sub-key in \\HKEY_CLASSES_ROOT\\MIME\\Database\\Charset
;; such as "unicode","ascii","us-ascii","chinese","GB2132", etc.
;; nil & "Unicode" , allways return a list like by vlisp function Read-char .
;; Oterwise , the char will be used to convert the stream into text string .
;;
;;pos-- position for start read byte , first start pos is 0 , second is 1,
;; for Bigfont-Char it maybe use two bytes , if so the second text start pos is 2 , 4 ... 2n .
;;len-- Numbits for read or readtext , if nil or beyond the size , will be set to suit Maximum value .
;;
;;Returns -- if char is nil or "Unicode" , returns a ascii code list ;after Acad2008 , The system expansion Charset beyond the 256 limit ,
;; so it may return number like 18760 ,for this case , you can use (rem 18760 256) to get the ascii code like old version .
;; if char is not nil and "Unicode" , and it's supported in your window system , returns a string .
;;
;;by GSLS(SS) 10.23-2011 ~
;;--------------------------------------------------------------------------;;
;; Refrence :
;; adodb.stream from http://baike.baidu.com/link?url=HkCWIQo1pSmTMN76tTipNkSUR5O_s7_8ctpH_XXuo06y2qhd-TCAkCCuxDOtNi55zA5V9eTPO4fobMbeYDNjHK
;; Microsoft Data Access Components
;; from http://en.wikipedia.org/wiki/Microsoft_Data_Access_Components
;; Nonsmall's from http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78782&extra=page%3D2%26filter%3Dtypeid%26typeid%3D110&page=1
;; Michale's from http://www.theswamp.org/index.php?topic=17465.0
;; LeeMac's from http://www.theswamp.org/index.php?topic=39814.0
;; Highflybird's from http://www.theswamp.org/index.php?topic=36656.0
;; this vbs can't run in my used case : ACAD2011 Win7 64Bit.
;;Thank you all a lot !
;;--------------------------------------------------------------------------;;
;; Method of Adodb.Stream object . ;;
;; Open ,Close ,Write ,WriteText , Read ,ReadText, ;;
;; Flush , CopyTo , Cancel , SkipLine, SetEOS ;;
;; Property of Adodb.Stream object . ;;
;; LineSeparator, SaveToFile, LoadFromFile , Charset , ;;
;; Size ,Position , Type , State , Mode , EOS , ;;
;;--------------------------------------------------------------------------;;
;; e.g.(SS:ReadBinaryStream (findfile "gslsshp.shx")"us-ascii"2332) -->
;; "\032\010\000\010\000\001\000\010\000\022\000HELL\000\r\031^d\035z6q(`\000\000\000EOF"
;; (SS:ReadBinaryStream (findfile "gslsshp.shx") "Unicode" 23 4)--> '(18714 18824 18688 18824)
;; (SS:ReadBinaryStream (findfile "gslsshp.shx") nil 23 4)--> '(18714 18824 18688 18824)
图纸再造程序动画
支持楼主了
不错，功能很多，就是还得自己定义，怪麻烦的
强烈支持，谢谢分享！