[分享]：晓东工具箱 0.27 版新增工具介绍见内...

XDSoft · 发表于 2002-11-17 00:16:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

现在可以保持选择集相对路径位置不变了。

[FONT=courier new]
;|
命令：XDTB_ArrayByPath
功能：沿着指定的路径曲线(line,polyline,lwpolyline,spline,arc,circle,ellipse)
阵列选择的实体(选择集),可以保持实体相对路径的位置。
说明：程序计算出沿着指定路径可以阵列的最大数量，请输入小于等于这个最大值的数。
配合XDRX_API B11208以上版本使用
该程序演示了API 关于向量和矩阵转换的操作。
演示了如何把转换矩阵作用在实体上生成实体的拷贝
关于该程序的改进建议请到“晓东CAD空间” “开发论坛” 留言
[url]http://www.chat001.com/forum/xdapply/index.html[/url]
|;
(defun c:XDTB_ArrayByPath (/ $get_point $remake_l ss curve dist tf num maxnum pnt pntl
vect xform vT1 vT2 mMat1 mMat2 mRot m0 mMat
)
(defun $get_point (curve pnt dist / ptl pt dist1)
(setq dist1 #xarray_dist)
(while (setq pt (xdrx_curve_getpointatdist curve (+ dist dist1)))
(setq dist1 (+ dist1 #xarray_dist)
ptl (cons (trans pt 1 0) ptl)
)
)
(reverse ptl)
)
(defun $remake_l (l num / ptl tf i)
(setq ptl (reverse l))
(if (< num (length l))
(progn
(setq ptl nil)
(setq tf t)
(setq i 0)
(while tf
(if (< i num)
(setq ptl (cons (nth i l) ptl)
i (1+ i)
)
(setq tf nil)
)
)
)
)
(reverse ptl)
)
(prompt "\n请选取要沿路径阵列的实体<退出>")
(if (and
(setq ss (ssget))
(setq curve (car (xdrx_entsel "\n点取一个路径(曲线)<退出>:" '
((0 . "*line,arc,circle,ellipse"))
)
)
)
)
(progn
(xdrx_begin)
(xdrx_ucson)
(if (not #xarray_dist)
(setq #xarray_dist 100)
)
(redraw curve 3)
(initget 6)
(if (setq dist (getreal (strcat "\n阵列距离<" (rtos #xarray_dist 2 2)
">:"
)
)
)
(setq #xarray_dist dist)
)
(setq box (xdrx_entity_box ss)
cen (xdrx_midp (car box) (caddr box))
pnt (xdrx_curve_getClosestPoint curve cen)
vec1 (xdrx_curve_getFirstDeriv curve pnt)
pnt (trans pnt 1 0)
baseDist (xdrx_curve_GetDistAtPoint curve pnt)
pntl ($get_point curve pnt baseDist)
)
(initget 6)
(setq maxnum (length pntl)
tf t
)
(while tf
(setq num (getint (strcat "\n输入数量(该路径上最大允许数量"
(itoa maxnum) ")<" (itoa maxnum) ">:"
)
)
num (if (not num)
maxnum
num
)
tf (if (> num maxnum)
t
nil
)
)
)
(setq pntl ($remake_l pntl num)
m0 (xdrx_matrix_identity)
xForm (mapcar
'(lambda (x)
(setq vFDeriv (xdrx_curve_GetFirstDeriv curve (trans x 0 1))
mRot (xdrx_vector_rotateTo vec1 vFDeriv)
vT1 (mapcar '- (trans '(0 0 0) 0 1) (trans pnt 0 1))
vT2 (mapcar '- (trans x 0 1) (trans '(0 0 0) 0 1))
mMat1 (xdrx_matrix_setTranslation m0 vT1)
mMat2 (xdrx_matrix_setTranslation m0 vT2)
mMat (xdrx_matrix_product mRot mMat1)
mMat (xdrx_matrix_product mMat2 mMat)
)
)
pntl
)
)
(mapcar
'(lambda (x)
(xdrx_entity_transformedcopy ss x)
)
xForm
)
(redraw curve 4)
(xdrx_ucsoff)
(xdrx_end)
)
)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
命令：XDTB_ArrayByPath 
功能：沿着指定的路径曲线(line,polyline,lwpolyline,spline,arc,circle,ellipse) 
阵列选择的实体(选择集),可以保持实体相对路径的位置。 
 
说明：程序计算出沿着指定路径可以阵列的最大数量，请输入小于等于这个最大值的数。 
 
配合XDRX_API B11208以上版本使用 
 
该程序演示了API 关于向量和矩阵转换的操作。 
演示了如何把转换矩阵作用在实体上生成实体的拷贝 
 
关于该程序的改进建议请到“晓东CAD空间” “开发论坛” 留言 
[url]http://www.chat001.com/forum/xdapply/index.html[/url] 
|; 
 
(defun c:XDTB_ArrayByPath (/ $get_point $remake_l ss curve dist tf num maxnum pnt pntl 
                   vect xform vT1 vT2 mMat1 mMat2 mRot m0 mMat 
                ) 
  (defun $get_point (curve pnt dist / ptl pt dist1) 
    (setq dist1 #xarray_dist) 
    (while (setq pt (xdrx_curve_getpointatdist curve (+ dist dist1))) 
      (setq dist1 (+ dist1 #xarray_dist) 
            ptl (cons (trans pt 1 0) ptl) 
      ) 
    ) 
    (reverse ptl) 
  ) 
  (defun $remake_l (l num / ptl tf i) 
    (setq ptl (reverse l)) 
    (if (< num (length l)) 
      (progn 
        (setq ptl nil) 
        (setq tf t) 
        (setq i 0) 
        (while tf 
          (if (
            (setq ptl (cons (nth i l) ptl) 
                  i (1+ i) 
            ) 
            (setq tf nil) 
          ) 
        ) 
      ) 
    ) 
    (reverse ptl) 
  ) 
  (prompt "\n请选取要沿路径阵列的实体<退出>") 
  (if (and 
        (setq ss (ssget)) 
        (setq curve (car (xdrx_entsel "\n点取一个路径(曲线)<退出>:" ' 
                                      ((0 . "*line,arc,circle,ellipse")) 
                         ) 
                    ) 
        ) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_ucson) 
      (if (not #xarray_dist) 
        (setq #xarray_dist 100) 
      ) 
      (redraw curve 3) 
      (initget 6) 
      (if (setq dist (getreal (strcat "\n阵列距离<" (rtos #xarray_dist 2 2) 
                                      ">:" 
                              ) 
                     ) 
          ) 
        (setq #xarray_dist dist) 
      ) 
      (setq box (xdrx_entity_box ss) 
            cen (xdrx_midp (car box) (caddr box)) 
            pnt (xdrx_curve_getClosestPoint curve cen) 
            vec1 (xdrx_curve_getFirstDeriv curve pnt) 
            pnt (trans pnt 1 0) 
            baseDist (xdrx_curve_GetDistAtPoint curve pnt) 
            pntl ($get_point curve pnt baseDist) 
      ) 
      (initget 6) 
      (setq maxnum (length pntl) 
            tf t 
      ) 
      (while tf 
        (setq num (getint (strcat "\n输入数量(该路径上最大允许数量" 
                                  (itoa maxnum) ")<" (itoa maxnum) ">:" 
                          ) 
                  ) 
              num (if (not num) 
                    maxnum 
                    num 
                  ) 
              tf (if (> num maxnum) 
                   t 
                   nil 
                 ) 
        ) 
      ) 
      (setq pntl ($remake_l pntl num) 
            m0 (xdrx_matrix_identity) 
            xForm (mapcar 
                    '(lambda (x) 
                       (setq vFDeriv (xdrx_curve_GetFirstDeriv curve (trans x 0 1)) 
                             mRot (xdrx_vector_rotateTo vec1 vFDeriv) 
                             vT1 (mapcar '- (trans '(0 0 0) 0 1) (trans pnt 0 1)) 
                             vT2 (mapcar '- (trans x 0 1) (trans '(0 0 0) 0 1)) 
                             mMat1 (xdrx_matrix_setTranslation m0 vT1) 
                             mMat2 (xdrx_matrix_setTranslation m0 vT2) 
                             mMat (xdrx_matrix_product mRot mMat1) 
                             mMat (xdrx_matrix_product mMat2 mMat) 
                       ) 
                     ) 
                    pntl 
                  ) 
      ) 
      (mapcar 
        '(lambda (x) 
           (xdrx_entity_transformedcopy ss x) 
         ) 
        xForm 
      ) 
      (redraw curve 4) 
      (xdrx_ucsoff) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)[/FONT]

原来的，不能保持位置，简单的阵列拷贝的演示
下载地址：http://www.xdcad.net/tech/xd_tbox/xarray.swf

<embed src=/tech/xd_tbox/xarray.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

最新的，能保持原来相对路径位置，增强的阵列拷贝的演示

下载地址：http://www.xdcad.net/tech/xd_tbox/xarray1.swf

<embed src=/tech/xd_tbox/xarray1.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

XDSoft · 发表于 2002-11-17 00:43:02

[FONT=courier new]
;|
命令：XDTB_CurveDelSL
功能：删除超短曲线和点
说明：可以手工输入上限值
|;
(defun c:XDTB_CurveDelSL (/ ss splen e i)
(prompt "\n请选取要处理的曲线和点实体<全选>:")
(if (not (setq ss (ssget '((0 . "*line,arc,ellipse,circle")))))
(setq ss (ssget "x" '((0 . "*line,arc,ellipse,circle"))))
)
(if (not #xdrx_splen)
(setq #xdrx_splen 100)
)
(if (not (setq splen (getreal (strcat "\n请输入要删除曲线的长度的上限<"
(rtos #xdrx_splen 2 2) ">:"
)
)
)
)
(setq splen #xdrx_splen)
)
(setq #xdrx_splen splen)
(xdrx_begin '("cmdecho" 0
"highlight" 0
)
)
(xdrx_setsstodb ss 0)
(setq i 0
j 0
)
(xdrx_pbarbegin "正在处理..." (/ (sslength ss) 512))
(setq ss1 (ssadd))
(while (setq e (xdrx_getentdata 0))
(setq i (1+ i))
(if (= 0 (rem i 512))
(xdrx_pbarsetpos (setq j (1+ j)))
)
(if (<= (cadr (xdrx_getarea e)) #xdrx_splen)
(ssadd e ss1)
)
)
(xdrx_pbarend)
(command ".erase" ss1 "")
(if (setq ss (ssget "x" '((0 . "point"))))
(command ".erase" ss "")
)
(xdrx_end)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
  命令：XDTB_CurveDelSL 
  功能：删除超短曲线和点 
  说明：可以手工输入上限值 
|; 
(defun c:XDTB_CurveDelSL (/ ss splen e i) 
  (prompt "\n请选取要处理的曲线和点实体<全选>:") 
  (if (not (setq ss (ssget '((0 . "*line,arc,ellipse,circle"))))) 
    (setq ss (ssget "x" '((0 . "*line,arc,ellipse,circle")))) 
  ) 
  (if (not #xdrx_splen) 
    (setq #xdrx_splen 100) 
  ) 
  (if (not (setq splen (getreal (strcat "\n请输入要删除曲线的长度的上限<" 
                                        (rtos #xdrx_splen 2 2) ">:" 
                                ) 
                       ) 
           ) 
      ) 
    (setq splen #xdrx_splen) 
  ) 
  (setq #xdrx_splen splen) 
  (xdrx_begin '("cmdecho" 0 
               "highlight" 0 
              ) 
  ) 
  (xdrx_setsstodb ss 0) 
  (setq i 0 
        j 0 
  ) 
  (xdrx_pbarbegin "正在处理..." (/ (sslength ss) 512)) 
  (setq ss1 (ssadd)) 
  (while (setq e (xdrx_getentdata 0)) 
    (setq i (1+ i)) 
    (if (= 0 (rem i 512)) 
      (xdrx_pbarsetpos (setq j (1+ j))) 
    ) 
    (if (<= (cadr (xdrx_getarea e)) #xdrx_splen) 
      (ssadd e ss1) 
    ) 
  ) 
  (xdrx_pbarend) 
  (command ".erase" ss1 "") 
  (if (setq ss (ssget "x" '((0 . "point")))) 
    (command ".erase" ss "") 
  ) 
  (xdrx_end) 
  (princ) 
)[/FONT]

XDSoft · 发表于 2002-11-17 00:49:44

[FONT=courier new]
;|
命令：XDTB_CurveArea
功能：计算封闭曲线的面积
|;
(defun c:XDTB_CurveArea (/ ss carea tf)
(prompt "\n请选取计算面积的封闭曲线<退出>:")
(if (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
(progn
(setq carea 0)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (xdrx_curve_isclosed e)
(setq carea (+ carea (car (xdrx_getarea e))))
)
)
; (setq tf (= 1 (xdrx_yesorno "\n是否标注" 1)))
(prompt (strcat "\n面积值: " (rtos carea 2 2)))
)
)
(princ)
)[/FONT]

XDSoft · 发表于 2002-11-17 00:54:08

增强原来命令，现在可以在曲线－－》POLY转换，曲线－－》SPLINE转换

用命令：XDTB_CurveConvert 运行

[FONT=courier new]
;|
命令：XDTB_Curve2SPL
功能：将POLYLINE,ARC,CIRCLE,ELLIPSE转换成SPLINE
|;
(defun c:XDTB_Curve2SPL (/ tf ss e)
(prompt "\n请选取要转换成SPLINE的曲线[*POLYLINE,ARC,CIRCLE,ELLIPSE]<退出>:")
(if (setq ss (ssget '((0 . "*polyline,arc,circle,ellipse"))))
(progn
(setq i 0
len (sslength ss)
)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (xdrx_curve->spline e (= 1 (xdrx_yesorno "是否删除旧曲线" 1)))
(setq i (1+ i))
)
)
(prompt (strcat "\n选取了 " (itoa len) " 条曲线，共转换了 "
(itoa i) " 条曲线到SPLINE。"
)
)
)
)
(princ)
)
;;; 命令stopl
;;; 功能：循环多选circle,ellipse,arc,spline用
;;; polyline模拟，生成的多义线类型由当前
;;; 系统的plinetype变量控制。
;;; 程序在一次循环中提示一次是否删除旧的曲线
;;; 请加载xdrx_api
(defun c:XDTB_Curve2PL (/ ss ptl e sel #del_curve_flag #is_closed)
(defun #is_closed (name / tf1)
(setq tf1 t)
(cond
((= "ARC" name)
(setq tf1 nil)
)
((= "ELLIPSE" name)
(if (> (abs (- (xdrx_getentdxf 42) (xdrx_getentdxf 41))) 1e-5)
(setq tf1 nil)
)
)
((= "SPLINE" name)
(if (= (logand (xdrx_getentdxf 70) 1) 0)
(setq tf1 nil)
)
)
)
tf1
)
(prompt "\n请选取要用多义线模拟的circle,arc,ellipse,spline<退出>:")
(if (setq ss (ssget '((0 . "circle,arc,ellipse,spline"))))
(progn
(setq i 0
len (sslength ss)
)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq ptl (xdrx_getsamplept e))
(if (= 1 (xdrx_yesorno "是否删除旧的曲线" 1))
(entdel e)
)
(apply
'command
(cons "pline" ptl)
)
(if (#is_closed (xdrx_getentdxf 0))
(command "c")
(command "")
)
(setq i (1+ i))
)
(prompt (strcat "\n选取了 " (itoa len) " 条曲线，共转换了 "
(itoa i) " 条曲线到POLYLINE。"
)
)
)
)
(princ)
)
(defun c:XDTB_CurveConvert ()
(if (not $XDTB_Global_Curve_Convert)
(setq $XDTB_Global_Curve_Convert "1")
)
(initget "1 2")
(if (setq tf (getkword (strcat "\n请选择[1-曲转POLYLINE / 2-曲线转SPLINE]<"
$XDTB_Global_Curve_Convert ">:"
)
)
)
(setq $XDTB_Global_Curve_Convert tf)
)
(cond
((= "1" $XDTB_Global_Curve_Convert)
(c:XDTB_Curve2PL)
)
((= "2" $XDTB_Global_Curve_Convert)
(c:XDTB_Curve2SPL)
)
)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
   命令：XDTB_Curve2SPL 
   功能：将POLYLINE,ARC,CIRCLE,ELLIPSE转换成SPLINE 
|; 
(defun c:XDTB_Curve2SPL (/ tf ss e) 
  (prompt "\n请选取要转换成SPLINE的曲线[*POLYLINE,ARC,CIRCLE,ELLIPSE]<退出>:") 
  (if (setq ss (ssget '((0 . "*polyline,arc,circle,ellipse")))) 
    (progn 
      (setq i 0 
            len (sslength ss) 
      ) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (if (xdrx_curve->spline e (= 1 (xdrx_yesorno "是否删除旧曲线" 1))) 
          (setq i (1+ i)) 
        ) 
      ) 
      (prompt (strcat "\n选取了 " (itoa len) " 条曲线，共转换了 " 
                      (itoa i) " 条曲线到SPLINE。" 
              ) 
      ) 
    ) 
  ) 
  (princ) 
) 
;;; 命令stopl 
;;; 功能：循环多选circle,ellipse,arc,spline用 
;;;      polyline模拟，生成的多义线类型由当前 
;;;      系统的plinetype变量控制。 
;;; 程序在一次循环中提示一次是否删除旧的曲线 
;;; 请加载xdrx_api 
 
(defun c:XDTB_Curve2PL (/ ss ptl e sel #del_curve_flag #is_closed) 
  (defun #is_closed (name / tf1) 
    (setq tf1 t) 
    (cond 
      ((= "ARC" name) 
        (setq tf1 nil) 
      ) 
      ((= "ELLIPSE" name) 
        (if (> (abs (- (xdrx_getentdxf 42) (xdrx_getentdxf 41))) 1e-5) 
          (setq tf1 nil) 
        ) 
      ) 
      ((= "SPLINE" name) 
        (if (= (logand (xdrx_getentdxf 70) 1) 0) 
          (setq tf1 nil) 
        ) 
      ) 
    ) 
    tf1 
  ) 
 
  (prompt "\n请选取要用多义线模拟的circle,arc,ellipse,spline<退出>:") 
  (if (setq ss (ssget '((0 . "circle,arc,ellipse,spline")))) 
    (progn 
      (setq i 0 
            len (sslength ss) 
      ) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq ptl (xdrx_getsamplept e)) 
        (if (= 1 (xdrx_yesorno "是否删除旧的曲线" 1)) 
          (entdel e) 
        ) 
        (apply 
          'command 
          (cons "pline" ptl) 
        ) 
        (if (#is_closed (xdrx_getentdxf 0)) 
          (command "c") 
          (command "") 
        ) 
        (setq i (1+ i)) 
      ) 
      (prompt (strcat "\n选取了 " (itoa len) " 条曲线，共转换了 " 
                      (itoa i) " 条曲线到POLYLINE。" 
              ) 
      ) 
    ) 
  ) 
  (princ) 
) 
(defun c:XDTB_CurveConvert () 
  (if (not $XDTB_Global_Curve_Convert) 
    (setq $XDTB_Global_Curve_Convert "1") 
  ) 
  (initget "1 2") 
  (if (setq tf (getkword (strcat "\n请选择[1-曲转POLYLINE / 2-曲线转SPLINE]<" 
                                 $XDTB_Global_Curve_Convert ">:" 
                         ) 
               ) 
      ) 
    (setq $XDTB_Global_Curve_Convert tf) 
  ) 
  (cond 
    ((= "1" $XDTB_Global_Curve_Convert) 
      (c:XDTB_Curve2PL) 
    ) 
    ((= "2" $XDTB_Global_Curve_Convert) 
      (c:XDTB_Curve2SPL) 
    ) 
  ) 
  (princ) 
)[/FONT]

XDSoft · 发表于 2002-11-17 00:59:54

可以判断曲线线型状态，实的变虚、虚的变实

[FONT=courier new]
;|
命令：XChDash
功能：线型虚实变换
|;
(defun c:XDTB_CurveChDash (/ val)
(prompt "\n请选取要变线型的曲线实体<退出>:")
(if (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
(progn
(xdrx_begin)
(xdrx_sysvar_push "cmdecho")
(setvar "cmdecho" 0)
(if (not (tblsearch "ltype" "dash"))
(command "-linetype" "l" "dash" "acad.lin" "")
)
(xdrx_setsstodb ss 0)
(while (xdrx_getentdata 0)
(if (= "CONTINUOUS" (strcase (xdrx_getentdxf 6)))
(xdrx_modent 6 "DASH")
(xdrx_modent 6 "CONTINUOUS")
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)
[/FONT]

wufei1 · 发表于 2002-11-17 18:21:41

期待中！能不能增加计算表格的内容，atable已有，但不能计算！

XDSoft · 发表于 2002-11-17 18:50:42

最初由 wufei1 发布
[B]期待中！能不能增加计算表格的内容，atable已有，但不能计算！ [/B]

ACAD下面的表格，你可以用晓东工具箱－文字工具－写剪切版功能，把表格一行或者一列的文字实体拷贝到剪切版上。到EXCEL里面粘贴过去，计算。计算后，在通过剪切板拷贝会ACAD里面。

wufei1 · 发表于 2002-11-18 20:53:55

该方法好是好！但总觉有点麻烦，望斑竹能集众智之长，编一个lisp程序给大家一个惊喜，因为论坛里关于这方面的要求太多太多！
渴盼中！！！

XDSoft · 发表于 2002-11-18 20:58:16

最初由 wufei1 发布
[B]该方法好是好！但总觉有点麻烦，望斑竹能集众智之长，编一个lisp程序给大家一个惊喜，因为论坛里关于这方面的要求太多太多！
渴盼中！！！ [/B]

你在ACAD里面画个表格，填上数据后，截图贴到论坛来，图上画出（标出）你需要的各种可能计算方法吧。

xzg_hello · 发表于 2002-11-18 21:06:25

acad做表格计算不是长处，来回倒腾在近期还是不错的解决方案，只是从excel的数据贴到acad中字体大小与排布不知道晓东你是怎么解决的。

XDSoft · 发表于 2002-11-18 21:09:50

最初由 xzg_hello 发布
[B]acad做表格计算不是长处，来回倒腾在近期还是不错的解决方案，只是从excel的数据贴到acad中字体大小与排布不知道晓东你是怎么解决的。 [/B]

你用下”工具箱“的”读剪切板“或者”自由粘贴“命令就知道了，推荐使用”自由粘贴“，可以更灵活的控制。

字体按照当前用户设置的字型写文字。间距可以交互输入。

wufei1 · 发表于 2002-11-18 21:22:23

斑竹我把图形放在附件吧！
我还不会做截图！

XDSoft · 发表于 2002-11-18 21:29:36

最初由 wufei1 发布
[B]斑竹我把图形放在附件吧！
我还不会做截图！ [/B]

这个还是到EXCEL里面处理方便，有乘有加，关键是不通用，专门的工具还可以，这个ACAD下实现比较复杂。EXCEL自己可以定义公式，很方便的。

以后晓东工具箱做专业工具的时候，对钢筋表再提供解决方案吧。

用工具箱的拷贝剪切板、读剪切板吧。

以后工具箱将实现表格带文字的直接生成的ACAD。

XDSoft · 发表于 2002-11-19 00:14:11

最初由 5874739 发布
[B]版主应在表格上多做文章，表格在CAD里可是弱项 [/B]

谢谢建议！

我想应该在EXCEL和ACAD之间的转换上做些文章。充分利用两个软件的优势。

efan2000 · 发表于 2002-11-19 09:34:21

确实，发挥各个软件的长处，为我所用，这才是使用软件的最高境界。或许将来一台电脑上就只要安装一种软件就可以完成各人的工作了。

账号		自动登录	找回密码
密码			立即注册

[分享]：晓东工具箱 0.27 版新增工具介绍见内...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

删除超短曲线和点

曲线面积计算

曲线转换

重写虚实变换工具