找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 10307|回复: 22

[LISP函数]:自动序号(源码)

[复制链接]
发表于 2009-1-30 11:49:47 | 显示全部楼层 |阅读模式

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

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

×
[php]
;;
(vl-load-com)
;;(arx)
(defun &GetEntDxf (ent_name code / ent vla_name result)
  (if (and ent_name code)
    (progn
      (setq result nil)
      (setq vla_name (vlax-ename->vla-object ent_name))
      (cond ((= code 62)
             (setq result (vlax-get-property vla_name 'color))
            )
            ((= code 6)
             (setq result (vlax-get-property vla_name 'linetype))
            )
            ((= code 48)
             (setq result (vlax-get-property vla_name 'linetypescale))
            )
            (T
             (progn
               (setq ent (entget ent_name))
               (setq result (cdr (assoc code ent)))
             )
            )
      )
    )
    nil
  )
  result
)
;;
(defun &SortSs_X (ss /)
  (&SortSs ss 1)
)
(defun &SortSs_X2 (ss /)
  (&SortSs ss 2)
)
(defun &SortSs_Y (ss /)
  (&SortSs ss 3)
)
(defun &SortSs_Y2 (ss /)
  (&SortSs ss 4)
)
(defun &SortSs (ss ii / i ii pts ss ss1 index)
  (setq ss ss)
  (setq ii ii)
  (if (and ss
           (> (sslength ss) 1)
      )
    (progn
      (setq i 0)
      (setq pts nil)
      (repeat (sslength ss)
        (setq pts (cons (&GetEntDxf (ssname ss i) 10) pts))
        (setq i (+ i 1))
      )
      (setq pts        (reverse pts)
            ss1        (ssadd)
      )
      (cond
        ((= ii 1) (setq index (&SortX_Index pts)))
        ((= ii 2) (setq index (&SortX2_Index pts)))
        ((= ii 3) (setq index (&SortY_Index pts)))
        ((= ii 4) (setq index (&SortY2_Index pts)))
      )
      (setq i 0)
      (repeat (sslength ss)
        (setq ss1 (ssadd (ssname ss (nth i index)) ss1))
        (setq i (+ i 1))
      )
      (setq i 0)
      (setq pts nil)
      (repeat (sslength ss1)
        (setq pts (cons (&GetEntDxf (ssname ss1 i) 10) pts))
        (setq i (+ i 1))
      )
    )
  )
  (list ss1 (reverse pts))
)
;;
;;;(&SortX_Index '((1 3) (2 5) (3 1)(4 6)))              
(defun &SortX_Index (lst / lst e1 e2)
  (setq lst lst)
  (setq        lst (vl-sort-i lst
                       (function
                         (lambda (e1 e2)
                           (< (car e1) (car e2))
                         )
                       )
            )
  )
)
;;;(&SortX2_Index '((1 3) (2 5) (3 1)(4 6)))
(defun &SortX2_Index (lst / lst e1 e2)
  (setq lst lst)
  (setq        lst (vl-sort-i lst
                       (function
                         (lambda (e1 e2)
                           (> (car e1) (car e2))
                         )
                       )
            )
  )
)
;;;(&SortY_Index '((1 4) (1 2) (1 3)(1 1)))
(defun &SortY_Index (lst / lst e1 e2)
  (setq lst lst)
  (setq        lst (vl-sort-i lst
                       (function
                         (lambda (e1 e2)
                           (< (cadr e1) (cadr e2))
                         )
                       )
            )
  )
)
;;;(&SortY2_Index '((1 4) (1 2) (1 3)(1 1)))
(defun &SortY2_Index (lst / lst e1 e2)
  (setq lst lst)
  (setq        lst (vl-sort-i lst
                       (function
                         (lambda (e1 e2)
                           (> (cadr e1) (cadr e2))
                         )
                       )
            )
  )
)
;;
(defun &SsNameList (ss / n lst)
  (if (= 'PICKSET (type ss))
    (repeat (setq n (sslength ss))
      (setq n        (1- n)
            lst        (cons (ssname ss n) lst)
      )
    )
  )
)
;;
(defun &EntMod (ent_name   dxf_lst    /                 i            ent
                num           input1     input2         color            linetype
                linetypescale
               )
  (if (and
        ent_name
        (setq ent (entget ent_name))
        (> (setq num (/ (length dxf_lst) 2)) 0)
      )
    (progn
      (setq i 0)
      (repeat num
        (setq input1 (nth (* i 2) dxf_lst))
        (setq input2 (nth (+ (* i 2) 1) dxf_lst))
        (cond
          ((= input1 62)
           (vlax-put-property
             (vlax-ename->vla-object ent_name)
             'color
             input2
           )
          )
          ((= input1 6)
           (vlax-put-property
             (vlax-ename->vla-object ent_name)
             'linetype
             input2
           )
          )
          ((= input1 48)
           (vlax-put-property
             (vlax-ename->vla-object ent_name)
             'linetypescale
             input2
           )
          )
          ((and (/= input1 62) (/= input1 6) (/= input1 48))
           (progn
             (setq
               ent (subst (cons input1 input2) (assoc input1 ent) ent)
             )
             (setq ent (entmod ent))
           )
          )
        )
        (setq i (+ i 1))
      )
      (cdr (assoc -1 ent))
    )
    nil
  )
)
;;
(defun &Begin (SysVarLst / x y)
  (Defun *Error* (St)
    (If        (/= St "函数已取消")
      (Princ "\n**函数已取消**")
    )
    (&End)
    (Princ)
  )
  (vla-startundomark
    (vla-get-activedocument (vlax-get-acad-object))
  )
  (if (/= (length SysVarLst) 0)
    (setq *OriSysVars*
           (mapcar
             '(lambda (x / y)
                (if (= (type x) 'LIST)
                  (setq y (list (car x) (getvar (car x))))
                  (setq y (list x (getvar x)))
                )
                (if (/= (type x) 'STR)
                  (eval (cons 'setvar x))
                )
                y
              )
             SysVarLst
           )
    )
  )
  (setq        &error        *error*
        *error*        &error
  )
  (princ)
)
(Defun &End ()
  (If *Orisysvars*
    (Mapcar '(Lambda (X)
               (Eval (Cons 'Setvar X))
             )
            *Orisysvars*
    )
  )
  (Vla-Endundomark
    (Vla-Get-Activedocument (Vlax-Get-Acad-Object))
  )
  (Setq *Error* &Error)
  (Setq        *Orisysvars*
         Nil
        &Error Nil
  )
  (Princ)
)
;;
(defun &ListTable (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )
  (vl-remove 'nil (acad_strlsort (reverse r)))
)
;;
(defun &PutVarible (Varible Varible_Save Val_default)
  (if (null Varible_Save)
    (setq Varible Val_default)
    (setq Varible Varible_Save)
  )
)
;;
(defun &TileEnable (clist)
  (mapcar
    '(lambda (x)
       (mode_tile x 0)
     )
    clist
  )
)
;;禁用按钮            
;;clist 按钮关键字列表
(defun &TileDisable (clist)
  (mapcar
    '(lambda (x)
       (mode_tile x 1)
     )
    clist
  )
)
;;
;|;(If (Member "acetutil.arx" (Arx))
  (setq Acetutil_loaded T)
  (If (Findfile "Acetutil.Arx")
    (if        (Arxload "Acetutil.Arx")
      (setq Acetutil_loaded T)
      (setq Acetutil_loaded nil)
    )
    (setq Acetutil_loaded nil)
  )
);|;
;;
(defun c:AutoNum (/                Dcl_Id              Do_What
                  List_Sort        Style_Cur     List_Style
                  Index_Style        Edit_Type     Prefix
                  Start_Num        Suffix              Inc_Num
                  Index_Sort        Judge_Replace Pt_Screen
                  Txt_Height        Sort_Type
                 )
  (Defun Edit_Write
         (/ Ss I Ss_List N Txt_Ori Txt_Num Txt_New Pt1 Pt Ent_Txt)
    ;;编辑模式
    (If        (= Edit_Type 1)
      (Progn
        (If (And (Setq Ss (Ssget '((0 . "TEXT"))))
                 (Setq I -1)
            )
          (Progn
            (Cond ((= Index_Sort "0") (Setq Ss (Car (&SortSs_Y2 Ss))))
                  ((= Index_Sort "2") (Setq Ss (Car (&SortSs_X Ss))))
                  ((= Index_Sort "1") (Setq Ss (Car (&SortSs_Y Ss))))
                  ((= Index_Sort "3") (Setq Ss (Car (&SortSs_X2 Ss))))
            )
            (Setq Ss_List (&SsNameList Ss))
            (Foreach N Ss_List
              (Progn
                (Setq Txt_Ori (&GetEntDxf N 1)
                      Txt_Num (Itoa (+ (Atoi Start_Num)
                                       (* (Setq I (1+ I)) (Atoi Inc_Num))
                                    )
                              )
                )
                (If (= Start_Num "")
                  (Setq Txt_Num "")
                )
                (Cond
                  ((= Judge_Replace "0")
                   (Setq Txt_New (Strcat Prefix Txt_Num Txt_Ori Suffix))
                  )
                  ((= Judge_Replace "1")
                   (Setq Txt_New (Strcat Prefix Txt_Num Suffix))
                  )
                )
                (&EntMod N (List 1 Txt_New))
              )
            )
            (redraw)
          )
        )
      )
    )
    ;;书写模式
    (If        (= Edit_Type 2)
      (Progn
        (Setq I -1)
        (while (setq pt (getpoint "\n点取文字插入点[退出]"))
          (Setq
            Txt_Num
             (Itoa (+ (Atoi Start_Num)
                      (* (Setq I (1+ I)) (Atoi Inc_Num))
                   )
             )
          )
          (If (= Start_Num "")
            (Setq Txt_Num "")
          )
          (Setq Txt_New (Strcat Prefix Txt_Num Suffix))
          (Vl-Cmdf "Text" "S" Txt_Style pt Txt_Height 0 Txt_New)
        )
        ;|;(if Acetutil_loaded
          (progn
            (Setq Pt1 (Car (&GetScreenPts)))
            (Setq I -1)
            (While
              (And
                (Progn (Setq
                         Txt_Num
                          (Itoa        (+ (Atoi Start_Num)
                                   (* (Setq I (1+ I)) (Atoi Inc_Num))
                                )
                          )
                       )
                       (If (= Start_Num "")
                         (Setq Txt_Num "")
                       )
                       (Setq Txt_New (Strcat Prefix Txt_Num Suffix))
                )
                (Progn
                  (Vl-Cmdf "Text" "S" Txt_Style        Pt1 Txt_Height 0 Txt_New)
                  (Setq        Ent_Txt        (Entlast)
                        Ss        (Ssadd)
                        Ss        (Ssadd Ent_Txt Ss)
                  )
                  (&Redraw_Ss Ss 2)
                )
                (Setq Pt (Acet-Ss-Drag-Move Ss Pt1 "\n插入位置:"))
              )
               (Command ".Move" Ss "" Pt1 Pt)
            )
            (If        (And SS (Null Pt))
              (&Erase_Ss Ss)
            )
          );|;
      )
    )
  )
  ;;Main
  (&Begin '(("Cmdecho" 0)("Orthomode" 0)))
  (Setq Dcl_Id (Load_Dialog "AutoNum.Dcl"))
  (Setq Do_What 2)
  (Setq List_Sort '("上 => 下" "上 <= 下" "左 => 右" "左 <= 右"))
  (Setq        Style_Cur   (Getvar "TEXTSTYLE")
        List_Style  (&ListTable "STYLE")
        Index_Style (Itoa (Vl-Position Style_Cur List_Style))
        Txt_Style   (Nth (Atoi Index_Style) List_Style)
  )
  (Setq        Edit_Type     (&PutVarible Edit_Type AutoNum_Edit_Type_Save 1)
        Prefix              (&PutVarible Prefix AutoNum_Prefix_Save "No.")
        Start_Num     (&PutVarible Start_Num AutoNum_Start_Num_Save "1")
        Suffix              (&PutVarible Suffix AutoNum_Suffix_Save "")
        Inc_Num              (&PutVarible Inc_Num AutoNum_Inc_Num_Save "1")
        Index_Sort    (&PutVarible Index_Sort AutoNum_Index_Sort_Save "0")
        Judge_Replace (&PutVarible
                        Judge_Replace
                        AutoNum_Judge_Replace_Save
                        "0"
                      )
        Pt_Screen     (&Putvarible
                        Pt_Screen
                        AutoNum_Pt_Screen_Save
                        (List 500 600)
                      )
        Txt_Height    (&PutVarible
                        Txt_Height
                        AutoNum_Txt_Height_Save
                        (Rtos (Getvar "TEXTSIZE") 2 2)
                      )
  )
  ;;(Setq Prefix "No.")
  (Setq Sort_Type (Nth (Atoi Index_Sort) List_Sort))

  (Vl-Cmdf "Undo" "Be")

  (While (= Do_What 2)
    (Progn
      (If (Not (New_Dialog "AutoNum" Dcl_Id "" Pt_Screen))
        (Exit)
      )
      ;;初始化
      (Start_List "Sort_Type")
      (Mapcar 'Add_List List_Sort)
      (End_List)
      (Start_List "Style")
      (Mapcar 'Add_List List_Style)
      (End_List)

      (Set_Tile "Prefix" Prefix)
      (Set_Tile "Start_No" Start_Num)
      (Set_Tile "Suffix" Suffix)
      (Set_Tile "Inc" Inc_Num)
      (Set_Tile "Sort_Type" Index_Sort)
      (Set_Tile "Replace" Judge_Replace)
      (Set_Tile "Height" Txt_Height)
      (Set_Tile "Style" Index_Style)
      (cond ((= Edit_Type 1)
             (Progn (Set_Tile "Edit_Mode" "1")
                    (Set_Tile "Write_Mode" "0")
                    ;;(Setq Prefix "No.")
                    (Set_Tile "Prefix" Prefix)
                    (&TileEnable '("Sort_Type" "Replace"))
                    (&TileDisable '("Height" "Style"))
             )
            )
            ((= Edit_Type 2)
             (Progn (Set_Tile "Edit_Mode" "0")
                    (Set_Tile "Write_Mode" "1")
                    ;;(Setq Prefix "KL-")
                    (Set_Tile "Prefix" Prefix)
                    (&TileEnable '("Height" "Style"))
                    (&TileDisable '("Sort_Type" "Replace"))
             )
            )
      )
      ;;定义动作
      (Action_Tile "Prefix" "(Setq Prefix $Value)")
      (Action_Tile "Start_No" "(Setq Start_Num $Value)")
      (Action_Tile "Suffix" "(Setq Suffix $Value)")
      (Action_Tile "Inc" "(Setq Inc_Num $Value)")
      (Action_Tile
        "Sort_Type"
        "(Setq Index_Sort $Value)
        (Setq Sort_Type (Nth (Atoi Index_Sort) List_Sort))"
      )
      (Action_Tile "Replace" "(Setq Judge_Replace $Value)")
      (Action_Tile
        "Edit_Mode"
        "(Setq Edit_Type 1)
        (Set_Tile \"Prefix\" Prefix)
        (Set_Tile \"Edit_Mode\" \"1\")
        (Set_Tile \"Write_Mode\" \"0\")
        (&TileEnable '(\"Sort_Type\" \"Replace\"))
        (&TileDisable '(\"Height\" \"Style\"))"
      )
      (Action_Tile
        "Write_Mode"
        "(Setq Edit_Type 2)
        (Set_Tile \"Prefix\" Prefix)
        (Set_Tile \"Edit_Mode\" \"0\")
        (Set_Tile \"Write_Mode\" \"1\")
        (&TileDisable '(\"Sort_Type\" \"Replace\"))
        (&TileEnable '(\"Height\" \"Style\"))"
      )
      (Action_Tile "Height" "(Setq Txt_Height $Value)")
      (Action_Tile
        "Style"
        "(Setq Index_Style $Value)
        (Setq Txt_Style (Nth (Atoi Index_Style) List_Style))"
      )

      (Action_Tile "accept" "(Setq Pt_Screen (Done_Dialog 2))")
      (Action_Tile "cancel" "(Done_Dialog 0)")

      (Setq Do_What (Start_Dialog))

      (If (= Do_What 2)
        (Edit_Write)
      )
    )
  )
  (Unload_Dialog Dcl_Id)
  (Vl-Cmdf "Undo" "E")

  (Setq        AutoNum_Edit_Type_Save
         Edit_Type
        AutoNum_Prefix_Save
         Prefix
        AutoNum_Start_Num_Save
         Start_Num
        AutoNum_Suffix_Save
         Suffix
        AutoNum_Inc_Num_Save
         Inc_Num
        AutoNum_Index_Sort_Save
         Index_Sort
        AutoNum_Judge_Replace_Save
         Judge_Replace
        AutoNum_Pt_Screen_Save
         Pt_Screen
        AutoNum_Txt_Height_Save
         Txt_Height
  )
  (&End)
  (Princ)
)
(princ "\n'自动序号',命令:AutoNum, Copyright 2006, By JieGa.")




AutoNum : dialog {
     label = "自动序号 Copyright 2006, JieGa. ";
        initial_focus = "Prefix";
        :row{
                : boxed_column {
                label = "初始设置";
                        fixed_width = true;
                                : edit_box {
                                        label = "前    缀";
                                        key = "Prefix";
                                        edit_width=5;
                                           }
                                : edit_box {
                                        label = "起始编号";
                                        key = "Start_No";
                                        edit_width=5;
                                           }
                                : edit_box {
                                        label = "后    缀";
                                        key = "Suffix";
                                        edit_width=5;
                                           }
                        }
               
                : boxed_column {
                        label = "控制参数";
                                : edit_box {
                                label = "序号增量";
                                        key = "Inc";
                                        edit_width=10;
                                           }
                                : popup_list {
                                        label = "排序方式";
                                        key = "Sort_Type";
                                        width = 9;
                                        }
                : toggle {
                        label = "替代原文字";
                        key = "Replace";
                        value = 0;
                        }
                        }
                        }
                :row{       
                :boxed_radio_column{
                label="操作方式";
                        :radio_button{
                        label="编辑模式        ";
                        key="Edit_Mode";
                        value=1;
                        }
                        :radio_button{
                        label="书写模式        ";
                        key="Write_Mode";
                        value=0;
                        }
                        }
                : boxed_column {
                        label = "文字参数";
                        : edit_box {
                        label = "文字高度";
                        key = "Height";
                        edit_width=10;
                           }
                        : popup_list {
                        label = "文字样式";
                        key = "Style";
                        edit_width=9;
                        }
                        }
                        }
                        spacer_1;
                       
                :row {
                     :spacer { width = 1;}
                     :button {
                       label       = "确  定";
                       key         = "accept";
                       width       = 5;
                       fixed_width = true;
                     }
                     :spacer { width = 1;}
                     :button {
                       label       = "退  出";
                       is_cancel   = true;
                       key         = "cancel";
                       width       = 5;
                       fixed_width = true;
                     }
                     
                     :spacer { width = 1;}
                   }
                }



[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 9个

财富等级: 恭喜发财

发表于 2009-1-31 02:11:12 | 显示全部楼层
谢谢楼主共享,特别是源码共享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-2-11 10:54:49 | 显示全部楼层
非常厉害!遗憾的是没有注释,读起来有些困难。
另外还有些不懂的地方,比如如何做出这样的对话框形式。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-2-26 10:08:20 | 显示全部楼层
試了,出現“函數已取消”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-2-26 13:58:20 | 显示全部楼层
最初由 wenhong_teng 发布
[B]試了,出現“函數已取消” [/B]

就是啊,哪位可以修改下.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-3-9 00:21:15 | 显示全部楼层
无法使用,出現“函數已取消”,敬请楼主改正一下。谢谢源码共享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-3-21 11:23:29 | 显示全部楼层
試了,出現“函數已取消
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8950个

财富等级: 富甲天下

发表于 2009-3-22 14:20:44 | 显示全部楼层
试用一下,出现“函数已取消,楼主是否有版本限制阿!我用2008的.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-3-22 16:51:17 | 显示全部楼层
应该还有个DCL文件,楼主没有贴出来,但愿楼主共享一个比较完整的东东
谢谢了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-4 19:37:17 | 显示全部楼层
函数已取消
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-5 11:06:08 | 显示全部楼层
电脑被盗,积币,望谅解
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-8 21:30:13 | 显示全部楼层
这个比较实用,编制说明时可以用到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-5-19 16:03:01 | 显示全部楼层
函数已取消
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-7-12 14:02:01 | 显示全部楼层
不能用啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1304个

财富等级: 财源广进

发表于 2009-7-22 11:18:02 | 显示全部楼层
楼主太有才了,收下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-6 07:06 , Processed in 0.510386 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表