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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 关于《对象对齐》的思考
返回列表 发新帖
查看: 1230|回复: 9

[他山之石] 关于《对象对齐》的思考

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2020-6-11 15:33:38 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 /db_自贡黄明儒_ 于 2020-6-11 15:38 编辑

关于《对象对齐》的思考
央视片库的抗日神剧看完之后，其它的抗日神剧也看得差不多了。近来重新思考了对象对齐。
本次发文交流，不提供程序
;;1  Align Object对齐对象，简称AO;表格内命令TAO。在使用时，我得想一下用哪一个命令，多有不便。可以从选择集中选择一个对象，程序自动判断一下是在表格内，还是在表格外。一般说来，使用者不会同时选择表格内外的对象来对齐，因此自动判断应该是合理的。
;;2  单行文字、多行文字、圆、块等同时选择时，应该依次择其一类对齐。如果选择集中有单行文字，就不处理多行文字、圆、块。
;;3 表格内文字文字如果Y坐标差不多，应该合并。也就是说表格内文字只有多行排列，没有多列
;;4 好多人分不清单行文字、属性文字、多行文字的区别，故应该都当成一种文字处理。也就是说，合并文字时，单行文字可以同属性文字合并
Leader对象 对齐.gif
表格 对齐.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2020-6-11 15:35:11 | 显示全部楼层
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文本对齐于框格工具
  3. ;;;Align Object对齐对象，简称AO
  4. ;;;主要处理Text,兼顾attdef和Mtext
  5. ;;;1 选择集中取一个对象，如果判断在表格内，所有文字按表格内处理。否则，直接...
  6. ;;;2 表格内文字起点离边框，半个字高。如果有多行，误差在一个字高的，认为处于同
  7. ;;;   一行；第一行文字中心到上边线为一个字高
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  10. ;;[功能] 先选择，后执行通用函数
  11. ;;(sslength (_StartSSget '((0 . "DIMENSION"))))
  12. (defun _StartSSget (fil / SS)
  13.   (cond ((cadr (ssgetfirst)) (setq ss (apply 'ssget (list "_p" fil)))))
  14.   (cond        (SS (sssetfirst nil nil))
  15.         (T (setq ss (apply 'ssget (list ":S" fil))))
  16.   )
  17.   ss
  18. )
  19. ;;[功能] 分离选择集(setq fil '((0 . "DIMENSION")))
  20. (defun _PartSSget (ss fil)
  21.   (if (>= (atoi (getvar "AcadVer")) 20)                            ;2015
  22.     (command-s "_.select" ss "")
  23.     (vl-cmdf "_.select" ss "")
  24.   )
  25.   (apply 'ssget (list "_p" fil))
  26. )

  28. (defun C:TAO ()
  29.   (C:AO)
  30. )
  31. (defun C:AO (/ *error* optimizeCode do2 do1 do3 CODE E FILTERLST FLAG KEY MIDPT MYSS P PTS SS SSET SSETCIRCLE SSETINSERT SSETMTEXT SSETTEXT VALIST0 VARLIST VARTXTLST X)
  32.   ;;0 错误处理
  33.   (defun *error* (msg)
  34.     (HH:Once=>Init VARLIST valist0)
  35.   )
  36.   ;;1 优化代码的函数
  37.   ;; 示例(setq vartxtlst (list "ss1" "ss2" "ss3"))(setq filterlst (list "circle" "*line" "*text"))
  38.   ;; (optimizeCode ss varlst fillst)  
  39.   (defun optimizeCode (ss varlst fillst)
  40.     (mapcar (function (lambda (x y) (set x (_PartSSget ss (list (cons 0 y))))))
  41.             (mapcar 'read varlst)
  42.             fillst
  43.     )
  44.   )
  45.   ;;2 非表格内：多行多列
  46.   (defun do2 (ss code / H H1 I LST LST1 P P0 PT W0 X Y0)
  47.     ;;第1步 行间距,取第一个对象来确定行间距，对于文字是合理的
  48.     ;;如字高3.5，文字间距7，符合机械制图标准
  49.     (setq h (apply 'mapcar (cons '- (Entity:Box (ssname ss 0)))))
  50.     (setq h (* (abs (cadr h)) 2))                            ;默认间距
  51.     (initget 46)
  52.     (setq h1 (getreal (strcat "\n >>输入行间距<" (VL-PRINC-TO-STRING h) ">:")))
  53.     (cond ((not h1) (setq h1 h)))
  54.     ;;第2步 排序、基点、最大宽度w0
  55.     (setq lst (HH:ssPts:Sort ss "Yx" (* h1 0.75 0.5)))            ;Y坐标大，排在前；Y相同时，x坐标大排在前
  56.     (setq y0 (cadr (cdr (assoc code (entget (car lst))))))  ;左上的Y坐标
  57.     ;;最大宽度
  58.     (setq
  59.       w0 (mapcar '(lambda (x) (abs (car (apply 'mapcar (cons '- (Entity:Box x)))))) lst)
  60.     )
  61.     (setq w0 (apply 'max w0))
  62.     ;;第3步 处理同列
  63.     ;;以p0为基点，小于w0均视为同列
  64.     (while lst
  65.       (setq i -1)
  66.       (setq lst1 lst)
  67.       (setq p (cdr (assoc code (entget (car lst)))))
  68.       (setq p0 (list (car p) y0))                            ;每行最上对象的坐标
  69.       (while (setq x (car lst1))
  70.         (setq lst1 (cdr lst1))
  71.         (setq p (cdr (assoc code (entget x))))                    ;p为坐标
  72.         (if (equal (car p) (car p0) w0)                            ;如果x坐标小于最大宽度，认为是同一列
  73.           (progn
  74.             (setq pt (mapcar '- p0 (list 0 (* (setq i (1+ i)) h1))))
  75.             (vl-cmdf "_.MOVE" x "" p pt)
  76.             (setq lst (vl-remove x lst))
  77.           )
  78.         )
  79.       )
  80.     )
  81.   )
  82.   ;;3 表格内文字 SSET
  83.   (defun do1 (ss code MYSS key / EN EN0 FLAG H HEIGHT I LST LST1 LST11 LST1N MIDPT N OBJ P P0 PE PTS SCALEFACTOR SS1 STR STR0 W WIDTH X)
  84.     ;;第1步 行间距,取第一个对象来确定行间距，对于文字是合理的
  85.     ;;如字高3.5，文字间距7，符合机械制图标准(setq ss (ssget))(setq sSet ss)
  86.     (setq h (apply 'mapcar (cons '- (Entity:Box (ssname ss 0)))))
  87.     (setq h (abs (cadr h)))
  88.     ;;第2步 同行合并
  89.     (setq lst (HH:ssPts:Sort ss "Yx" (* h 0.5)))            ;Y坐标大，排在前；Y相同时，x坐标大排在前
  90.     (while (setq x (car lst))
  91.       (setq lst (cdr lst))
  92.       (setq Pe (Entity:Box x))
  93.       (setq pts (HH_PtInCurve (apply 'MJ:MIDPOINT Pe) MYSS)) ;实体所在外盒包围点
  94.       ;;ssget "C"可能选择到表格；ssget "W"又选择不到大于表格的，ChooseP1P2也许是不错的选择
  95.       (setq ss1 (ChooseP1P2 (car pts) (cadr pts) '((0 . "*TEXT,ATTDEF"))))
  96.       (ssadd x ss1)
  97.       (VL-CATCH-ALL-APPLY
  98.         '(lambda () (command "_.JUSTIFYTEXT" ss1 "" key))
  99.         nil
  100.       )
  101.       (repeat (setq i (sslength ss1))
  102.         (setq x (SsName ss1 (setq i (1- i))))
  103.         (setq lst (vl-remove x lst))
  104.         (ssadd x sSet)                                            ;(command "._Select" sSet "_Add" ss1 "")
  105.       )
  106.       ;;第3步 lst1中有多少行？
  107.       (setq lst1N (HH:ssPts:Sort ss1 "xY" (* h 0.5)))
  108.       (setq lst1 lst1N)
  109.       (while (setq x (car lst1))
  110.         (setq lst1 (cdr lst1))
  111.         (setq en0 (entget x))
  112.         (setq p0 (cdr (assoc code en0)))                    ;p0为坐标
  113.         (setq Flag (equal "ATTDEF" (cdr (assoc 0 en0))))
  114.         (if Flag
  115.           (setq str0 (cdr (assoc 2 en0)))
  116.           (setq str0 (cdr (assoc 1 en0)))
  117.         )
  118.         (setq lst11 lst1)
  119.         (while (setq x (car lst11))
  120.           (setq lst11 (cdr lst11))
  121.           (setq en (entget x))
  122.           (setq p (cdr (assoc code en)))                    ;p为坐标
  123.           (if (equal (cadr p) (cadr p0) (* h 0.5))            ;如果y坐标小于h，认为是同一行
  124.             (progn
  125.               (if (equal "ATTDEF" (cdr (assoc 0 en)))
  126.                 (setq str (cdr (assoc 2 en)))
  127.                 (setq str (cdr (assoc 1 en)))
  128.               )
  129.               (setq lst1 (vl-remove x lst1))
  130.               (setq lst1N (vl-remove x lst1N))
  131.               (setq str0 (strcat str0 str))
  132.               (entdel x)
  133.             )
  134.           )
  135.         )
  136.         (if Flag
  137.           (entmod (subst (cons 2 str0) (assoc 2 en0) en0))
  138.           (entmod (subst (cons 1 str0) (assoc 1 en0) en0))
  139.         )
  140.       )
  141.       ;;第4步 移动 如果text attdef长度大于表格，处理比例因子
  142.       (setq w (abs (car (apply 'mapcar (cons '- pts)))))    ;包围盒长度
  143.       (setq h (abs (cadr (apply 'mapcar (cons '- pts)))))   ;包围盒高
  144.       (setq Height (abs (cadr (apply 'mapcar (cons '- Pe))))) ;字高
  145.       (setq n (length lst1N))                                    ;行
  146.       (setq h (/ h n))                                            ;字间距
  147.       (cond ((equal key "ML")
  148.              (setq p0 (list (+ (caar pts) (* Height 0.5)) (cadadr pts)));右移半个字
  149.             )
  150.             ((equal key "MC")
  151.              (setq p0 (list (+ (caar pts) (* w 0.5)) (cadadr pts)))
  152.             )
  153.             (T (setq p0 (list (- (caadr pts) (* Height 0.5)) (cadadr pts))));左移半个字
  154.       )
  155.       (setq p0 (mapcar '+ p0 (list 0 (* h 0.5))))            ;便于下面增加
  156.       (foreach x lst1N
  157.         (setq p0 (mapcar '- p0 (list 0 h)))                    ;步长
  158.         (setq obj (vlax-ename->vla-object x))
  159.         (setq Pe (Entity:Box x))
  160.         (cond
  161.           ((equal key "ML")
  162.            (setq MidPt (list (caar pe) (* (+ (cadar pe) (cadadr pe)) 0.5)))
  163.           )                                                    ;实体左中点
  164.           ((equal key "MC") (setq MidPt (apply 'MJ:MIDPOINT Pe))) ;实体中点
  165.           (T (setq MidPt (list (caadr pe) (* (+ (cadar pe) (cadadr pe)) 0.5))));实体右中点
  166.         )
  167.         (vl-cmdf "_.MOVE" x "" MidPt p0)
  168.         ;;如果text attdef长度大于表格，处理比例因子
  169.         (if
  170.           (member (vlax-get obj 'ObjectName) (list "AcDbText" "AcDbAttributeDefinition"))
  171.            (progn
  172.              (setq ScaleFactor (vlax-get obj 'ScaleFactor))
  173.              (setq width (abs (car (apply 'mapcar (cons '- Pe))))) ;字长
  174.              (setq w (- w Height))                            ;减去一个字高
  175.              (if (> width w)
  176.                (progn
  177.                  (setq ScaleFactor (* (/ w width) ScaleFactor))
  178.                  (vlax-put obj 'ScaleFactor ScaleFactor)
  179.                )
  180.              )
  181.            )
  182.         )
  183.       )
  184.     )
  185.   )
  186.   ;;4 表格内非文字
  187.   (defun do3 (ss code MYSS sSet / FIL H H1 HEIGHT I LST LST1 LST1N P P0 PE PT PTS SS1 W W0 X Y0)
  188.     ;;第1步 行间距,取第一个对象来确定行间距(setq ss(ssget))
  189.     (setq x (ssname ss 0))
  190.     (setq h (apply 'mapcar (cons '- (Entity:Box x))))
  191.     (setq h (abs (cadr h)))
  192.     (setq fil (list (assoc 0 (entget x))))
  193.     ;;第2步 多行多列
  194.     (setq lst (HH:ssPts:Sort ss "Yx" (* h 0.5)))            ;Y坐标大，排在前；Y相同时，x坐标大排在前
  195.     ;;(setq lst (HH:ssPts:Sort ss "xY" (* h 0.5)))            ;x坐标小，排在前；x坐标相同，Y坐标大排在前
  196.     (while (setq x (car lst))
  197.       (setq lst (cdr lst))
  198.       (setq Pe (Entity:Box x))
  199.       (entdel x)
  200.       (ssdel x MYSS)
  201.       (setq pts (HH_PtInCurve (apply 'MJ:MIDPOINT Pe) MYSS)) ;实体所在外盒包围点
  202.       (entdel x)
  203.       ;;ssget "C"可能选择到表格；ssget "W"又选择不到大于表格的，ChooseP1P2也许是不错的选择
  204.       (setq ss1 (ChooseP1P2 (car pts) (cadr pts) fil))
  205.       (ssadd x ss1)
  206.       (repeat (setq i (sslength ss1))
  207.         (setq x (SsName ss1 (setq i (1- i))))
  208.         (setq lst (vl-remove x lst))
  209.         (ssadd x sSet)                                            ;(command "._Select" sSet "_Add" ss1 "")
  210.       )
  211.       
  212.       ;;第3步 移动
  213.       ;;以p0为基点，小于w0均视为同列
  214.       (setq lst1N (HH:ssPts:Sort ss1 "Yx" (* h 0.5)));Y坐标大，排在前；Y相同时，x坐标大排在前
  215.       (setq w (abs (car (apply 'mapcar (cons '- pts)))))    ;包围盒长度
  216.       (setq h (abs (cadr (apply 'mapcar (cons '- pts)))))   ;包围盒高
  217.       (setq Height (abs (cadr (apply 'mapcar (cons '- Pe)))))
  218.       (setq w0 (abs (car (apply 'mapcar (cons '- Pe)))));实体宽度
  219.       (setq y0 (cadr (cdr (assoc code (entget (car lst1N)))))) ;左上的Y坐标
  220.       (setq h1 (* w0 1.5));间距
  221.       (while lst1N
  222.         (setq i -1)
  223.         (setq lst1 lst1N)
  224.         (setq p (cdr (assoc code (entget (car lst1)))))
  225.         (setq p0 (list (car p) y0))                            ;每行最上对象的坐标
  226.         (while (setq x (car lst1))
  227.           (setq lst1 (cdr lst1))
  228.           (setq p (cdr (assoc code (entget x))))            ;p为坐标
  229.           (if (equal (car p) (car p0) w0)                    ;如果x坐标小于最大宽度，认为是同一列
  230.             (progn
  231.               (setq pt (mapcar '- p0 (list 0 (* (setq i (1+ i)) h1))))
  232.               (vl-cmdf "_.MOVE" x "" p pt)
  233.               (setq lst1N (vl-remove x lst1N))
  234.             )
  235.           )
  236.         )
  237.       )
  238.     )
  239.   )

  241.   ;;主程序
  242.   (if (findfile "actscale.arx")
  243.     (ARXLOAD "actscale.arx")
  244.   )
  245.   (if (findfile "acTscale.crx")
  246.     (ARXLOAD "acTscale.crx")
  247.   )
  248.   (princ "\n 单行文字、多行文字、圆、块，择其一类对齐")
  249.   (setq sSet (_StartSSget '((0 . "*TEXT,ATTDEF,ARC,ELLIPSE,INSERT,CIRCLE"))))
  250.   (if sSet
  251.     (progn
  252.       (vl-load-com)
  253.       (command "._ucs" "_W")
  254.       (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  255.       (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  256.       (_StartUndo *DOC*)
  257.       (setq VARLIST (list "cmdecho" "osmode" "shortcutmenu"))
  258.       (setq valist0 (HH:Once=>get VARLIST))
  259.       (HH:Once=>Init VARLIST (list 0 0 11))
  260.       (setq vartxtlst (list "sSetText" "sSetMText" "sSetCIRCLE" "sSetINSERT"))
  261.       (setq filterlst (list "TEXT,ATTDEF" "MTEXT" "CIRCLE,ARC,ELLIPSE,*LINE" "INSERT"))
  262.       (mapcar '(lambda (x) (set (read x) nil)) vartxtlst)   ;加载失败后改进方案，增加此句
  263.       (apply 'optimizeCode (list sSet vartxtlst filterlst))
  264.       (setq Flag (or sSetText sSetMText))                    ;T表示文字
  265.       ;;只取其中一类
  266.       (setq ss nil)                                            ;加载失败后改进方案，增加此句
  267.       (setq ss (cond (sSetText)
  268.                      (sSetMText)
  269.                      (sSetCIRCLE)
  270.                      (sSetINSERT)
  271.                )
  272.       )
  273.     )
  274.   )
  275.   ;;如果是文字，预先处理一下
  276.   (cond
  277.     ((and Flag ss)
  278.      (initget "mC mL mR")                                            ;区分大小写
  279.      (setq key (getkword "\n 文本对齐于 [左中(L)/正中(C)/右中(R)]:<L>"))
  280.      (cond ((not key) (setq key "ML")))
  281.      (setq key (strcase key))
  282.      (setq P
  283.             (VL-CATCH-ALL-APPLY
  284.               '(lambda () (command "_.JUSTIFYTEXT" ss "" key))
  285.               nil
  286.             )
  287.      )
  288.      (if (VL-CATCH-ALL-ERROR-P P)
  289.        (progn
  290.          (if (findfile "actscale.arx")
  291.            (ARXLOAD "actscale.arx")
  292.          )
  293.          (if (findfile "acTscale.crx")
  294.            (ARXLOAD "acTscale.crx")
  295.          )
  296.          (command "_.JUSTIFYTEXT" ss "" key)
  297.        )
  298.      )
  299.     )
  300.   )
  301.   ;;如果是单行文字或属性文字，处理组码11
  302.   (cond        (sSetText (setq code 11))
  303.         (T (setq code 10))
  304.   )
  305.   (if ss
  306.     (progn
  307.       ;;取ss内一个对象，判断是否在表格内
  308.       (setq e (ssname ss 0))
  309.       (setq pts (Entity:Box e))                                    ;实体包围盒2角点
  310.       (setq MidPt (apply 'MJ:MIDPOINT pts))                    ;实体中点
  311.       (setq MYSS (HH:viewpnts))                                    ;屏幕2角点
  312.       (setq MYSS
  313.              (ssget "C"
  314.                     (car MYSS)
  315.                     (cadr MYSS)
  316.                     '((0 . "*TEXT,ATTDEF,ELLIPSE,ARC,CIRCLE,*LINE,INSERT"))
  317.              )
  318.       )
  319.       ;;下面几句是本程序关键
  320.       (SS_SSsub1 MYss ss)
  321.       ;;(ssdel e MYss)
  322.       (if (not sSetMText)
  323.         (entdel e)
  324.       )                                                            ;此句对于Leader文字对象，是有影响的，加IF判断
  325.       (setq pts (HH_PtInCurve MidPt MYSS))                    ;第一个实体所在外盒包围点
  326.       (if (not sSetMText)
  327.         (entdel e)
  328.       )
  329.       ;;表格外:按多行多列处理；表格内:文字按多行处理,其余按多行多列处理
  330.       (cond (pts
  331.              (if Flag
  332.                (do1 ss code MYSS key)                            ;文字
  333.                (do3 ss code MYSS sSet)
  334.              )
  335.             )                                                    ;在表格内
  336.             (T (do2 ss code))                                    ;非表格对象
  337.       )
  338.       ;;如果sSet为T,则ss为T,故下面几名可以写在这里
  339.       (HH:Once=>Init VARLIST valist0)
  340.       (_EndUndo *DOC*)
  341.       (command "_.select" sSet "")                            ;因为ss内对象有些已经删除
  342.       (HH::EntSSHighLight (ssget "_p"))
  343.     )
  344.   )
  345.   (GC)
  346.   (princ "\n 黄明儒温馨提示:对象对齐 AO")                    ;原ayEntSSHighLight
  347.   (princ)
  348. )

  350. ;;[功能] 选择集相减(command "._Select" ss1 "_Remove" ss2 "")
  351. (defun SS_SSsub1 (SS1 SS2 / I)
  352.   (repeat (setq i (sslength SS2))
  353.     (SsDel (SsName SS2 (setq i (1- i))) SS1)
  354.   )
  355. )

评分

参与人数 1D豆 +5 贡献 +1 收起 理由
newer + 5 + 1 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2020-6-11 15:39:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
老黄原来看神剧去了啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2020-6-11 15:42:58 | 显示全部楼层
newer 发表于 2020-6-11 15:39
老黄原来看神剧去了啊

还看了十部官场小说，其中《对手》不错。关于赌徒的小说《千手》也很错哟
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

yoyoho

已领礼包: 8970个

财富等级: 富甲天下
发表于 2020-6-11 23:27:02 | 显示全部楼层
感谢黄老师分享 收藏了!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

dwg001

已领礼包: 1个

财富等级: 恭喜发财
发表于 2020-6-12 07:22:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
好东东，谢谢分享。
;;缺少函数
;; HH:ONCE=>INIT
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

既然青春留不住

已领礼包: 166个

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

使用道具 举报

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

使用道具 举报

既然青春留不住

已领礼包: 166个

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-14 01:58 , Processed in 0.423921 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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