设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › u系列函数
返回列表 发新帖
查看: 3098|回复: 9

[发布] u系列函数

[复制链接]
taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2013-6-16 21:45:43 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. ;;;http://www.paracadd.com/lisp/uutils.lsp
  3. ;These functions are freeware courtesy of the author's of "Inside AutoLisp"
  4. ;for rel. 10 published by New Riders Publications.  This credit must
  5. ;accompany all copies of this function.

  7. ;* UANGLE User interface angle function
  8. ;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  9. ;* for INITGET. MSG is the prompt string, to which a default real in rads is
  10. ;* added as <DEF> (nil for none), and a : is added. BPT is base point (nil
  11. ;* for none).
  12. ;*
  13. (defun uangle (bit kwd msg def bpt / inp)
  14.   (if def
  15.     (setq msg (strcat "\n" msg " <" (if(eq(type def)'STR)def(angtos def)) ">: ")
  16.           bit (* 2 (fix (/ bit 2)))
  17.     )
  18.     (setq msg (strcat "\n" msg ": "))
  19.   )
  20.   (initget bit kwd)
  21.   (setq inp
  22.     (if bpt
  23.        (getangle msg bpt)
  24.        (getangle msg)
  25.   ) )
  26.   (if inp inp def)
  27. );defun
  28. ;*
  29. (princ)
  30. ;*
  31. ;* UDIST User interface function
  32. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  33. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  34. ;* for none), and a : is added. BPT is base point (nil for none).
  35. ;*
  36. (defun udist (bit kwd msg def bpt / inp)
  37.   (if def
  38.     (setq msg (strcat "\n" msg " <" (rtos def) ">: ")
  39.           bit (* 2 (fix (/ bit 2)))
  40.     );setq
  41.     (setq msg (strcat "\n" msg ": "))
  42.   );if
  43.   (initget bit kwd)
  44.   (setq inp
  45.     (if bpt
  46.        (getdist msg bpt)
  47.        (getdist msg)
  48.   ) );setq&if
  49.   (if inp inp def)
  50. );defun
  51. ;*
  52. (princ)
  53. ;*
  54. ;* UINT User interface function
  55. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  56. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  57. ;* for none), and a : is added.
  58. ;*
  59. (defun uint (bit kwd msg def / inp)
  60.   (if def
  61.     (setq msg (strcat "\n" msg " <" (rtos def 2 0) ">: ")
  62.           bit (* 2 (fix (/ bit 2)))
  63.     )
  64.     (setq msg (strcat "\n" msg ": "))
  65.   );if
  66.   (initget bit kwd)
  67.   (setq inp (getint msg))
  68.   (if inp inp def)
  69. );defun
  70. ;*
  71. (princ)
  72. ;*
  73. ;* UKWORD User key word. DEF, if any, must match one of the KWD strings
  74. ;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  75. ;* for INITGET. MSG is the prompt string, to which a default string is added
  76. ;* as <DEF> (nil or "" for none), and a : is added.
  77. ;*
  78. (defun ukword (bit kwd msg def / inp)
  79.   (if (and def (/= def ""))
  80.     (setq msg (strcat "\n" msg " <" def ">: ")
  81.           bit (* 2 (fix (/ bit 2)))
  82.     );setq
  83.   );if
  84.   (initget bit kwd)
  85.   (setq inp (getkword msg))
  86.   (if inp inp def)
  87. );defun
  88. ;*
  89. ;* UPOINT User interface point function
  90. ;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  91. ;* for INITGET. MSG is the prompt string, to which a default point variable
  92. ;* is added as <DEF> (nil for none), and a : is added. BPT is base point
  93. ;* (nil for none).
  94. ;*
  95. (defun upoint (bit kwd msg def bpt / inp)
  96.   (if def
  97.     (setq pts (strcat
  98.                 (rtos (car def)) "," (rtos (cadr def))
  99.                 (if
  100.                   (and (caddr def) (= 0 (getvar "FLATLAND")))
  101.                   (strcat "," (rtos (caddr def)))
  102.                   ""
  103.               ) );if&strcat
  104.           msg (strcat "\n" msg " <" pts ">: ")
  105.           bit (* 2 (fix (/ bit 2)))
  106.     )
  107.     (setq msg (strcat "\n" msg ": "))
  108.   );if a default was supplied
  109.   (initget bit kwd)
  110.   (setq inp
  111.     (if bpt
  112.        (getpoint msg bpt)
  113.        (getpoint msg)
  114.   ) );setq&if
  115.   (if inp inp def)
  116. );defun
  117. ;*
  118. (princ)
  119. ;*
  120. ;* UREAL User interface real function
  121. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  122. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  123. ;* for none), and a : is added.
  124. ;*
  125. (defun ureal (bit kwd msg def / inp)
  126.   (if def
  127.     (setq msg (strcat "\n" msg " <" (rtos def 2) ">: ")
  128.           bit (* 2 (fix (/ bit 2)))
  129.     )
  130.     (setq msg (strcat "\n" msg ": "))
  131.   );if
  132.   (initget bit kwd)
  133.   (setq inp (getreal msg))
  134.   (if inp inp def)
  135. );defun
  136. ;*
  137. (princ)
  138. ;*
  139. ;* USTR User interface string
  140. ;* If BIT=1 no null "" input allowed, 0 for none, BIT ignored if DEF present.
  141. ;* MSG is the prompt string, to which a default string is added as <DEF> (nil
  142. ;* or "" for none), and a : is added. If SPFLAG T, spaces are allowed in
  143. ;* string.
  144. ;*
  145. (defun ustr (bit msg def spflag / inp nval)
  146.   (if (and def (/= def ""))
  147.     (setq msg (strcat "\n" msg " <" def ">: ")
  148.           inp (getstring msg spflag)
  149.           inp (if (= inp "") def inp)
  150.     );setq
  151.     (progn
  152.       (setq msg (strcat "\n" msg ": "))
  153.       (if (= bit 1)
  154.           (while (= "" (setq inp (getstring msg spflag))))
  155.           (setq inp (getstring msg spflag))
  156.       ) );progn&if
  157.     );if
  158.     inp
  159. );defun
  160. ;*
  161. (princ)
  162. ;*

