[分享]：★★★超强工具集(包含几十个工具)，免币下载（2005.3.15更新）

kfhhwj

是个不错的论坛。。

MingSoft

工具图层工具说明： 关闭图层和冻结图层和et扩展工具类似
但再要打开曾经关闭的图层et工具就难做了
所以这里做了一个打开图层的命令，记录关闭图层的历史，并可选择打开，
命令: lu  恢复显示层
最近被隐藏的层如下: 1.<图层2> 2.<BZ> 3.<L05> 4.<图层4> 5.<0>
□请输入要显示任何层名或者序列号<1 >:
这里既可输入需要来选择 ，也可输入其他图层名称。

ss1025

好像还不错啊。谢谢楼主了。

sun3021970

多谢  好用的很  谢谢了

yannanfei

看样子，不错
希望尽快发布适合2004，2005版本使用的

MingSoft

实在抱歉，出于工具原因。短期内2004版还无法发布。

yzh0524

我也去看看。

jjss

论坛是新的吧？我希望能够下载

xq_fan

去看看 ，谢谢

MingSoft

给个根据公式画曲线的例子,利用了cal
加载了mingsoftTools可以运行通过.

2. 
   
3. (defun  c:DrawCurve(   /  x y z deltx  EXPRESSIONS PT XBEGIN XEND )
   
4. 
   
5.     (if (or (null cal) (/= 'EXRXSUBR (type cal)))  ;;; 加载计算器模块，注意意外问题
   
6.      (arxload "geomcal.arx")
   
7.     )
   
8.   ;;"y=10*sin(x)"
   
9.   (setq expressions "100.0*sin(x)+x")  ;; 警告 x为角度，单位为 度
   
10.     ;;(setq expressions "100.0*TANG(x)+100*sin(x)")
    
11.   (setq xBegin  0  xEnd 2000.0)           ;;; 注意一个数据类型的问题！ 这里如果给的数字都是整数，会导致deltx＝0。
    
12.   (setq deltx  (/ (- xEnd xBegin) 1000.0)) ;; 精度处理
    
13.   (setq x xBegin)
    
14.   (if (cal expressions)
    
15.     (progn
    
16.       
    
17.       (setq plist nil)
    
18.       (while (<= x xEnd)
    
19.          (SETQ Y (cal expressions))
    
20.         (IF Y
    
21.           (PROGN
    
22.             (setq pt (list 0 x Y ));;(print x)(princ "*")(princ deltx)(princ "*") (princ  (cal expressions))
    
23.             (setq plist  (cons  pt plist))
    
24.           )
    
25.           (PROGN
    
26.                (setq plist (REVERSE plist))
    
27.                ( dd_createlwpline  plist (GETVAR "CLAYER"))
    
28.                (SETQ plist NIL)
    
29. 
    
30.             )
    
31.           )
    
32.          (setq x (+ x deltx))
    
33.         )
    
34.        (setq plist (REVERSE plist))
    
35.        ( dd_createlwpline  plist (GETVAR "CLAYER"))
    
36.    
    
37.       )
    
38.     )
    
39. 
    
40. (princ)
    
41. 
    
42. )
    

<br /> (defun  c:DrawCurve(   /  x y z deltx  EXPRESSIONS PT XBEGIN XEND )<br /> <br />     (if (or (null cal) (/= 'EXRXSUBR (type cal)))  ;;; 加载计算器模块，注意意外问题<br />      (arxload "geomcal.arx")<br />     )<br />   ;;"y=10*sin(x)"<br />   (setq expressions "100.0*sin(x)+x")  ;; 警告 x为角度，单位为 度<br />     ;;(setq expressions "100.0*TANG(x)+100*sin(x)")<br />   (setq xBegin  0  xEnd 2000.0)           ;;; 注意一个数据类型的问题！ 这里如果给的数字都是整数，会导致deltx＝0。<br />   (setq deltx  (/ (- xEnd xBegin) 1000.0)) ;; 精度处理<br />   (setq x xBegin)<br />   (if (cal expressions)<br />     (progn<br />        <br />       (setq plist nil)<br />       (while (<= x xEnd)<br />          (SETQ Y (cal expressions))<br />         (IF Y<br />           (PROGN<br />             (setq pt (list 0 x Y ));;(print x)(princ "*")(princ deltx)(princ "*") (princ  (cal expressions))<br />             (setq plist  (cons  pt plist))<br />           )<br />           (PROGN<br />                (setq plist (REVERSE plist))<br />                ( dd_createlwpline  plist (GETVAR "CLAYER"))<br />                (SETQ plist NIL)<br /> <br />             )<br />           )<br />          (setq x (+ x deltx))<br />         )<br />        (setq plist (REVERSE plist))<br />        ( dd_createlwpline  plist (GETVAR "CLAYER"))<br />     <br />       )<br />     )<br /> <br /> (princ)<br /> <br /> )<br />

chenyonggood

我觉得能自动计算的表格功能是很有用的，其他的暂时还没用上！

cq_qg

用过了，确实不错！怎么不能用在2005下啊？什么时候开发出来啊！那个表格功能很好，不过输入公式太麻烦了，要是能像EXCEL那样可以拖拽就好了！

ccddxx

马上就去看看，先谢谢了！

FANQINWEI

能结合CASS5.1用吗？

MingSoft

新增任意文字修改的工具，支持多种形式的文字修改标注，文字，块内文字，块属性，属性定义，块内属性定义等 命令edd ， 菜单为超级文本修改。 （2005.3.15）