看到各位在求的擎天工具箱

xudongchu

谢谢分享！

sachindkini

谢谢分享....

linzenghuo

p-3-ianlcc 发表于 2023-5-10 12:57
请教一下，为什麽我里面的文件显示的都是乱码呢？

解密后的一部分代码:

2. ;表格调整程序.
   
3. (defun c:bgad(/ ss)
   
4.   (setvar "cmdecho" 0)
   
5.   (defun *error* (msg)
   
6.     (princ "Good Luck!")
   
7.     (prin1)
   
8.     )
   
9.   (prompt "\n****** Designer: WenQingDong ******\n本程序用于调整简单横竖表格，注：表格内文字必须是居中对齐的多行文本，用于调整由"bg"和"bg1"命令生成的表格效果最好.")
   
10.   (setq ss nil)
    
11.   (princ "\n请框选表格和表格的标题，请勿选中表格以外的水平和竖直线条:")
    
12.   (setq ss (ssget))                               ;选取对象加入选择集.
    
13.   (if (/= ss nil) (bgad_fc))
    
14.   (prin1)
    
15.   )
    
16. 
    
17. (defun bgad_fc(/ n n_line n_line_h en endata os_mode)
    
18.   (setq line_list '())
    
19.   (setq text_list '())
    
20.   (setq line_list_h '())
    
21.   (setq n 0 n_line 0 n_line_h 0)                  ;定义计数器变量.
    
22.   (repeat (sslength ss)                           ;以选择集中的对象个数建立循环.
    
23.     (setq en (ssname ss n))                       ;获取第n个对象的图元名.
    
24.     (setq endata (entget en))                     ;获取第n个对象的联合属性列表.
    
25.     (cond ((= (cdr (assoc 0 endata)) "LINE")
    
26.            (progn
    
27.              (if (< (abs (- (cadr (assoc 10 endata)) (cadr (assoc 11 endata)))) 0.0001)
    
28.                (progn
    
29.                  (setq line_list (cons (list n_line en) line_list))
    
30.                  (setq n_line (1+ n_line))
    
31.                  )
    
32.                )
    
33.              (if (< (abs (- (caddr (assoc 10 endata)) (caddr (assoc 11 endata)))) 0.0001)
    
34.                (progn
    
35.                  (setq line_list_h (cons (list n_line_h en) line_list_h))
    
36.                  (setq n_line_h (1+ n_line_h))
    
37.                  )
    
38.                )
    
39.              )
    
40.            )
    
41.           ((= (cdr (assoc 0 endata)) "MTEXT")
    
42.            (setq text_list (cons en text_list))
    
43.            )
    
44.           )
    
45.     (setq n (1+ n))
    
46.     )
    
47.   (setq os_mode (getvar "osmode"))
    
48.   (setvar "osmode" 0)
    
49.   (if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))
    
50.     (progn
    
51.       (setq line_list (reverse line_list))
    
52.       (setq line_list_h (reverse line_list_h))
    
53.       (bgad_line)
    
54.       (bgad_line1)
    
55.       (bgad_text_class)
    
56.       (setq text_height (cdr (assoc 40 (entget (nth 0 text_list)))))
    
57.       )
    
58.     )
    
59.   (if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))
    
60.     (progn
    
61.       (bgad_tl)
    
62.       (bgad_hline)
    
63.       (biaoti_txt)
    
64.       (bgad_tl1)
    
65.       (bgad_hline1)
    
66.       )
    
67.     )
    
68.   (setvar "osmode" os_mode)
    
69.   )
    

;表格调整程序.<br /> (defun c:bgad(/ ss)<br />   (setvar "cmdecho" 0)<br />   (defun *error* (msg)<br />     (princ "Good Luck!")<br />     (prin1)<br />     )<br />   (prompt "\n****** Designer: WenQingDong ******\n本程序用于调整简单横竖表格，注：表格内文字必须是居中对齐的多行文本，用于调整由"bg"和"bg1"命令生成的表格效果最好.")<br />   (setq ss nil)<br />   (princ "\n请框选表格和表格的标题，请勿选中表格以外的水平和竖直线条:")<br />   (setq ss (ssget))                               ;选取对象加入选择集.<br />   (if (/= ss nil) (bgad_fc))<br />   (prin1)<br />   )<br /> <br /> (defun bgad_fc(/ n n_line n_line_h en endata os_mode)<br />   (setq line_list '())<br />   (setq text_list '())<br />   (setq line_list_h '())<br />   (setq n 0 n_line 0 n_line_h 0)                  ;定义计数器变量.<br />   (repeat (sslength ss)                           ;以选择集中的对象个数建立循环.<br />     (setq en (ssname ss n))                       ;获取第n个对象的图元名.<br />     (setq endata (entget en))                     ;获取第n个对象的联合属性列表.<br />     (cond ((= (cdr (assoc 0 endata)) "LINE")<br />            (progn<br />              (if (< (abs (- (cadr (assoc 10 endata)) (cadr (assoc 11 endata)))) 0.0001)<br />                (progn<br />                  (setq line_list (cons (list n_line en) line_list))<br />                  (setq n_line (1+ n_line))<br />                  )<br />                )<br />              (if (< (abs (- (caddr (assoc 10 endata)) (caddr (assoc 11 endata)))) 0.0001)<br />                (progn<br />                  (setq line_list_h (cons (list n_line_h en) line_list_h))<br />                  (setq n_line_h (1+ n_line_h))<br />                  )<br />                )<br />              )<br />            )<br />           ((= (cdr (assoc 0 endata)) "MTEXT")<br />            (setq text_list (cons en text_list))<br />            )<br />           )<br />     (setq n (1+ n))<br />     )<br />   (setq os_mode (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))<br />     (progn<br />       (setq line_list (reverse line_list))<br />       (setq line_list_h (reverse line_list_h))<br />       (bgad_line)<br />       (bgad_line1)<br />       (bgad_text_class)<br />       (setq text_height (cdr (assoc 40 (entget (nth 0 text_list)))))<br />       )<br />     )<br />   (if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))<br />     (progn<br />       (bgad_tl)<br />       (bgad_hline)<br />       (biaoti_txt)<br />       (bgad_tl1)<br />       (bgad_hline1)<br />       )<br />     )<br />   (setvar "osmode" os_mode)<br />   )<br />

:

p-3-ianlcc

linzenghuo 发表于 2023-5-12 09:03
解密后的一部分代码:
:

谢谢你分享！
既然作者不愿意分享源码、加密源码，那就算了
其实我只是想要把里面的简体字改成繁体字，好让可以在繁体系统上使用

炫色ペ水域の

为什么我的都装不了，CAD2010

gzxl

是的，很牛逼的插件，不止各位在求，十几亿的人也在求。

lijunfa12345

看看，   谢谢

757292550

谢谢楼主分享