评分

参与人数 3D豆 +20 收起 理由
xshrimp + 5 很给力!经验；技术要点；资料分享奖！
XDSoft + 10 很给力!经验；技术要点；资料分享奖！
wowan1314 + 5 好主题奖！

查看全部评分

本帖被以下淘专辑推荐:

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

使用道具 举报

cable2004

已领礼包: 2226个

财富等级: 金玉满堂
发表于 2013-6-16 22:34:55 | 显示全部楼层
不错的源码！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Free-Lancer
发表于 2013-6-16 22:35:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
院长的库里是不是也用了这些函数？！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2013-6-16 22:45:39 | 显示全部楼层
当年院长这几个函数，密码输对了，有个指令可以输出源码。我猜密码是XDCAD，还真让我猜中了，所以我很早就有了这几个函数的源码，后来找到了这几个函数的老巢。

点评

XDSoft
XDRX_API FOR 2014 , 密码给你发消息了，查看下。  详情 回复 发表于 2013-6-16 23:12
XDSoft
天才，你。成译码专家了，希望提供更多更好的函数来。  详情 回复 发表于 2013-6-16 23:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-16 23:06:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
taner 发表于 2013-6-16 22:45
当年院长这几个函数，密码输对了，有个指令可以输出源码。我猜密码是XDCAD，还真让我猜中了，所以我很早就 ...

天才，你。成译码专家了，希望提供更多更好的函数来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-16 23:12:45 | 显示全部楼层
taner 发表于 2013-6-16 22:45
当年院长这几个函数，密码输对了，有个指令可以输出源码。我猜密码是XDCAD，还真让我猜中了，所以我很早就 ...

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

