[分享]高山流水结构工具箱V1.5.0

墨染流年灬

感谢楼主分享

lan_sky

好象还是1.2.3版本的,不能用,我以前有个,不知道怎么了,现在这个装了那个也就不能用了

红左手

老大软件使用时间到今年五月一号到期了

南华人

老大更新一下

chlh_jd

;;;------------------------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)]>)

chlh_jd

1. 
   
2. ;;;------------------------------------------------------------------------------;;;
   
3. ;;;                     SS:ReadBinaryStream      V2.0                            ;;;
   
4. ;;;------------------------------------------------------------------------------;;;
   
5. ;;  
   
6. ;;  function : Read binarystream from file(full path) by given charset , return a List or a String .
   
7. ;;  
   
8. ;;  Args:
   
9. ;;  file -- file name with full path , The file size must be less than amount of memory can be used for the current AUTOCAD .
   
10. ;;           
    
11. ;;  char -- charset name , it must register in your system , see the Windows registry sub-key in [url=file://\\HKEY_CLASSES_ROOT\\MIME\\Database\\Charset]\\HKEY_CLASSES_ROOT\\MIME\\Database\\Charset[/url]
    
12. ;;           such as "unicode","ascii","us-ascii","chinese","GB2132", etc.
    
13. ;;          nil & "Unicode" , allways return a list like by vlisp function Read-char .
    
14. ;;          Oterwise , the char will be used to convert the stream into text string .
    
15. ;;           
    
16. ;;  pos  -- position for start read byte , first start pos is 0 , second is 1,
    
17. ;;                   for Bigfont-Char it maybe use two bytes , if so the second text start pos is 2 , 4 ... 2n .
    
18. ;;  len  -- Numbits for read or readtext , if nil or beyond the size , will be set to suit Maximum value .
    
19. ;;  
    
20. ;;  Returns -- if char is nil or "Unicode" , returns a ascii code list ;after Acad2008 , The system expansion Charset beyond the 256 limit ,
    
21. ;;                      so it may return number like 18760 ,for this case , you can use (rem 18760 256) to get the ascii code like old version .
    
22. ;;             if char is not nil and "Unicode" , and it's supported in your window system , returns a string .
    
23. ;;  
    
24. ;;  by GSLS(SS) 10.23-2011 ~
    
25. ;;--------------------------------------------------------------------------;;
    
26. ;; Refrence :
    
27. ;;   adodb.stream      from   [url=http://baike.baidu.com/link?url=HkCWIQo1pSmTMN76tTipNkSUR5O_s7_8ctpH_XXuo06y2qhd-TCAkCCuxDOtNi55zA5V9eTPO4fobMbeYDNjHK]http://baike.baidu.com/link?url=HkCWIQo1pSmTMN76tTipNkSUR5O_s7_8ctpH_XXuo06y2qhd-TCAkCCuxDOtNi55zA5V9eTPO4fobMbeYDNjHK[/url]
    
28. ;;   Microsoft Data Access Components
    
29. ;;                     from   [url=http://en.wikipedia.org/wiki/Microsoft_Data_Access_Components]http://en.wikipedia.org/wiki/Microsoft_Data_Access_Components[/url]
    
30. ;;   Nonsmall's        from   [url=http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78782&extra=page%3D2%26filter%3Dtypeid%26typeid%3D110&page=1]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78782&extra=page%3D2%26filter%3Dtypeid%26typeid%3D110&page=1[/url]
    
31. ;;   Michale's         from   [url=http://www.theswamp.org/index.php?topic=17465.0]http://www.theswamp.org/index.php?topic=17465.0[/url]
    
32. ;;   LeeMac's          from   [url=http://www.theswamp.org/index.php?topic=39814.0]http://www.theswamp.org/index.php?topic=39814.0[/url]
    
33. ;;   Highflybird's     from   [url=http://www.theswamp.org/index.php?topic=36656.0]http://www.theswamp.org/index.php?topic=36656.0[/url]
    
34. ;;                            this vbs can't run in my used case : ACAD2011 Win7 64Bit.
    
35. ;;  Thank you all a lot !                                                   
    
36. ;;--------------------------------------------------------------------------;;
    
37. ;; Method of Adodb.Stream object .                                          ;;
    
38. ;;    Open ,  Close ,  Write ,  WriteText , Read ,  ReadText,               ;;
    
39. ;;    Flush , CopyTo , Cancel , SkipLine,   SetEOS                          ;;
    
40. ;; Property of Adodb.Stream object .                                        ;;
    
41. ;;     LineSeparator,   SaveToFile, LoadFromFile , Charset ,                ;;
    
42. ;;     Size ,  Position , Type , State , Mode , EOS ,                       ;;
    
43. ;;--------------------------------------------------------------------------;;
    
44. ;; e.g.  (SS:ReadBinaryStream (findfile "gslsshp.shx")  "us-ascii"  23  32) -->
    
45. ;;        "\032\010\000\010\000\001\000\010\000\022\000HELL\000\r\031^d\035z6q(`\000\000\000EOF"
    
46. ;;       (SS:ReadBinaryStream (findfile "gslsshp.shx") "Unicode" 23 4)--> '(18714 18824 18688 18824)
    
47. ;;       (SS:ReadBinaryStream (findfile "gslsshp.shx") nil 23 4)--> '(18714 18824 18688 18824)
    

复制代码

chlh_jd

图纸再造程序动画

用户3766035971

支持楼主了

enn09

不错，功能很多，就是还得自己定义，怪麻烦的

fdb181

强烈支持，谢谢分享！