明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 9579|回复: 33

[原创]带属性序号球,有动态拖拽效果,欢迎测试使用!

  [复制链接]
发表于 2006-11-10 18:30 | 显示全部楼层 |阅读模式
上传的附件哪里去了?有没有版主介绍一下发帖规则?


  
  
  
  1. ;;属性序号球  BY HB.LEE 2006-11-10;
  2. (PRINC "\n*** 带属性序号球绘制, 命令: GJ . BY HB.Lee  2006-11-10. ***")
  3. (Defun C:GJ  (/  Actdoc  Addor  Attball Att_Bl Att_Gjh  Att_Pref
  4.           Att_Str Def_Gjh  Firstpt  Gjbl Gj_Id  I  Insertpt  Mspace
  5.           Oldcmd  Oldcurs  Oldlay  Oldos  Pref  Startpt Att_Addor
  6.            )
  7.     (Vl-Load-Com)
  8.     ;;错误处理函数
  9.     (Defun *$Myerror$*    (Msg)
  10.     (Redraw)
  11.     (Setvar "Osmode" Oldos)
  12.     (Setvar "Clayer" Oldlay)
  13.     (Setvar "Cursorsize" Oldcurs)
  14.     ;;确保出错时插入的块能删除
  15.     (If Attball (Vla-Delete Attball))
  16.     (Setvar "Cmdecho" Oldcmd)
  17.     (Setq *Error* &Olderr&)
  18.         (Princ "*取消*")
  19.     (Princ)
  20.     )
  21.     (Setq &Olderr& *Error*)
  22.     (Setq *Error* *$Myerror$*)
  23.     (Setq Actdoc (Vla-Get-Activedocument (Vlax-Get-Acad-Object)))
  24.     (Setq Mspace (Vla-Get-Modelspace Actdoc))
  25.     (Setq Oldlay (Getvar "Clayer"))
  26.     (Setq Oldos (Getvar "Osmode"))
  27.     (Setq Oldcmd (Getvar "Cmdecho"))
  28.     (Setq Oldcurs (Getvar "Cursorsize"))
  29.     (Setvar "Cmdecho" 0)
  30.     (Vla-Startundomark Actdoc)
  31.     (Setq Gj_Id T)
  32.     ;;捕捉方式设定
  33.     (Setvar "Osmode" (+ 1 2 32 128 512))
  34.     (While Gj_Id
  35.     (Initget 128 "P C S B")
  36.     ;;设置初始比例
  37.     (Setq Gjbl (Vlax-Ldata-Get "Attball" "Gjbl"))
  38.     (If (Not Gjbl) (Setq Gjbl (Rtos (Getvar "Dimscale") 2 2)))
  39.     ;;设置编号前缀
  40.     (Setq Pref (Vlax-Ldata-Get "Attball" "Prefix"))
  41.     (If (OR (= "" Pref) (= NIL Pref))
  42.         (Progn (Setq Pref "") (Princ "\n当前编号无前缀!"))
  43.         (Princ (Strcat "\n当前编号前缀:" Pref))
  44.         )
  45.     ;;设置序号递增或递减,默认递增
  46.     (Setq Addor (Vlax-Ldata-Get "Attball" "Addor"))
  47.     (If (AND ADDOR (= Addor "N"))
  48.       (Princ "   序号递减!")
  49.       (PROGN (Princ "   序号递增!") (SETQ Addor "Y"))
  50.     )
  51.         (Setq Att_Addor Addor)
  52.     ;;改变序号
  53.     (Setq Def_Gjh (Vlax-Ldata-Get "Attball" "Gjh_N"))
  54.     (If (Not Def_Gjh) (Setq Def_Gjh "1"))
  55.     ;;设置默认字符串
  56.     (Setq Att_Str (Strcat Pref Def_Gjh))
  57.     (Setq Att_Gjh Def_Gjh)
  58.     (Setq Att_Bl (Atof Gjbl))
  59.     (Setq Att_Pref Pref)
  60.     (Setq Startpt
  61.          (Getpoint
  62.              (Strcat
  63.              "\n输入构件号引出点或[改绘图比例(S)/改编号前缀(P)/递增或递减(C)/改当前序号(B)]<"
  64.              Att_Str
  65.              ">:"
  66.              )
  67.              )
  68.           )
  69.     (Cond
  70.         ;;设置初始比例
  71.         ((Or (= Startpt "S") (= Startpt "s"))
  72.          (Setq Att_Bl (Getreal (Strcat "\n请输入新的绘图比例<" Gjbl ">:")))
  73.          (If (Not Att_Bl) (Setq Att_Bl (Atof Gjbl)))
  74.          (Vlax-Ldata-Put "Attball" "Gjbl" (Rtos Att_Bl 2 2))
  75.          )
  76.         ;;设置编号前缀
  77.         ((Or (= Startpt "P") (= Startpt "p"))
  78.          (IF (= "" PREF)
  79.            (Setq Att_Pref (Getstring (Strcat "\n若需前缀,请输入编号前缀:")))
  80.            (Setq Att_Pref (Getstring (Strcat "\n若需前缀,请输入编号前缀<" Pref ">:")))
  81.          )
  82.          (If (Not Att_Pref) (Setq Att_Pref Nil))
  83.          (Vlax-Ldata-Put "Attball" "Prefix" Att_Pref)
  84.          )
  85.         ;;设置序号递增或递减,默认递增
  86.         ((Or (= Startpt "C") (= Startpt "c"))
  87.          (Setq Att_Addor (Getstring (Strcat "\n序号是否按顺序递增<" Addor ">:")))
  88.          (If (/= (Strcase Att_Addor) "N") (Setq Att_Addor "Y"))
  89.          (Vlax-Ldata-Put "Attball" "Addor" (Strcase Att_Addor))
  90.          )
  91.         ;;改当前序号
  92.         ((Or (= Startpt "B") (= Startpt "b"))
  93.          (Setq Att_Gjh
  94.               (Getint
  95.               (Strcat "\n请输入新的序号[当前默认序号<" Def_Gjh ">]:")
  96.               )
  97.            )
  98.          (Vlax-Ldata-Put "Attball" "Gjh_N" (Itoa Att_Gjh))
  99.          (If (Not Att_Gjh)
  100.          (Setq Att_Str (Strcat Pref Def_Gjh))
  101.          (Setq Att_Str (Strcat Pref (Itoa Att_Gjh)))
  102.          )
  103.          )
  104.         ;;得到坐标,设置插入点
  105.         ((= (Type Startpt) 'List)
  106.          (If (Null (Tblobjname "Block" (Strcat "Lhb_No_" Att_Pref)))
  107.         (Progn
  108.           (Entmake_Att 2.5 Att_Str Att_Pref)
  109.           (Entdel (Entlast))
  110.         )
  111.          )
  112.          (Setq Insertpt (Vlax-3d-Point (Polar Startpt 0 (* Att_Bl 2.5))))
  113.          (Setq Attball (Vla-Insertblock Mspace Insertpt (Strcat "Lhb_No_" Att_Pref)
  114.                  Att_Bl
  115.                  Att_Bl
  116.                  1
  117.                  0
  118.                )
  119.          )
  120.          (Foreach I (Vlax-Safearray->List
  121.               (Vlax-Variant-Value
  122.                 (Vla-Getattributes Attball)
  123.               )
  124.             )
  125.            (Vla-Put-Textstring I Att_Str) ;属性值
  126.            (Vla-Put-Tagstring I Att_Str) ;标签
  127.            (If (> (Strlen Att_Str) 2) (Vla-Put-Scalefactor I 0.5)
  128.            )
  129.          )
  130.          ;;动态预览
  131.          (View_Gj Attball Startpt Att_Bl)
  132.          (Setq Attball Nil)
  133.          ;;序号递增或递减
  134.          (If (/= (Strcase Att_Addor) "N")
  135.          (Progn
  136.              (Setq Def_Gjh (Itoa (1+ (Atoi Def_Gjh))))
  137.              (Vlax-Ldata-Put "Attball" "Gjh_N" Def_Gjh)
  138.              )
  139.          (Progn
  140.              (Setq Def_Gjh (Itoa (1- (Atoi Def_Gjh))))
  141.              (If (< (Atoi Def_Gjh) 0)
  142.              (Progn    (Setq Def_Gjh "0")
  143.                 (Princ "\n***  编号不能为负数!  ***")
  144.                 )
  145.              )
  146.              (Vlax-Ldata-Put "Attball" "Gjh_N" Def_Gjh)
  147.              )
  148.          ); END IF
  149.          )            ; End TYPE
  150.          ;;动态预览
  151.          (View_Gj Attball Startpt Att_Bl)
  152.          (Setq Attball Nil)
  153.          ;;序号递增或递减
  154.          (If (/= (Strcase Att_Addor) "N")
  155.          (Progn
  156.              (Setq Def_Gjh (Itoa (1+ (Atoi Def_Gjh))))
  157.              (Vlax-Ldata-Put "Attball" "Gjh_N" Def_Gjh)
  158.              )
  159.          (Progn
  160.              (Setq Def_Gjh (Itoa (1- (Atoi Def_Gjh))))
  161.              (If (< (Atoi Def_Gjh) 0)
  162.              (Progn    (Setq Def_Gjh "0")
  163.                 (Princ "\n***  编号不能为负数!  ***")
  164.                 )
  165.              )
  166.              (Vlax-Ldata-Put "Attball" "Gjh_N" Def_Gjh)
  167.              )
  168.          )                ;End Type
  169.         (T (Setq Gj_Id Nil) (PRINC "\n无效的选择或者输入!请重新确认."))
  170.         )
  171.     )
  172.     (Setvar "Clayer" Oldlay)
  173.     (Setvar "Cursorsize" Oldcurs)
  174.     (Vla-Endundomark Actdoc)
  175.     (Setvar "Osmode" Oldos)
  176.     (Setvar "Cmdecho" Oldcmd)
  177.     (Setq *Error* &Olderr&)
  178.     (Princ)
  179.     )
  180. ;;;构件编号动态预览
  181. (DEFUN VIEW_GJ    (VOBJ     VBASEPT VBL     /     DIST     FIRSTPT
  182.          LOOP_ID NEWCENPT     PT1     PT10     PT11
  183.          PT12     PT2     PT3     PT4     PT5     PT6
  184.          PT7     PT8     PT9     VANGLE     VPOINT     VPOINTENT
  185.          MOVEPT)
  186.     (SETQ LOOP_ID T)
  187.     (SETQ ALPHA 0)
  188.     (SETVAR "CURSORSIZE" 1)        ;将光标大小设置为1,最小尺寸
  189.     (PRINC "\n请输入构件号标注点:")
  190.     (WHILE LOOP_ID
  191.     (SETQ VPOINTENT (GRREAD T 4 1))
  192.     (IF (= 5 (CAR VPOINTENT))    ;鼠标跟踪
  193.         (PROGN
  194.         (REDRAW)
  195.         (SETQ VPOINT (CADR VPOINTENT))
  196.         (SETQ MOVEPT VPOINT)    ;记录直线第二点
  197.         (SETQ DIST (DISTANCE VBASEPT VPOINT))
  198.         (SETQ VANGLE (ANGLE VBASEPT VPOINT))
  199.         (SETQ NEWCENPT (POLAR VBASEPT VANGLE (+ DIST (* VBL 2.5))))
  200.         (SETQ FIRSTPT (Vlax-3d-Point NEWCENPT))
  201.         (VLA-PUT-INSERTIONPOINT VOBJ FIRSTPT)
  202.         (GRVECS (LIST 2 VBASEPT VPOINT))
  203.         ;;================================================================
  204.         ;;动态旋转“奔驰”标志,此段可去掉,纯属好玩。
  205.         ;;标注点标志
  206.         (SETQ PT1 (POLAR VPOINT (+ ALPHA (* PI 0.5)) (* VBL 1.0))
  207.               PT2 (POLAR VPOINT (+ ALPHA (/ (* PI 7) 6)) (* VBL 1.0))
  208.               PT3 (POLAR VPOINT (+ ALPHA (/ (* PI 11) 6)) (* VBL 1.0))
  209.               PT4 (POLAR VPOINT (+ ALPHA (/ (* PI 5) 6)) (* VBL 0.268))
  210.               PT5 (POLAR VPOINT (+ ALPHA (* PI 1.5)) (* VBL 0.268))
  211.               PT6 (POLAR VPOINT (+ ALPHA (/ PI 6)) (* VBL 0.268))
  212.               )
  213.         (GRVECS    (LIST 1        PT1      VPOINT      1        PT2      VPOINT
  214.                   1        PT3      VPOINT      6        PT4      VPOINT
  215.                   6        PT5      VPOINT      6        PT6      VPOINT
  216.                   6        PT1      PT4    6     PT4   PT2      6
  217.                   PT2   PT5      6    PT5   PT3   6      PT3
  218.                   PT6   6      PT6    PT1)
  219.             )
  220.         ;;引出点标志
  221.         (SETQ PT7  (POLAR VBASEPT (+ ALPHA (* PI 0.5)) (* VBL 1.0))
  222.               PT8  (POLAR VBASEPT (+ ALPHA (/ (* PI 7) 6)) (* VBL 1.0))
  223.               PT9  (POLAR VBASEPT (+ ALPHA (/ (* PI 11) 6)) (* VBL 1.0))
  224.               PT10 (POLAR VBASEPT (+ ALPHA (/ (* PI 5) 6)) (* VBL 0.268))
  225.               PT11 (POLAR VBASEPT (+ ALPHA (* PI 1.5)) (* VBL 0.268))
  226.               PT12 (POLAR VBASEPT (+ ALPHA (/ PI 6)) (* VBL 0.268))
  227.               )
  228.         (GRVECS    (LIST 1         PT7    VBASEPT      1     PT8
  229.                   VBASEPT        1       PT9      VBASEPT
  230.                   5         PT10   VBASEPT      5     PT11
  231.                   VBASEPT        5       PT12      VBASEPT
  232.                   5         PT7    PT10   5      PT10     PT8
  233.                   5         PT8    PT11   5      PT11     PT9
  234.                   5         PT9    PT12   5      PT12     PT7)
  235.             )
  236.             ;;设置三角星旋转速度,若想加快可将0.056适当加大,如0.112.
  237.             (SETQ ALPHA (+ ALPHA (* PI 0.084)))
  238.         ;;================================================================
  239.         )
  240.         )
  241.         ;; 若点击鼠标左、右键或键盘任意按键,则取得当前鼠标位置,并绘制符号
  242.     (IF (OR    (= 3 (CAR VPOINTENT))
  243.         (= 2 (CAR VPOINTENT))
  244.         (= 11 (CAR VPOINTENT))
  245.         )
  246.         (PROGN
  247.         (REDRAW)
  248.         (SETQ LOOP_ID NIL)
  249.                 ;;绘制直线
  250.         (SETVAR "CLAYER" "构件符号")
  251.         (SETQ STARTPT (Vlax-3d-Point VBASEPT))
  252.         (SETQ ENDPT (Vlax-3d-Point MOVEPT))
  253.         (VLA-ADDLINE MSPACE STARTPT ENDPT)
  254.         )
  255.         )
  256.     )                ;END WHILE
  257.     (SETVAR "CURSORSIZE" OLDCURS)
  258.     (PRINC)
  259.     )                    ;DEFUN VIEW_GJ
  260. ;;建立属性编号
  261. (DEFUN ENTMAKE_ATT  (CIRRAD TEXT PREFIX / CHK_LAYER CHK_STYLE BLKNAME BLKN LST0
  262.              LST1)
  263.     ;;建立编号圆圈图层
  264.     (SETQ CHK_LAYER (TBLSEARCH "LAYER" "构件符号"))
  265.     (IF    (= CHK_LAYER NIL)
  266.     (PROGN
  267.         (ENTMAKE (LIST
  268.              '(0 . "LAYER")
  269.              '(100 . "AcDbSymbolTableRecord")
  270.              '(100 . "AcDbLayerTableRecord")
  271.              '(6 . "continuous") ;线型
  272.              '(62 . 2)    ;颜色
  273.              '(70 . 0)    ;图层状态
  274.              (CONS 2 "构件符号") ;图层名
  275.              )
  276.              )
  277.         )
  278.     )
  279.     ;;建立编号文字图层
  280.     (SETQ CHK_LAYER (TBLSEARCH "LAYER" "构件编号"))
  281.     (IF    (= CHK_LAYER NIL)
  282.     (PROGN
  283.         (ENTMAKE (LIST
  284.              '(0 . "LAYER")
  285.              '(100
  286.                .
  287.                "AcDbSymbolTableRecord")
  288.              '(100 . "AcDbLayerTableRecord")
  289.              '(6 . "continuous") ;线型
  290.              '(62 . 6)    ;颜色
  291.              '(70 . 0)    ;图层状态
  292.              '(2 . "构件编号") ;图层名
  293.              )
  294.              )
  295.         )
  296.     )
  297.     ;;建立编号文字字型
  298.     (SETQ CHK_STYLE (TBLSEARCH "STYLE" "NUM_STYLE"))
  299.     (IF    (= CHK_STYLE NIL)
  300.     (ENTMAKE (LIST
  301.              '(0 . "STYLE")    ;对象名称
  302.              '(100 . "AcDbSymbolTableRecord")
  303.              '(100
  304.                .
  305.                "AcDbTextStyleTableRecord") ;子类标记
  306.              '(2 . "NUM_STYLE")    ;字体样式名
  307.              '(70 . 0)        ;标注位码
  308.              '(40 . 0.0)    ;文字高度
  309.              '(41 . 0.7)    ;宽度系数
  310.              '(50 . 0.0)    ;字斜角
  311.              '(71 . 0)        ;文字生成标注位码2=反向,4=颠倒
  312.              '(3 . "TSSDENG.shx") ;西文字体名
  313.              '(4 . "HZTXT.shx")    ;中文字体名
  314.              ) ;_ 结束LIST
  315.          ) ;_ 结束ENTMAKE
  316.     ) ;_ 结束IF
  317.    
  318.     ;;设置属性块名
  319.     (SETQ BLKNAME (Strcat "Lhb_No_" PREFIX))
  320.     (ENTMAKE
  321.     (LIST '(0 . "BLOCK")
  322.           (CONS 2 BLKNAME)        ;图块名称
  323.           '(70 . 2)            ;设置属性块是否可以编辑
  324.           '(10 0.0 0.0 0.0))    ;基准点
  325.     )
  326.     (ENTMAKE (LIST '(0 . "CIRCLE")
  327.            '(100 . "AcDbEntity")
  328.            '(67 . 0)
  329.            '(8 . "构件符号")    ;图层名称
  330.            '(100 . "CIRCLE")
  331.            '(10 0.0 0.0 0.0)    ;中心点
  332.            (CONS 40 CIRRAD)    ;半径
  333.            '(210 0.0 0.0 1.0)
  334.            )
  335.          )
  336.     (ENTMAKE (LIST '(0 . "ATTDEF")
  337.            '(100 . "AcDbEntity")
  338.            '(67 . 0)
  339.            '(8 . "构件编号")    ;图层名称
  340.            '(100 . "AcDbText")
  341.            '(10 -1.08 -1.75 0.0) ;文字起点
  342.            (CONS 40 (+ CIRRAD 1.0)) ;文字高度
  343.            '(1 . "A")        ;默认值
  344.            '(50 . 0)        ;文字旋转
  345.            '(41 . 0.7)        ;相对X比例系数
  346.            '(51 . 0.0)        ;倾斜角度
  347.            '(7 . "NUM_STYLE")    ;文字字型
  348.            '(71 . 0)        ;文字产生的标志
  349.            '(72 . 1)        ;水平文字的对齐类型
  350.            '(11 0.0 0.0 0.0)    ;对齐点,只有在72与74非0才有意义
  351.            '(210 0.0 0.0 1.0)    ;挤出方向
  352.            '(100 . "AcDbAttributeDefinition")
  353.            '(3 . "编号属性")    ;提示字符串
  354.            '(2 . "A")        ;卷标字符串
  355.            '(70 . 0)        ;属性标志
  356.            '(73 . 0)        ;字段长度
  357.            '(74 . 2)        ;垂直文字的对齐类型
  358.            )
  359.          )
  360.     (SETQ BLKN (ENTMAKE '((0 . "ENDBLK"))))
  361.     (SETQ LST0 (LIST '(0 . "INSERT") '(100 . "AcDbEntity") '(67 . 0)
  362.              '(8 . "构件符号")    ;图层
  363.              '(100 . "AcDbBlockReference") '(66 . 1) '(10 0.0 0.0 0.0)
  364.                     ;插入点
  365.              '(41 . 1.0)    ;x
  366.              '(42 . 1.0)    ;y
  367.              '(43 . 1.0)    ;z
  368.              '(50 . 0.0)    ;旋转角度
  369.              '(70 . 0)        ;插入行数
  370.              '(71 . 0)        ;插入列数
  371.              '(44 . 0.0)    ;行间距
  372.              '(45 . 0.0)    ;列间距
  373.              '(210 0.0 0.0 1.0))
  374.       )
  375.     (SETQ LST1 (APPEND LST0 (LIST (CONS 2 BLKN))))
  376.     (ENTMAKE LST1)
  377.     (ENTMAKE (LIST '(0 . "ATTRIB")
  378.            '(5 . "26")
  379.            '(100 . "AcDbEntity")
  380.            '(67 . 0)
  381.            '(8 . "构件编号")    ;图层名称
  382.            '(100 . "AcDbText")
  383.            '(10 -1.08 -1.75 0.0) ;文字起点
  384.            (CONS 40 (+ CIRRAD 1.0)) ;文字高度
  385.            (CONS 1 TEXT)    ;默认值
  386.            '(50 . 0)        ;文字旋转
  387.            '(41 . 0.7)        ;相对X比例系数
  388.            '(51 . 0.0)        ;倾斜角度
  389.            '(7 . "NUM_STYLE")    ;文字字型
  390.            '(71 . 0)        ;文字产生的标志
  391.            '(72 . 1)        ;水平文字的对齐类型
  392.            '(11 0.0 0.0 0.0)    ;对齐点,只有在72与74非0才有意义
  393.            '(210 0.0 0.0 1.0)    ;挤出方向
  394.            '(100 . "AcDbAttribute")
  395.            (CONS 2 TEXT)    ;卷标字符串
  396.            '(70 . 0)        ;属性标志
  397.            '(73 . 0)        ;字段长度
  398.            '(74 . 2)        ;垂直文字的对齐类型
  399.            )
  400.          )
  401.     (ENTMAKE '((0 . "SEQEND")))
  402.     (PRINC)
  403.     )

点评

谢谢分享!  发表于 2012-3-14 20:43

评分

参与人数 2明经币 +3 金钱 +20 贡献 +5 激情 +5 收起 理由
断箭 + 1 很给力!
mccad + 2 + 20 + 5 + 5 【精华】好程序

查看全部评分

发表于 2024-1-9 14:00 | 显示全部楼层
效果很好的程序,多谢分享
发表于 2020-6-14 18:47 | 显示全部楼层
效果很好的程序,多谢分享
发表于 2020-8-13 22:44 | 显示全部楼层
真会玩,这是在虐lsp么
发表于 2006-11-10 22:44 | 显示全部楼层
程序文件是不是没有格式化,看起来很乱!
 楼主| 发表于 2006-11-10 22:47 | 显示全部楼层
我不知道怎么帖源码?有没有版主帮帮忙?
发表于 2006-11-11 00:38 | 显示全部楼层
例如
  1. ;程序主程序
  2. (defun c:xxx()sddd)
代码前加

本帖子中包含更多资源

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

x
 楼主| 发表于 2006-11-11 08:43 | 显示全部楼层
我加上[code]就变成一片混乱了,不知道是不是行数太多了?另外我传得附件不知到哪里去了?
发表于 2006-11-11 20:22 | 显示全部楼层
程序很长,看来够学习阵子了,楼主辛苦了!
发表于 2006-11-14 12:51 | 显示全部楼层
能不能让直线和圆、数字成为一体,并且在拖动直线端点时,使直线始终通过圆心(好像是通过反应器),谢谢。。。
 楼主| 发表于 2006-11-14 22:04 | 显示全部楼层
呵呵,反应器这玩意儿还不会玩!
发表于 2006-11-16 23:04 | 显示全部楼层
感谢楼主提供。
发表于 2010-7-16 04:09 | 显示全部楼层
呵呵,旧贴子了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:52 , Processed in 0.281437 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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