使用道具 举报

GTJ116600
发表于 2013-6-17 06:40:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是挺不错的源码，呵呵，就是不知道做什么用的{:soso_e100:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xshrimp

已领礼包: 208个

财富等级: 日进斗金
发表于 2013-6-17 08:17:25 | 显示全部楼层
本帖最后由 xshrimp 于 2013-6-17 08:20 编辑

不过这个好像不是最新版的.最新的作者加了.
October 19, 2004 added function chkkwds (see description at end of file)

  3. ;*
  4. ;;;This function alerts the user when keywords containing invalid characters are used and it will
  5. ;;;identify and disable the offending keywords leaving the remaining keywords enabled.
  6. (DEFUN chkkwds (kwd /)
  7.   (SETQ invalidcharlst (LIST "_" "!" "@" "$" "%" "^" "&" "`" "(" ")" "*" "+" "=" "<" ">"))
  8.   (IF (OR (WCMATCH kwd "*_*")         
  9.           (WCMATCH kwd "*`!*")
  10.           (WCMATCH kwd "*`@*")
  11.           (WCMATCH kwd "*`$*")
  12.           (WCMATCH kwd "*`%*")
  13.           (WCMATCH kwd "*`^*")
  14.           (WCMATCH kwd "*`&*")
  15.           (WCMATCH kwd "*`**")
  16.           (WCMATCH kwd "*(*")
  17.           (WCMATCH kwd "*)*")
  18.           (WCMATCH kwd "*+*")
  19.           (WCMATCH kwd "*=*")
  20.           (WCMATCH kwd "*<*")
  21.           (WCMATCH kwd "*>*")
  22.       ) ;_ end of OR
  23.     (PROGN (PRINC "\nInvalid characters in keyword specification!")
  24.            (PRINC "\nAttempting to disable invalid keywords.")
  25.            (PRINC)
  26.            (SETQ stripkwd kwd
  27.                  kwdcnt 1
  28.                  charposlst NIL
  29.            ) ;_ end of setq
  30.            (WHILE (AND stripkwd (<= kwdcnt (STRLEN kwd)))
  31.              (IF (MEMBER (SUBSTR stripkwd kwdcnt 1) invalidcharlst)
  32.                (IF charposlst
  33.                  (SETQ charposlst (APPEND charposlst (LIST kwdcnt)))
  34.                  (SETQ charposlst (LIST kwdcnt))
  35.                ) ;_ end of if
  36.              ) ;_ end of if
  37.              (SETQ kwdcnt (1+ kwdcnt))
  38.            ) ;_ end of while
  39.            (FOREACH n charposlst
  40.              (COND ((OR (WCMATCH (SUBSTR kwd 1 n) "* *") (WCMATCH (SUBSTR kwd n) "* *"))
  41.                     (SETQ inicnt n)
  42.                     (WHILE (/= (SUBSTR kwd (1- inicnt) 1) " ") (SETQ inicnt (1- inicnt)))
  43.                     (SETQ endcnt inicnt)
  44.                     (WHILE (AND (/= endcnt (1- (STRLEN kwd))) (/= (SUBSTR kwd (1+ endcnt) 1) " "))
  45.                       (SETQ endcnt (1+ endcnt))
  46.                     ) ;_ end of WHILE
  47.                     (SETQ remcnt inicnt
  48.                           remend endcnt
  49.                     ) ;_ end of SETQ
  50.                     (WHILE (<= inicnt endcnt)
  51.                       (SETQ kwd (STRCAT (SUBSTR kwd 1 (1- inicnt)) " " (SUBSTR kwd (1+ inicnt))))
  52.                       (SETQ inicnt (1+ inicnt))
  53.                     ) ;_ end of WHILE
  54.                     (PRINC (STRCAT "\nKeyword " (SUBSTR stripkwd remcnt (- endcnt remcnt -1)) " is disabled! "))
  55.                     (PRINC)
  56.                    )
  57.              ) ;_ end of COND
  58.            ) ;_ end of FOREACH
  59.            (PRINC "\nOmit invalid keyword characters at source to enable these keywords. ")
  60.            (PRINC)
  61.     ) ;_ end of PROGN
  62.   ) ;_ end of IF
  63. )


  66. ;;;---------------------------------------------------------
  67. ;;;U系列函数.格式化输入.
  68. ;;;October 19, 2004 added function chkkwds (see description at end of file)

  70. ;* UANGLE User interface angle function
  71. ;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  72. ;* for INITGET. MSG is the prompt string, to which a default real in rads is
  73. ;* added as <DEF> (nil for none), and a : is added. BPT is base point (nil
  74. ;* for none).
  75. ;*
  76. ;(defun ui-get-input (str default)       ;;/*{{{*/
  77. ;    (cond
  78. ;      ((getint (strcat str "<" (itoa default) "> " )))
  79. ;      (default)
  80. ;    )
  81. ;)
  82. (defun uangle (bit kwd msg def bpt / inp)
  83.   (chkkwds kwd)
  84.   (if def
  85.     (setq msg (strcat "\n" msg " <" (if(eq(type def)'STR) def (angtos def)) ">: ")
  86.           bit (* 2 (fix (/ bit 2)))
  87.     )
  88.     (setq msg (strcat "\n" msg ": "))
  89.   )
  90.   (initget bit kwd)
  91.   (setq inp
  92.     (if bpt
  93.        (getangle msg bpt)
  94.        (getangle msg)
  95.   ) )
  96.   (if inp inp def)
  97. )

  99. ;*
  100. ;* UDIST User interface function
  101. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  102. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  103. ;* for none), and a : is added. BPT is base point (nil for none).
  104. ;*
  105. (defun udist (bit kwd msg def bpt / inp)
  106.   (chkkwds kwd)
  107.   (if def
  108.     (setq msg (strcat "\n" msg " <" (rtos def) ">: ")
  109.           bit (* 2 (fix (/ bit 2)))
  110.     );setq
  111.     (setq msg (strcat "\n" msg ": "))
  112.   );if
  113.   (initget bit kwd)
  114.   (setq inp
  115.     (if bpt
  116.        (getdist msg bpt)
  117.        (getdist msg)
  118.   ) );setq&if
  119.   (if inp inp def)
  120. )

  122. ;*
  123. ;* UINT User interface function
  124. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  125. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  126. ;* for none), and a : is added.
  127. ;*
  128. (defun uint (bit kwd msg def / inp)
  129.   (if def
  130.     (setq msg (strcat "\n" msg " <" (if (eq (type def) 'REAL) (rtos def 2 0)(if (eq (type def) 'INT) (itoa def) def)) ">: ")
  131.           bit (* 2 (fix (/ bit 2)))
  132.     )
  133.     (setq msg (strcat "\n" msg ": "))
  134.   );if
  135.   (initget bit kwd)
  136.   (setq inp (getint msg))
  137.   (if inp inp def)
  138. )

  140. ;*
  141. ;;;* UKWORD User key word. DEF, if any, must match one of the KWD strings
  142. ;;;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  143. ;;;* for INITGET. MSG is the prompt string, to which a default string is added
  144. ;;;* as <DEF> (nil or "" for none), and a : is added.
  145. ;;;*
  146. (DEFUN ukword (bit kwd msg def / inp)
  147.   (chkkwds kwd)
  148.   (IF (AND def (/= def ""))
  149.     (SETQ msg (STRCAT "\n" msg " <" def ">: ")
  150.           bit (* 2 (FIX (/ bit 2)))
  151.     );setq
  152.   );if
  153.   (INITGET bit kwd)
  154.   (SETQ inp (GETKWORD msg))
  155.   (IF inp
  156.     inp
  157.     def
  158.   ) ;_ end of if
  159. )

  161. ;*
  162. ;* UPOINT User interface point function
  163. ;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
  164. ;* for INITGET. MSG is the prompt string, to which a default point variable
  165. ;* is added as <DEF> (nil for none), and a : is added. BPT is base point
  166. ;* (nil for none).
  167. ;*
  168. (defun upoint (bit kwd msg def bpt / inp)
  169.   (if def
  170.     (if (eq (type def) 'STR)
  171.       (setq msg (strcat "\n" msg " <" def ">:")
  172.             bit (* 2 (fix (/ bit 2)))
  173.       )
  174.       (progn
  175.         (setq pts (strcat
  176.                     (rtos (car def)) "," (rtos (cadr def))
  177.                     (if
  178.                       (and (caddr def) (= 0 (getvar "FLATLAND")))
  179.                       (strcat "," (rtos (caddr def)))
  180.                       ""
  181.                   ) );if&strcat
  182.               msg (strcat "\n" msg " <" pts ">: ")
  183.               bit (* 2 (fix (/ bit 2)))
  184.         )
  185.       )
  186.     )
  187.     (setq msg (strcat "\n" msg ": "))
  188.   );if a default was supplied
  189.   (initget bit kwd)
  190.   (setq inp
  191.     (if bpt
  192.        (getpoint msg bpt)
  193.        (getpoint msg)
  194.   ) );setq&if
  195.   (if inp inp def)
  196. )

  198. ;* UREAL User interface real function
  199. ;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
  200. ;* MSG is the prompt string, to which a default real is added as <DEF> (nil
  201. ;* for none), and a : is added.
  202. ;*
  203. (defun ureal (bit kwd msg def / inp)
  204.   (if def
  205.     (setq msg (strcat "\n" msg " <" (if (eq (type def) 'REAL)(rtos def 2)(if (eq (type def) 'INT)(itoa def)def)) ">: ")
  206.           bit (* 2 (fix (/ bit 2)))
  207.     )
  208.     (setq msg (strcat "\n" msg ": "))
  209.   );if
  210.   (initget bit kwd)
  211.   (setq inp (getreal msg))
  212.   (if inp inp def)
  213. )
  214. ;;; USTR User interface string If BIT=1 no null "" input allowed, 0 for none, BIT
  215. ;;; ignored if DEF present. MSG is the prompt string, to which a default string
  216. ;;; is added as <DEF> (nil or "" for none), and a : is added. If SPFLAG T, spaces
  217. ;;; are allowed in
  218. ;;; string.
  219. ;;;
  220. ;;;>    Author: Henry C. Francis
  221. ;;;>            425 N. Ashe St.
  222. ;;;>            Southern Pines, NC 28387
  223. ;;;>            [url]http://paracadd.com[/url]
  224. ;;;>            All rights reserved.
  225. ;;;
  226. ;;;>            COPYRIGHT: 1-14-98
  227. ;;;>               EDITED: 03-02-2001
  228. ;;;
  229. (DEFUN ustr (bit msg def spflag / inp nval)
  230.   (IF (AND def (/= def ""))
  231.     (SETQ msg (STRCAT "\n" msg " <" def ">: ")
  232.           inp (GETSTRING msg spflag)
  233.           inp (IF (= inp "")
  234.                 def
  235.                 inp
  236.               ) ;_ end of if
  237.     ) ;_ end of setq
  238.     (PROGN
  239.       (SETQ msg (STRCAT "\n" msg ": "))
  240.       (IF (= bit 1)
  241.         (WHILE (= "" (SETQ inp (GETSTRING msg spflag))))
  242.         (SETQ inp (GETSTRING msg spflag))
  243.       ) ;_ end of if
  244.     ) ;_ end of progn
  245.   ) ;_ end of if
  246.   inp
  247. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kkt123
发表于 2015-2-15 09:51:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是挺不错的源码;P
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wzjck01

已领礼包: 15个

财富等级: 恭喜发财
发表于 2021-4-1 17:25:26 | 显示全部楼层
不错的源码！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-22 00:02 , Processed in 0.248577 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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