设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 装修用动态剖切索引号，自己动手完成了
123下一页
返回列表 发新帖
查看: 7635|回复: 26

[基础] 装修用动态剖切索引号，自己动手完成了

[复制链接]
無恒的地盘
发表于 2013-4-11 20:55:41 | 显示全部楼层 |阅读模式
本帖最后由 無恒的地盘 于 2013-5-12 19:13 编辑
  2. ;;;剖切符号
  3. (defun sy_begin        ()
  4.   (setq oderr *error*);;;保存原来的*error*
  5.   (setq *error* sy_err);;将*error*用自己的错误处理函数替代
  6.   (setq odltp (getvar "celtype"));;;记录当前线型设置
  7.   (setq odclr (getvar "cecolor"));;;记录当前颜色设置
  8.   (setq odosm (getvar "osmode"));;;记录当前捕捉方式
  9.   (setq odlay (getvar "clayer"));;;记录当前层
  10.   (setq odsty (getvar "textstyle"));;;记录当前文本样式;;;(setq odtsz (getvar "textsize"));;;记录当前文本高度
  11.   (setq odbpm (getvar "blipmode"));;;记录当前控制点标记是否可见
  12.   (setq odcmd (getvar "cmdecho"));;;记录命令行回显方式
  13.   (setq odORT (getvar "ORTHOMODE"))
  14.   (setvar "celtype" "bylayer");;;设置线形随层
  15.   (setvar "cecolor" "bylayer")
  16.   (setvar "cecolor" "6");;;设置颜色随层
  17.   (setvar "cmdecho" 0);;;设置命令行不回显
  18.   (setvar "ORTHOMODE" 1)
  19.   (setvar "blipmode" 0);;;不显示控制点标记
  20.   (setvar "osmode" 0);;;关闭对象捕捉方式)
  21. )
  22. ;;;BZ_end
  23. ;;;功 能：程序结束，恢复程序开始前的设置。
  24. ;;;恢复BZ_begin设置的系统变量表中的数值。
  25. ;;;说 明：和函数BZ_begin配对使用。
  26. (defun sy_end ()
  27.   (setvar "celtype" odltp)
  28.   (setvar "cecolor" odclr)
  29.   (setvar "osmode" odosm)
  30.   (setvar "ORTHOMODE" odort)
  31.   (setvar "textstyle" odsty)
  32.   (setvar "blipmode" odbpm)
  33. ;;;(setvar "textsize" odtsz)
  34. ;;;(setvar "dimzin" odzin);;;恢复主单位值消零处理方式
  35.   (command "layer" "s" odlay "")
  36.   (setvar "cmdecho" odcmd)
  37.   (setq *error* oderr);;;恢复原来的*error*
  38.   (princ)
  39. )
  40. ;;;BZ_err
  41. ;;;功 能：错误处理函数
  42. (defun sy_err (msg)
  43.   (princ (strcat "\n错误:" msg "\n")) ;;打印错误原因
  44.   (sy_end) ;;调用函数BZ_end恢复程序开始前的设置
  45.   (setq *error* oderr) ;;恢复原来的*error*
  46.   (princ)
  47. )

  49. ;;;上面部分为网上搜集
  50. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  51. (defun sw_sett ()
  52.   (if (null *scalesy)
  53.     (setq *scalesy 10)
  54.   )
  55.   (setq scalesy (getint (strcat "\n请输入比例<" (itoa *scalesy) ">：")))
  56.   (if scalesy
  57.     (setq *scalesy scalesy)
  58.     (setq scalesy *scalesy)
  59.   )
  60.   (c:sw_pp)
  61. )
  62. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  63. (defun c:sw_pp ()
  64.   (sy_begin);;;设置系统变量
  65. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  66.   (IF (= (TBLSEARCH "BLOCK" "sw_dysytb") nil);;;判断索引块是否存在，否则创建。
  67.     (PROGN
  68.       (setvar "CMDECHO" 0);;;关闭回显
  69.       (vl-cmdf "OSMODE" "0");;;关闭对象捕捉
  70.       (vl-cmdf "ORTHO" "on");;;关闭正交
  71.       (if (= nil (tblsearch "layer" "0"))  (vl-cmdf "layer" "N" "0" "C" "bylayer" ""));;;设置当前图层
  72. ;;;(vl-cmdf "style" "黑体" "SIMHEI.TTF" "0" "0.8" "0" "N" "N");;;设置文字样式
  73. ;;;编组
  74.       (setq ss1 (ssadd))
  75.       (vl-cmdf "circle" "0.0,0.0,0.0" "4")
  76. ;;;绘制圆
  77. ;;;(ssadd (entlast) ss1)
  78.       (ssadd (setq sn1 (entlast)) ss1)
  79. ;;;(polar sy_pt (/ pi 2) 1.5)
  80. ;;;(vl-cmdf "-attdef" "" "A" "A" "A" "j" "c" (polar sy_pt (/ pi 2) 0.4) "2.8" "0")
  81.       (vl-cmdf "-attdef" ""  "A"  "A"  "A"  "j"  "c" "0.0,0.4,0.0"  "2.8" "0")
  82. ;;;(ssadd (entlast) ss1)
  83.       (ssadd (setq sn2 (entlast)) ss1)
  84. ;;;(vl-cmdf "-attdef" "" "E-01" "E-01" "E-01" "j" "c" (polar sy_pt1 (- (/ pi 2)) 2.5) "1.6" "0")
  85.       (vl-cmdf "-attdef"  ""   "E-01"  "E-01"  "E-01" "j"  "c"  "0.0,-2.5,0.0"  "1.6" "0")
  86. ;;;(ssadd (entlast) ss1)
  87.       (ssadd (setq sn3 (entlast)) ss1)
  88. ;;;(setq sy_pt7 (polar sy_pt1 (/ pi 1) 4))
  89. ;;;(setq L5 (polar sy_pt1 (/ pi 1) (- 4)))
  90. ;;;(entmake (list '(0 . "LINE") (cons 10 sy_pt7) (cons 11 L5)))
  91.       (command "line" "-4.0,0.0,0.0" "4.0,0.0,0.0" "")
  92. ;;;sw_dysytb的短横线
  93. ;;;(ssadd (entlast) ss1)
  94.       (ssadd (setq sn4 (entlast)) ss1)
  95.       (command "change" sn1 sn2 sn3 sn4 "" "P" "la" "0" "")
  96.       (command "change" sn2 sn3 "" "P" "c" "7" "")
  97.       (command "change" sn1 sn4 "" "P" "c" "6" "")
  98.       (command "-block" "sw_dysytb" "0.0,0.0,0.0" ss1 "")
  99. ;;;(setq del (entlast))
  100. ;;;(entdel del)
  101.     )
  102. ;;;end_PROGN
  103.   )
  104. ;;;end_if
  105. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106.   (if (null scalesy)
  107.     (setq scalesy 10)
  108.   )
  109.   (initget "s")
  110.   (setq  sy_pt1 (getpoint (strcat "\n设置比例[S]/当前的比例为<"  (rtos scalesy)  ">或指定起点: ")))
  111.   (cond
  112.     ((vl-consp sy_pt1) (sw_sy))
  113.     ((= sy_pt1 "s") (sw_sett))
  114.   )
  115. )
  116. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  117. (defun sw_sy ()
  118.   ;;(setq sy_pt1 (getpoint "\n指定第二角点:[退出]"))
  119.   (setq sy_pt2 (getpoint sy_pt1 "\n指定第二角点:[退出]"))
  120.   ;;第二点跟随鼠标同步移动,并判断短粗线的方向
  121.   (setq        jd        (angle sy_pt1 sy_pt2);;角度
  122.         sy_pt1d        (polar sy_pt1 (+ (* 1.5 pi) jd) (* 0.8 scalesy)) ;;计算第一短粗线起点
  123.         sy_pt2d        (polar sy_pt2 (+ (* 1.5 pi) jd) (* 0.8 scalesy)) ;;计算第二短粗线起点
  124.   )
  125.   (command "dist" sy_pt1 sy_pt2) ;;计算两点距离
  126.   (setq DL (getvar "distance"))
  127.   (if (<= DL (* 5 scalesy));;如果DL距离小于5倍比例值，则只画第一条短粗线,一条PL线
  128.     (progn
  129.       (setq L1d (polar sy_pt1d jd (* 5 scalesy)));;计算第一短粗线终点
  130.       (setq sy_pt2 (polar sy_pt1 jd (* 5 scalesy)))
  131.       (setvar "plinewid" (* 0.5 scalesy)) ;;设定第一短粗线线宽比例
  132.       (setq ss2 (ssadd))
  133.       (command "pline" sy_pt1d L1d "") ;;画第一短粗线
  134.       (ssadd (setq en1b (entlast)) ss2)
  135.       (setq ent1b (entget en1b))
  136.       (setvar "plinewid" 0) ;;设定PL线宽
  137.       (setq
  138.         sy_pt3 (getpoint sy_pt2   "\n指定第三角点:[退出][TAB键切换图号方向]"))
  139.       (setq L3 (polar sy_pt3 0 (* 9 scalesy)))
  140.       (if (or (> (cadr sy_pt3) (cadr sy_pt2))
  141.               (< (cadr sy_pt3) (cadr sy_pt2))
  142.           ) ;;如果pt2和pt3为垂直方向，则要L3
  143.         (progn
  144.           (command "pline" sy_pt1 sy_pt2 sy_pt3 L3 "")
  145.           (ssadd (setq en1d (entlast)) ss2)
  146.           (command "_insert" "sw_dysytb" L3 scalesy scalesy 0 "" "") ;;如果pt2和pt3为垂直方向，则块插入点为L3
  147.         )
  148.       )
  149.       (if (= (cadr sy_pt3) (cadr sy_pt2));;如果pt2和pt3为水平方向，则不要L3
  150.         (progn
  151.           (command "pline" sy_pt1 sy_pt2 sy_pt3 "")
  152.           (ssadd (setq en1d (entlast)) ss2)
  153.           (command "_insert"  "sw_dysytb"   sy_pt3  scalesy   scalesy  0   ""  "")
  154.           ;;如果pt2和pt3为水平方向，则块插入点为sy_pt3
  155.         )
  156.       )
  157.       (setq Z T)
  158.       (while z
  159.         (setq grr (grread t 4 0))        ;请求输入
  160.         (setq gr (car grr)
  161.               po (cadr grr)
  162.         )
  163.         (cond
  164.           ((= gr 5)                        ;移动时
  165.            (redraw)
  166.            (setq pt (vlax-curve-getClosestPointTo en1d po T))
  167.            (setq ang (angle pt po))
  168.            (setq sy_pt1d (polar sy_pt1 ang (* 0.8 scalesy)))
  169.            (setq L1d (polar sy_pt1d jd (* 5 scalesy)))
  170.            (setq col (assoc 62 ent1b))
  171.            (if col
  172.              (setq num1        15
  173.                    num2        19
  174.              )
  175.              (setq num1        14
  176.                    num2        18
  177.              )
  178.            )
  179.            (setq ent1b (subst (cons 10 sy_pt1d) (nth num1 ent1b) ent1b))
  180.            (entmod ent1b)
  181.            (setq ent1b (subst (cons 10 l1d) (nth num2 ent1b) ent1b))
  182.            (entmod ent1b)
  183.            (grdraw l1d po 2)
  184.           )
  185.           ((or (= gr 3)                        ;左击
  186.                (equal grr '(2 32))        ;空格
  187.                (equal grr '(2 13))        ;回车
  188.                (equal grr '(11 0))        ;右击
  189.            )
  190.            (setq z nil)
  191.           )
  192.         )
  193.       )
  194.       (redraw)
  195.     )
  196. ;;;end_progn
  197.   )
  198. ;;;end_if
  199.   (if (and (> DL (* 5 scalesy))
  200.            (<= DL (* 3 5 scalesy))
  201.       )
  202.     ;;如果DL距离大于5倍小于等于15倍比例值，则只画第一条短粗线,一条PL线,第一短粗线长度随DL值变化
  203.     (progn
  204.       (setq L1d   (polar sy_pt1d  jd  (+ (* 5 scalesy) (/ (- DL (* 5 scalesy)) 3)))) ;;计算第一短粗线终点
  205.       (setvar "plinewid" (* 0.5 scalesy));;设定第一短粗线线宽比例
  206.       (setq ss2 (ssadd))
  207.       (command "pline" sy_pt1d L1d "");;画第一短粗线
  208.       (ssadd (setq en1b (entlast)) ss2)
  209.       (setq ent1b (entget en1b))
  210.       (setvar "plinewid" 0)
  211.       (setq  sy_pt3 (getpoint sy_pt2  "\n指定第三角点:[退出][TAB键切换图号方向]" ))
  212.       (setq L3 (polar sy_pt3 0 (* 9 scalesy)))
  213.       (if (or (> (cadr sy_pt3) (cadr sy_pt2))
  214.               (< (cadr sy_pt3) (cadr sy_pt2))
  215.           ) ;;如果pt2和pt3为垂直方向，则要L3
  216.         (progn
  217.           (command "pline" sy_pt1 sy_pt2 sy_pt3 L3 "")
  218.           (ssadd (setq en1d (entlast)) ss2)
  219.           (command "_insert" "sw_dysytb" L3 scalesy scalesy 0 "" "") ;;如果pt2和pt3为垂直方向，则块插入点为L3
  220.         )
  221.       )
  222.       (if (= (cadr sy_pt3) (cadr sy_pt2)) ;;如果pt2和pt3为水平方向，则不要L3
  223.         (progn
  224.           (command "pline" sy_pt1 sy_pt2 sy_pt3 "")
  225.           (ssadd (setq en1d (entlast)) ss2)
  226.           (command "_insert"  "sw_dysytb"  sy_pt3  scalesy    scalesy   0  ""   "")
  227.           ;;如果pt2和pt3为水平方向，则块插入点为sy_pt3
  228.         )
  229.       )
  230.       (setq Z T)
  231.       (while z
  232.         (setq grr (grread t 4 0))        ;请求输入
  233.         (setq gr (car grr)
  234.               po (cadr grr)
  235.         )
  236.         (cond
  237.           ((= gr 5)                        ;移动时
  238.            (redraw)
  239.            (setq pt (vlax-curve-getClosestPointTo en1d po T))
  240.            (setq ang (angle pt po))
  241.            (setq sy_pt1d (polar sy_pt1 ang (* 0.8 scalesy)))
  242.            (setq
  243.              L1d (polar        sy_pt1d
  244.                         jd
  245.                         (+ (* 5 scalesy) (/ (- DL (* 5 scalesy)) 3))
  246.                  )
  247.            )
  248.            (setq col (assoc 62 ent1b))
  249.            (if col
  250.              (setq num1        15
  251.                    num2        19
  252.              )
  253.              (setq num1        14
  254.                    num2        18
  255.              )
  256.            )
  257.            (setq ent1b (subst (cons 10 sy_pt1d) (nth num1 ent1b) ent1b))
  258.            (entmod ent1b)
  259.            (setq ent1b (subst (cons 10 l1d) (nth num2 ent1b) ent1b))
  260.            (entmod ent1b)
  261.            (grdraw l1d po 2)
  262.           )
  263.           ((or (= gr 3)                        ;左击
  264.                (equal grr '(2 32))        ;空格
  265.                (equal grr '(2 13))        ;回车
  266.                (equal grr '(11 0))        ;右击
  267.            )
  268.            (setq z nil)
  269.           )
  270.         )
  271.       )
  272.       (redraw)
  273.     )
  274. ;;;end_progn
  275.   )
  276. ;;;end_if
  277.   (if (> DL (* 3 5 scalesy))
  278.     ;;如果DL距离大于15倍比例值，则画两条短粗线,一条短细线,一条PL线
  279.     (progn
  280.       (setq L1 (polar sy_pt1 jd (* 5 scalesy)))
  281.       ;;计算第一短细线终点
  282.       (setq L1d (polar sy_pt1d jd (* 5 scalesy)))
  283.       ;;计算第一短粗线终点
  284.       (setq L2d (polar sy_pt2d (+ jd (/ pi 1)) (* 5 scalesy)))
  285.       ;;计算第二短粗线终点
  286.       (setq L2 (polar sy_pt2 jd (- (* 5 scalesy))))
  287.       ;;计算PL线起点
  288.       (setq ss2 (ssadd))
  289.       (entmake (list '(0 . "LINE") (cons 10 sy_pt1) (cons 11 L1)))
  290.       ;;画第一短细线
  291.       (ssadd (setq en1a (entlast)) ss2)
  292.       (setvar "plinewid" (* 0.5 scalesy))
  293.       ;;设定短粗线线宽比例
  294.       (command "pline" sy_pt1d L1d "")
  295.       ;;画第一短粗线
  296.       (ssadd (setq en1b (entlast)) ss2)
  297.       (setq ent1b (entget en1b))
  298.       (command "pline" sy_pt2d L2d "")
  299.       ;;画第二短粗线
  300.       (ssadd (setq en1c (entlast)) ss2)
  301.       (setq ent1c (entget en1c))
  302.       (setvar "plinewid" 0)
  303.       (setq
  304.         sy_pt3 (getpoint sy_pt2
  305.                          "\n指定第三角点:[退出][TAB键切换图号方向]"
  306.                )
  307.       )
  308.       (setq L3 (polar sy_pt3 0 (* 9 scalesy)))
  309.       (if (or (> (cadr sy_pt3) (cadr sy_pt2))
  310.               (< (cadr sy_pt3) (cadr sy_pt2))
  311.           )
  312.         ;;如果pt2和pt3为垂直方向，则要L3
  313.         (progn
  314.           (command "pline" L2 sy_pt2 sy_pt3 L3 "")
  315.           (ssadd (setq en1d (entlast)) ss2)
  316.           (command "_insert" "sw_dysytb" L3 scalesy scalesy 0 "" "")
  317.           ;;如果pt2和pt3为垂直方向，则块插入点为L3
  318.         )
  319.       )
  320.       (if (= (cadr sy_pt3) (cadr sy_pt2))
  321.         ;;如果pt2和pt3为水平方向，则不要L3
  322.         (progn
  323.           (command "pline" L2 sy_pt2 sy_pt3 "")
  324.           (ssadd (setq en1d (entlast)) ss2)
  325.           (command "_insert"  "sw_dysytb"            sy_pt3
  326.                    scalesy    scalesy         0            ""
  327.                    ""
  328.                   )
  329.           ;;如果pt2和pt3为水平方向，则块插入点为sy_pt3
  330.         )
  331.       )
  332.       (setq Z T)
  333.       (while z
  334.         (setq grr (grread t 4 0))        ;请求输入
  335.         (setq gr (car grr)
  336.               po (cadr grr)
  337.         )
  338.         (cond
  339.           ((= gr 5)                        ;移动时
  340.            (redraw)
  341.            (setq pt (vlax-curve-getClosestPointTo en1a po T))
  342.            (setq ang (angle pt po))
  343.            (setq sy_pt1d (polar sy_pt1 ang (* 0.8 scalesy))
  344.                  sy_pt2d (polar sy_pt2 ang (* 0.8 scalesy))
  345.                  l2d         (polar sy_pt1d jd (* 5 scalesy))
  346.                  l2         (polar sy_pt2d (+ jd pi) (* 5 scalesy))
  347.            )
  348.            (setq col (assoc 62 ent1b))
  349.            (if col
  350.              (setq num1        15
  351.                    num2        19
  352.              )
  353.              (setq num1        14
  354.                    num2        18
  355.              )
  356.            )
  357.            (setq ent1b (subst (cons 10 sy_pt1d) (nth num1 ent1b) ent1b))
  358.            (entmod ent1b)
  359.            (setq ent1b (subst (cons 10 l2d) (nth num2 ent1b) ent1b))
  360.            (entmod ent1b)
  361.            (setq ent1c (subst (cons 10 sy_pt2d) (nth num1 ent1c) ent1c))
  362.            (entmod ent1c)
  363.            (setq ent1c (subst (cons 10 l2) (nth num2 ent1c) ent1c))
  364.            (entmod ent1c)
  365.            (grdraw l2d po 2)
  366.           )
  367.           ((or (= gr 3)                        ;左击
  368.                (equal grr '(2 32))        ;空格
  369.                (equal grr '(2 13))        ;回车
  370.                (equal grr '(11 0))        ;右击
  371.            )
  372.            (setq z nil)
  373.           )

  375.         )
  376.       )
  377.       (redraw)
  378.     )
  379. ;;;end_progn
  380.   )
  381. ;;;end_if

  383.   (command "change" ss2 "" "P" "c" "6" "")
  384.   ;;修改第一短细线，第一短粗线，第二短粗线，PL线颜色为6
  385.   (command "-group" "c" "*" "" ss2 "")
  386. ;;;创建组
  387.                                         ;(command "-group" "c" "*" "" en1 en1a en1b en1c en2 "");;;创建组
  388.   (sy_end)
  389. ;;;恢复系统变量
  390.   (princ)
  391. )
  392. ;;end

代码很菜，动态功能有点问题，请教该如何解决，另请帮我加一个切换功能，就是按空格或TAB键切换图号方向,感激不尽！


更新动态剖切符号程序
记录, error, 动态

本帖子中包含更多资源

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

x

相关帖子
回复

使用道具 举报

guankuiwu
发表于 2020-12-21 18:32:28 | 显示全部楼层
这个在自定义坐标时会出错
回复 支持 反对

使用道具 举报

青空之雨_66206
发表于 2018-4-9 11:31:40 | 显示全部楼层
想下载没有币了
回复 支持 反对

使用道具 举报

wowan1314
发表于 2013-4-11 22:47:58 | 显示全部楼层
那么长的代码估计吓坏蛮多人的！我也没细看了！自己慢慢调试下吧看你完成的已经差不多拉！

第二个问题，在动态结束后用initget加个getpoint啥的使程序暂停等待你空格指令镜像即可
回复 支持 反对

使用道具 举报

無恒的地盘
 楼主| 发表于 2013-4-11 23:12:11 | 显示全部楼层
wowan1314 发表于 2013-4-11 22:47
那么长的代码估计吓坏蛮多人的！我也没细看了！自己慢慢调试下吧看你完成的已经差不多拉！

第二个问题， ...

感谢woman1314，我是想在鼠标动态的时候也可以按空格或TAB键来切换图号的方向，图号的方向只在纵向的情况下有，横向不需要。
回复 支持 反对

使用道具 举报

wowan1314
发表于 2013-4-11 23:59:17 | 显示全部楼层
你在grread里面加就是啦！不知键位的话可参考论坛grread函数大杀器的帖子
回复 支持 反对

使用道具 举报

無恒的地盘
 楼主| 发表于 2013-4-12 00:11:59 | 显示全部楼层
wowan1314 发表于 2013-4-11 23:59
你在grread里面加就是啦！不知键位的话可参考论坛grread函数大杀器的帖子

请问woman1314有没有关于简单的切换例子，因为即使我知道键位估计也不会加。
回复 支持 反对

使用道具 举报

wowan1314
发表于 2013-4-12 00:34:03 | 显示全部楼层
还真不知道哪个适合你！
只能大概给你说说
在Grread的语句中加入如下！
当 键位为空格或tab时。 把图号作为选集利用command调用镜像命令把它镜像！
回复 支持 反对

使用道具 举报

微博评论
发表于 2013-4-12 02:59:45 | 显示全部楼层
转发微博

来自 love一之宫由贵 的新浪微博

点评

無恒的地盘
大哥，你的回复我看不见。  发表于 2013-4-12 13:01
回复 支持 反对

使用道具 举报

無恒的地盘
 楼主| 发表于 2013-4-12 13:00:13 | 显示全部楼层
本帖最后由 無恒的地盘 于 2013-4-12 13:00 编辑
wowan1314 发表于 2013-4-12 00:34
还真不知道哪个适合你！
只能大概给你说说
在Grread的语句中加入如下！

把图号作为选集利用command调用镜像命令把它镜像,今天中午试了一下可行，但动态那个问题却不知道怎么解决了,还请woman1314指教。

点评

wowan1314
找问题不是一时半会的事，代码太长，且我水平一般。 你自己慢慢调试吧。写都写出来了，还不会完善吗？！  发表于 2013-4-12 15:22
回复 支持 反对

使用道具 举报

無恒的地盘
 楼主| 发表于 2013-4-12 13:03:05 | 显示全部楼层
微博评论 发表于 2013-4-12 02:59
**** 作者被禁止或删除 内容自动屏蔽 ****

微博评论 发表于 2013-4-12 02:59
**** 作者被禁止或删除 内容自动屏蔽 ****

大哥，你的回复我看不见。
回复 支持 反对

使用道具 举报

微博评论
发表于 2013-4-17 08:22:18 | 显示全部楼层
转发微博

来自 巴音德力格尔之歌 的新浪微博
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-5-17 11:08 , Processed in 0.193280 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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