deyuping 发表于 2023-5-10 11:09:57

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

还是很早跟随葛二一位大神分享的，收藏了十好几年，可惜作者没更新了，很好用的小工具。

安装方法：直接安装，选CAD版本安装目录就可以用，目前自用win10 2016CAD完美适配

linzenghuo 发表于 2023-5-12 09:03:44

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

解密后的一部分代码:
;表格调整程序.
(defun c:bgad(/ ss)
(setvar "cmdecho" 0)
(defun *error* (msg)
    (princ "Good Luck!")
    (prin1)
    )
(prompt "\n****** Designer: WenQingDong ******\n本程序用于调整简单横竖表格，注：表格内文字必须是居中对齐的多行文本，用于调整由\"bg\"和\"bg1\"命令生成的表格效果最好.")
(setq ss nil)
(princ "\n请框选表格和表格的标题，请勿选中表格以外的水平和竖直线条:")
(setq ss (ssget))                               ;选取对象加入选择集.
(if (/= ss nil) (bgad_fc))
(prin1)
)

(defun bgad_fc(/ n n_line n_line_h en endata os_mode)
(setq line_list '())
(setq text_list '())
(setq line_list_h '())
(setq n 0 n_line 0 n_line_h 0)                  ;定义计数器变量.
(repeat (sslength ss)                           ;以选择集中的对象个数建立循环.
    (setq en (ssname ss n))                     ;获取第n个对象的图元名.
    (setq endata (entget en))                     ;获取第n个对象的联合属性列表.
    (cond ((= (cdr (assoc 0 endata)) "LINE")
           (progn
             (if (< (abs (- (cadr (assoc 10 endata)) (cadr (assoc 11 endata)))) 0.0001)
             (progn
               (setq line_list (cons (list n_line en) line_list))
               (setq n_line (1+ n_line))
               )
             )
             (if (< (abs (- (caddr (assoc 10 endata)) (caddr (assoc 11 endata)))) 0.0001)
             (progn
               (setq line_list_h (cons (list n_line_h en) line_list_h))
               (setq n_line_h (1+ n_line_h))
               )
             )
             )
           )
          ((= (cdr (assoc 0 endata)) "MTEXT")
           (setq text_list (cons en text_list))
           )
          )
    (setq n (1+ n))
    )
(setq os_mode (getvar "osmode"))
(setvar "osmode" 0)
(if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))
    (progn
      (setq line_list (reverse line_list))
      (setq line_list_h (reverse line_list_h))
      (bgad_line)
      (bgad_line1)
      (bgad_text_class)
      (setq text_height (cdr (assoc 40 (entget (nth 0 text_list)))))
      )
    )
(if (and (/= line_list nil) (/= line_list_h nil) (/= text_list nil))
    (progn
      (bgad_tl)
      (bgad_hline)
      (biaoti_txt)
      (bgad_tl1)
      (bgad_hline1)
      )
    )
(setvar "osmode" os_mode)
)
:

p-3-ianlcc 发表于 2023-5-12 09:46:03

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

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

p-3-ianlcc 发表于 2023-5-10 16:28:11

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

喔喔！了解～
想说怎麽都加密了，都给lsp还加密…晕到了

deyuping 发表于 2023-5-10 11:13:02

贴图一张，请参照

hzyhzjjzh 发表于 2023-5-10 12:54:46

谢谢楼主分享！{:1_1:}

p-3-ianlcc 发表于 2023-5-10 12:57:26

请教一下，为什麽我里面的文件显示的都是乱码呢？

cghdy 发表于 2023-5-10 14:26:56

p-3-ianlcc2023-5-10 12:57


lsp
{:1_1:}

lxl217114 发表于 2023-5-10 16:28:14

本帖最后由 lxl217114 于 2023-5-10 16:30 编辑

今天第一次看到这个名字，并且搜索了一下。


结果如下：
大概12-13年前，两年间有人提过2次。



e2002 发表于 2023-5-10 17:25:05

被WindowsDefender拦截了，说有病毒。

panliang9 发表于 2023-5-11 08:32:17

谢谢楼主分享。

Noangler 发表于 2023-5-11 09:40:36

虽然用不到，还是谢谢分享！
页: [1] 2
查看完整版本: 看到各位在求的擎天工具箱