[求助]：[求助]焊接符号标注程序

PFD8667

恳请那位朋友帮忙编一个焊接符号标注程序,再次表示谢意!

smomo

最近钢结构栏目里 的 msteel工具包里就有，下面是一个单独的lisp程序，也可用，标注前，图形里须有1,3层。（也是从网上找到的。）

luckyhtd

使用时必须要有1,3层说明编制的程序有点问题，不过先试用一下。谢谢！

xyp1964

[php]最好用属性块标注，操作方便、程序简单。
提供修改后的fhhf.lsp（未经原作者允许，抱歉）：
;;;焊接符号标注程序
(defun c:hffh (/     oc           ola         osm   typ   pt1   pt2         pt3   pt4
               pt5   p1           p2         p3    p4    ang   jbfh1 jbfh2 bcfh1
               bcfh2 bcfh3 bcfh4 bcfh5 fzfh1 fzfh2 P         h0    K
               h     S           R         b     n0    alfa  blta         n     l
               e     len
              )
  (cmdla0)
  ;|(setq temperr *error*)
  (setq *error* trap1)
  (setq oc (getvar "cmdecho"))
  (setq ola (getvar "clayer"))
  (setvar "cmdecho" 0)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq jbfh1 nil
        fzfh1 nil
        jbfh2 nil
        fzfh2 nil
        P nil
        h0 nil
        K nil
        h nil
        S nil
        R nil
        b nil
        n0 nil
        alfa nil
        blta nil
        n nil
        l nil
        e nil
        len nil)
  |;

  (defun do_bcfh2 ()
    (if        (= (get_tile "bcfh2") "1")
      (set_tile "bcfh3" "0")
    )
  )
  (defun do_bcfh3 ()
    (if        (= (get_tile "bcfh3") "1")
      (set_tile "bcfh2" "0")
    )
  )
  (defun do_s ()
    (setq typ 1)
    (mode_tile "jbfh2" 1)
    (mode_tile "fzfh2" 1)
  )
  (defun do_d ()
    (setq typ 2)
    (mode_tile "jbfh2" 0)
    (mode_tile "fzfh2" 0)
  )
  (defun do_ok ()
    (if        (= (get_tile "s") "1")
      (setq typ 1)
      (setq typ 2)
    )
    (setq jbfh1 (get_tile "jbfh1"))
    (setq jbfh1 (1+ (atoi jbfh1)))
    (setq fzfh1 (get_tile "fzfh1"))
    (setq fzfh1 (atoi fzfh1))
    (if        (= fzfh1 0)
      (setq fzfh1 nil)
    )
    (if        (= typ 2)
      (progn
        (setq jbfh2 (get_tile "jbfh2"))
        (setq jbfh2 (1+ (atoi jbfh2)))
        (setq fzfh2 (get_tile "fzfh2"))
        (setq fzfh2 (atoi fzfh2))
        (if (= fzfh2 0)
          (setq fzfh2 nil)
        )
      )
    )
    (if        (= (get_tile "bcfh1") "1")
      (setq bcfh1 "Y")
      (setq bcfh1 "N")
    )
    (if        (= (get_tile "bcfh2") "1")
      (setq bcfh2 "Y")
      (setq bcfh2 "N")
    )
    (if        (= (get_tile "bcfh3") "1")
      (setq bcfh3 "Y")
      (setq bcfh3 "N")
    )
    (if        (= (get_tile "bcfh4") "1")
      (setq bcfh4 "Y")
      (setq bcfh4 "N")
    )
    (if        (= (get_tile "bcfh5") "1")
      (setq bcfh5 "Y")
      (setq bcfh5 "N")
    )
    (setq dt (read (get_tile "dt")))
    (setq sca (read (get_tile "sca")))
    (if        (null sca)
      (setq sca 1.0)
    )
    (setvar "userr1" sca)
  )
  (if (and (< (setq hffh_id (load_dialog "hffh"))
              0
           )
           (not jxhj_id)
      )
    (exit)
  )
  (if (not (new_dialog "hffh" hffh_id))
    (exit)
  )
  (set_tile "sca" (rtos (getvar "userr1") 2 1))
  (action_tile "s" "(do_s)")
  (action_tile "d" "(do_d)")
  (action_tile "bcfh2" "(do_bcfh2)")
  (action_tile "bcfh3" "(do_bcfh3)")
  (action_tile "help" "(help \"hffh\")")
  (action_tile "accept" "(do_ok) (done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0) (exit)")
  (start_dialog)
  (unload_dialog hffh_id)
  (mkla "1" 3)
                                        ;;(command "layer" "s" "1" "")
  (initget 1)
  (setq pt1 (getpoint "\n请输入第一点:"))
  (initget 1)
  (setq pt2 (getpoint pt1 "\n请输入第二点:"))
  (command "pline"
           pt1
           "w"
           "0"
           (* sca 0.8)
           (polar pt1 (angle pt1 pt2) (* sca 3.5))
           ""
  )
  (command "line" pt1 pt2 "")
  (initget 1)
  (setq pt3 (getpoint pt2 "\n请输入第三点:"))
  (setq pt3 (list (car pt3) (cadr pt2)))
  (command "line" pt2 pt3 "")
  (if (<= (car pt2) (car pt3))
    (setq ang 0)
    (setq ang pi)
  )
  (if (= typ 1)
    (progn
      ;;(command "layer" "s" "3" "")
      (mkla "3" 3)
      (command "line"
               (polar pt2 (* pi 1.5) (* sca 1.5))
               (polar pt3 (* pi 1.5) (* sca 1.5))
               ""
      )
      (mkla "1" 3)
      ;;(command "layer" "s" "1" "")
    )
  )
  (setq pt1 (list (/ (+ (car pt2) (car pt3)) 2.0) (cadr pt2)))
  (cond
    ((and (= ang 0)
          (or (= jbfh1 9) (= jbfh2 9))
     )
     (setq pt1 (polar pt2 0 (* sca 8)))
    )
  )
  (if (= jbfh1 1)
    (progn
      (command
        "pline"
        (polar pt1 pi (* sca 1.5))
        "w"
        (* sca 0)
        (* sca 0)
        (list (- (car pt1) (* sca 1.5)) (+ (cadr pt1) (* sca 3.5)))
        ""
      )
      (command
        "pline"
        (polar pt1 0 (* sca 1.5))
        "w"
        (* sca 0)
        (* sca 0)
        (list (+ (car pt1) (* sca 1.5)) (+ (cadr pt1) (* sca 3.5)))
        ""
      )
    )
  )
  (if (= jbfh1 2)
    (command "pline"
             (polar pt1 (* pi 0.65) (* sca 4.5))
             "w"
             (* sca 0)
             (* sca 0)
             pt1
             (polar pt1 (* pi 0.35) (* sca 4.5))
             ""
    )
  )
  (if (= jbfh1 3)
    (command "pline"
             (polar pt1 (* pi 0.5) (* sca 3.5))
             "w"
             (* sca 0)
             (* sca 0)
             pt1
             (polar pt1 (* pi 0.25) (* sca 5))
             ""
    )
  )
  (if (= jbfh1 4)
    (progn
      (setq pt4 (polar pt1 (* pi 0.5) (* sca 1.5)))
      (command "pline"
               pt1
               "w"
               (* sca 0)
               (* sca 0)
               pt4
               (polar pt4
                      (* 0.7 pi)
                      (* sca 4)
               )
               ""
      )
      (command "pline" pt4 (polar pt4 (* pi 0.3) (* sca 4)) "")
    )
  )
  (if (= jbfh1 5)
    (progn
      (setq pt4 (polar pt1 (* pi 0.5) (* sca 1.5)))
      (command "pline"
               pt1
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt1
                      (* pi 0.5)
                      (* sca 5)
               )
               ""
      )
      (command "pline" pt4 (polar pt4 (* pi 0.25) (* sca 4)) "")
    )
  )
  (if (= jbfh1 6)
    (progn
      (setq pt4 (polar pt1 (* pi 0.5) (* sca 1.5)))
      (command "pline" pt1 "w" (* sca 0) (* sca 0) pt4 "")
      (setq
        pt5 (list (- (car pt4) (* sca 2.2)) (+ (cadr pt4) (* sca 3)))
      )
      (command "pline"
               pt4
               (list (- (car pt4) (* sca 1.6))
                     (+        (cadr pt4)
                        (* sca 1)
                     )
               )
               pt5
               ""
      )
      (command "pedit" "l" "f" "")
      (command "mirror" "l" "" pt1 pt4 "n")
    )
  )
  (if (= jbfh1 7)
    (progn
      (setq pt4 (polar pt1 (* pi 0.5) (* sca 1.5)))
      (command "pline" pt1 "w" (* sca 0) (* sca 0) pt4 "")
      (command "pline"
               pt4
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt4 (* 0.5 pi) 3)
               ""
      )
      (setq
        pt5 (list (+ (car pt4) (* sca 2.2)) (+ (cadr pt4) (* sca 3)))
      )
      (command "pline"
               pt4
               (list (+ (car pt4) (* sca 1.6))
                     (+        (cadr pt4)
                        (* sca 1)
                     )
               )
               pt5
               ""
      )
      (command "pedit" "l" "f" "")
    )
  )
  (if (= jbfh1 8)
    (progn
      (command "pline"
               (polar pt1 pi (* sca 2))
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt1 0 (* sca 2))
               ""
      )
      (command "pline"
               (polar pt1 pi (* sca 2))
               (polar pt1 (* pi 0.5) (* sca 1.5))
               (polar pt1 0 (* sca 2))
               ""
      )
      (command "pedit" "l" "f" "")
    )
  )
  (if (= jbfh1 9)
    (command "pline"
             pt1
             "w"
             (* sca 0)
             (* sca 0)
             (polar pt1
                    (* pi 0.5)
                    (* sca 3.5)
             )
             (polar pt1 0 (* sca 3.5))
             "c"
    )
  )
  (if (and (= jbfh1 nil)
           (= typ 1)
      )
    (setq pt1 (polar pt1 (* pi 1.5) (* sca 1.2)))
  )
  (if (= jbfh2 1)
    (progn
      (command
        "pline"
        (polar pt1 pi (* sca 1.5))
        "w"
        (* sca 0)
        (* sca 0)
        (list (- (car pt1) (* sca 1.5)) (- (cadr pt1) (* sca 3.5)))
        ""
      )
      (command
        "pline"
        (polar pt1 0 (* sca 1.5))
        "w"
        (* sca 0)
        (* sca 0)
        (list (+ (car pt1) (* sca 1.5)) (- (cadr pt1) (* sca 3.5)))
        ""
      )
    )
  )
  (if (= jbfh2 2)
    (command "pline"
             (polar pt1 (* pi 1.35) (* sca 4.5))
             "w"
             (* sca 0)
             (* sca 0)
             pt1
             (polar pt1 (* pi 1.65) (* sca 4.5))
             ""
    )
  )
  (if (= jbfh2 3)
    (command "pline"
             (polar pt1 (* pi 1.5) (* sca 3.5))
             "w"
             (* sca 0)
             (* sca 0)
             pt1
             (polar pt1 (* pi 1.75) (* sca 5))
             ""
    )
  )
  (if (= jbfh2 4)
    (progn
      (setq pt4 (polar pt1 (* pi 1.5) (* sca 1.5)))
      (command "pline"
               pt1
               "w"
               (* sca 0)
               (* sca 0)
               pt4
               (polar pt4
                      (* 1.3 pi)
                      (* sca 4)
               )
               ""
      )
      (command "pline" pt4 (polar pt4 (* pi 1.7) (* sca 4)) "")
    )
  )
  (if (= jbfh2 5)
    (progn
      (setq pt4 (polar pt1 (* pi 1.5) (* sca 1.5)))
      (command "pline"
               pt1
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt1
                      (* pi 1.5)
                      (* sca 5)
               )
               ""
      )
      (command "pline" pt4 (polar pt4 (* pi 1.75) (* sca 4)) "")
    )
  )
  (if (= jbfh2 6)
    (progn
      (setq pt4 (polar pt1 (* pi 1.5) (* sca 1.5)))
      (command "pline" pt1 "w" (* sca 0) (* sca 0) pt4 "")
      (setq
        pt5 (list (- (car pt4) (* sca 2.2)) (- (cadr pt4) (* sca 3)))
      )
      (command "pline"
               pt4
               (list (- (car pt4) (* sca 1.6))
                     (-        (cadr pt4)
                        (* sca 1)
                     )
               )
               pt5
               ""
      )
      (command "pedit" "l" "f" "")
      (command "mirror" "l" "" pt1 pt4 "n")
    )
  )
  (if (= jbfh2 7)
    (progn
      (setq pt4 (polar pt1 (* pi 1.5) (* sca 1.5)))
      (command "pline" pt1 "w" (* sca 0) (* sca 0) pt4 "")
      (command "pline"
               pt4
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt4 (* 1.5 pi) 3)
               ""
      )
      (setq
        pt5 (list (+ (car pt4) (* sca 2.2)) (- (cadr pt4) (* sca 3)))
      )
      (command "pline"
               pt4
               (list (+ (car pt4) (* sca 1.6))
                     (-        (cadr pt4)
                        (* sca 1)
                     )
               )
               pt5
               ""
      )
      (command "pedit" "l" "f" "")
    )
  )
  (if (= jbfh2 8)
    (progn
      (command "pline"
               (polar pt1 pi (* sca 2))
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt1 0 (* sca 2))
               ""
      )
      (command "pline"
               (polar pt1 pi (* sca 2))
               (polar pt1 (* pi 1.5) (* sca 1.5))
               (polar pt1 0 (* sca 2))
               ""
      )
      (command "pedit" "l" "f" "")
    )
  )
  (if (= jbfh2 9)
    (command "pline"
             pt1
             "w"
             (* sca 0)
             (* sca 0)
             (polar pt1
                    (* pi 1.5)
                    (* sca 3.5)
             )
             (polar pt1 0 (* sca 3.5))
             "c"
    )
  )
  (cond
    ((or (= jbfh1 3) (= jbfh1 5) (= jbfh1 7))
     (setq pt1 (polar pt1
                      ang
                      (* sca 2)
               )
     )
    )
  )
  (if (and (= fzfh1 1)
           (/= jbfh1 9)
      )
    (progn
      (setq p1 (polar pt1 (* pi 0.5) (* sca 12)))
      (setq p2 (polar p1 pi (* sca 2)))
      (setq p3 (polar p1 0 (* sca 2)))
      (command "pline" p2 "w" (* sca 0) (* sca 0) p3 "")
    )
  )
  (if (= fzfh1 2)
    (if        (/= jbfh1 9)
      (progn
        (setq p1 (polar pt1 (* pi 0.5) (* sca 13)))
        (setq p2 (polar p1 pi (* sca 2)))
        (setq p3 (polar p1 0 (* sca 2)))
        (setq p1 (polar p1 (* pi 1.2) (* sca 1.2)))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
      (progn
        (setq p1 (polar pt1 (* pi 0.5) (* sca 3.5)))
        (setq p2 (polar p1 (* 0.2 pi) (* sca 2.2)))
        (setq p3 (polar p2 (* pi 1.75) (* sca 4)))
        (setq p1 (list (* 0.5 (+ (car p2) (car p3)))
                       (* 0.5
                          (+ (cadr p2)
                             (cadr p3)
                          )
                       )
                 )
        )
        (setq p1 (polar p1 (* 1.25 pi) 1))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
    )
  )
  (if (= fzfh1 3)
    (if        (/= jbfh1 9)
      (progn
        (setq p1 (polar pt1 (* pi 0.5) (* sca 11)))
        (setq p2 (polar p1 pi (* sca 2)))
        (setq p3 (polar p1 0 (* sca 2)))
        (setq p1 (polar p1 (* pi 0.5) (* sca 1.2)))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
      (progn
        (setq p1 (polar pt1 (* pi 0.5) (* sca 3.5)))
        (setq p2 (polar p1 (* 0.2 pi) (* sca 1)))
        (setq p3 (polar p2 (* pi 1.75) (* sca 4)))
        (setq p1 (list (* 0.5 (+ (car p2) (car p3)))
                       (* 0.5
                          (+ (cadr p2)
                             (cadr p3)
                          )
                       )
                 )
        )
        (setq p1 (polar p1 (* 0.25 pi) 1))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
    )
  )
  (if (and (= fzfh2 1)
           (/= jbfh2 9)
      )
    (progn
      (setq p1 (polar pt1 (* pi 1.5) (* sca 12)))
      (setq p2 (polar p1 pi (* sca 2)))
      (setq p3 (polar p1 0 (* sca 2)))
      (command "pline" p2 "w" (* sca 0) (* sca 0) p3 "")
    )
  )
  (if (= fzfh2 2)
    (if        (/= jbfh2 9)
      (progn
        (setq p1 (polar pt1 (* pi 1.5) (* sca 13)))
        (setq p2 (polar p1 pi (* sca 2)))
        (setq p3 (polar p1 0 (* sca 2)))
        (setq p1 (polar p1 (* pi 0.5) (* sca 1.2)))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
      (progn
        (setq p1 (polar pt1 (* pi 1.5) (* sca 3.5)))
        (setq p2 (polar p1 (* 1.7 pi) (* sca 2.2)))
        (setq p3 (polar p2 (* pi 0.25) (* sca 4)))
        (setq p1 (list (* 0.5 (+ (car p2) (car p3)))
                       (* 0.5
                          (+ (cadr p2)
                             (cadr p3)
                          )
                       )
                 )
        )
        (setq p1 (polar p1 (* 0.75 pi) 1))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
    )
  )
  (if (= fzfh2 3)
    (if        (/= jbfh2 9)
      (progn
        (setq p1 (polar pt1 (* pi 1.5) (* sca 11)))
        (setq p2 (polar p1 pi (* sca 2)))
        (setq p3 (polar p1 0 (* sca 2)))
        (setq p1 (polar p1 (* pi 1.5) (* sca 1.2)))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
      (progn
        (setq p1 (polar pt1 (* pi 1.5) (* sca 3.5)))
        (setq p2 (polar p1 (* 1.7 pi) (* sca 1)))
        (setq p3 (polar p2 (* pi 0.25) (* sca 4)))
        (setq p1 (list (* 0.5 (+ (car p2) (car p3)))
                       (* 0.5
                          (+ (cadr p2)
                             (cadr p3)
                          )
                       )
                 )
        )
        (setq p1 (polar p1 (* 1.75 pi) 1))
        (command "pline" p2 "w" (* sca 0) (* sca 0) p1 p3 "")
        (command "pedit" "l" "f" "")
      )
    )
  )
  (if (and (or (= jbfh1 2) (= jbfh2 2))
           (= typ 1)
      )
    (setq bcfh1 "Y")
  )
  (if (and (= typ 1)
           (/= jbfh1 nil)
      )
    (progn
      (if (= bcfh1 "Y")
        (command
          "pline"
          (polar pt1 pi (* sca 2))
          "w"
          (* sca 0)
          (* sca 0)
          (list (- (car pt1) (* sca 2)) (- (cadr pt1) (* sca 1.5)))
          (list (+ (car pt1) (* sca 2)) (- (cadr pt1) (* sca 1.5)))
          (polar pt1 0 (* sca 2))
          "c"
        )
      )
      (if (= bcfh2 "Y")
        (if (= ang 0)
          (command
            "pline"
            (list (+ (car pt2) (* sca 5))
                  (+ (cadr pt2)
                     (* sca 4)
                  )
            )
            "w"
            (* sca 0)
            (* sca 0)
            (list (+ (car pt2) (* sca 2)) (+ (cadr pt2) (* sca 4)))
            (list (+ (car pt2) (* sca 2)) (+ (cadr pt2) (* sca 1)))
            (list (+ (car pt2) (* sca 5)) (+ (cadr pt2) (* sca 1)))
            ""
          )
          (command
            "pline"
            (list (+ (car pt3) (* sca 5))
                  (+ (cadr pt3)
                     (* sca 4)
                  )
            )
            "w"
            (* sca 0)
            (* sca 0)
            (list (+ (car pt3) (* sca 2)) (+ (cadr pt3) (* sca 4)))
            (list (+ (car pt3) (* sca 2)) (+ (cadr pt3) (* sca 1)))
            (list (+ (car pt3) (* sca 5)) (+ (cadr pt3) (* sca 1)))
            ""
          )
        )
      )
    )
  )
  (if (and (= typ 1)
           (/= jbfh2 nil)
      )
    (progn
      (if (= bcfh1 "Y")
        (progn
          (setq p1 (polar pt1 (* -1 ang) (* sca 2)))
          (setq p1 (polar p1 (* pi 0.5) (* sca 1.2)))
          (command
            "pline"
            (polar p1 pi (* sca 2))
            "w"
            (* sca 0)
            (* sca 0)
            (list (- (car p1) (* sca 2)) (+ (cadr p1) (* sca 1.5)))
            (list (+ (car p1) (* sca 2)) (+ (cadr p1) (* sca 1.5)))
            (polar p1 0 (* sca 2))
            "c"
          )
        )
      )
      (if (= bcfh2 "Y")
        (if (= ang 0)
          (command
            "pline"
            (list (+ (car pt2) (* sca 5))
                  (- (cadr pt2)
                     (* sca 6)
                  )
            )
            "w"
            (* sca 0)
            (* sca 0)
            (list (+ (car pt2) (* sca 2)) (- (cadr pt2) (* sca 6)))
            (list (+ (car pt2) (* sca 2)) (- (cadr pt2) (* sca 3)))
            (list (+ (car pt2) (* sca 5)) (- (cadr pt2) (* sca 3)))
            ""
          )
          (command
            "pline"
            (list (+ (car pt3) (* sca 5))
                  (- (cadr pt3)
                     (* sca 6)
                  )
            )
            "w"
            (* sca 0)
            (* sca 0)
            (list (+ (car pt3) (* sca 2)) (- (cadr pt3) (* sca 6)))
            (list (+ (car pt3) (* sca 2)) (- (cadr pt3) (* sca 3)))
            (list (+ (car pt3) (* sca 5)) (- (cadr pt3) (* sca 3)))
            ""
          )
        )
      )
    )
  )
  (if (and (= typ 2)
           (/= jbfh1 nil)
      )
    (if        (= bcfh2 "Y")
      (if (= ang 0)
        (command "pline"
                 (list (+ (car pt2) (* sca 5)) (+ (cadr pt2) (* sca 4)))
                 "w"
                 (* sca 0)
                 (* sca 0)
                 (list (+ (car pt2) (* sca 2)) (+ (cadr pt2) (* sca 4)))
                 (list (+ (car pt2) (* sca 2)) (+ (cadr pt2) (* sca 1)))
                 (list (+ (car pt2) (* sca 5)) (+ (cadr pt2) (* sca 1)))
                 ""
        )
        (command "pline"
                 (list (+ (car pt3) (* sca 5)) (+ (cadr pt3) (* sca 4)))
                 "w"
                 (* sca 0)
                 (* sca 0)
                 (list (+ (car pt3) (* sca 2)) (+ (cadr pt3) (* sca 4)))
                 (list (+ (car pt3) (* sca 2)) (+ (cadr pt3) (* sca 1)))
                 (list (+ (car pt3) (* sca 5)) (+ (cadr pt3) (* sca 1)))
                 ""
        )
      )
    )
  )
  (if (= bcfh3 "Y")
    (command "circle" pt2 (* sca 2.5))
  )
  (if (= bcfh4 "Y")
    (progn
      (command "pline"
               pt2
               "w"
               (* sca 0)
               (* sca 0)
               (polar pt2
                      (* pi 0.5)
                      (* sca 7.5)
               )
               (list (+ (car pt2) (* sca 4)) (+ (cadr pt2) (* sca 4.5)))
               (polar pt2 (* pi 0.5) (* sca 4.5))
               ""
      )
      (command "solid"
               (polar pt2 (* pi 0.5) (* sca 7.5))
               (list (+        (car pt2)
                        (* sca 4)
                     )
                     (+        (cadr pt2)
                        (* sca 4.5)
                     )
               )
               (polar pt2 (* pi 0.5) (* sca 4.5))
               (list (+ (car pt2) (* sca 4)) (+ (cadr pt2) (* sca 4.5)))
               ""
      )
    )
  )
  (if (= bcfh5 "Y")
    (cond
      ((<= (car pt2) (car pt3))
       (command        "pline"
                (polar pt3
                       (* pi 0.25)
                       (* sca 3)
                )
                pt3
                (polar pt3 (* pi 1.75) (* sca 3))
                ""
       )
      )
      ((> (car pt2) (car pt3))
       (command        "pline"
                (polar pt3
                       (* pi 0.75)
                       (* sca 3)
                )
                pt3
                (polar pt3 (* pi 1.25) (* sca 3))
                ""
       )
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 1) (= jbfh2 1))
           (= bcfh1 "N")
      )
    (progn
      (if (and (>= dt 1)
               (< dt 3)
          )
        (setq b (getstring "\n根部间隙b[0-1.5]:"))
      )
      (if (and (>= dt 3)
               (<= dt 6)
          )
        (setq b (getstring "\n根部间隙b[0-2.5]:"))
      )
      (if (or (< dt 1) (> dt 6))
        (progn
          (alert "工件厚度与所选基本符号不符!")
          (exit)
        )
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 1) (= jbfh2 1))
           (= bcfh1 "Y")
      )
    (if        (and (>= dt 2)
             (< dt 4)
        )
      (setq b (getstring "\n根部间隙b[0-3.5]:"))
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 2) (= jbfh2 2))
           (= bcfh1 "Y")
      )
    (if        (> dt 16)
      (progn
        (setq b (getstring "\n根部间隙b[6-15]:"))
        (setq blta (getstring "\n坡口面角度blta[5-15]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 3) (= jbfh2 3))
           (= bcfh1 "N")
      )
    (if        (and (>= dt 3)
             (<= dt 40)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-4]:"))
        (setq blta (getstring "\n坡口面角度blta[35-50]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 3) (= jbfh2 3))
           (= bcfh1 "Y")
      )
    (if        (> dt 16)
      (progn
        (setq b (getstring "\n根部间隙b[6-10]:"))
        (setq blta (getstring "\n坡口面角度blta[12-30]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 4) (= jbfh2 4))
           (= bcfh1 "N")
      )
    (if        (and (>= dt 3)
             (<= dt 26)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-4]:"))
        (setq alfa (getstring "\n坡口角度alfa[40-60]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 4) (= jbfh2 4))
           (= bcfh1 "Y")
      )
    (if        (and (>= dt 6)
             (<= dt 26)
        )
      (progn
        (setq b (getstring "\n根部间隙b[3-6]:"))
        (setq P (getstring "\n钝    边P[0-2]:"))
        (setq alfa (getstring "\n坡口角度alfa[45-55]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 5) (= jbfh2 5))
           (= bcfh1 "N")
      )
    (if        (and (>= dt 6)
             (<= dt 30)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-3]:"))
        (setq alfa (getstring "\n坡口角度alfa[35-55]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 6) (= jbfh2 6))
           (= bcfh1 "N")
      )
    (if        (and (>= dt 20)
             (<= dt 60)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-3]:"))
        (setq blta (getstring "\n坡口面角度blta[1-8]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 7) (= jbfh2 7))
           (= bcfh1 "N")
      )
    (if        (> dt 16)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[2-4]:"))
        (setq blta (getstring "\n坡口面角度blta[10-20]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 8) (= jbfh2 8))
           (= bcfh1 "N")
      )
    (if        (>= dt 16)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-3]:"))
        (setq blta (getstring "\n坡口面角度blta[10-20]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 1)
           (or (= jbfh1 9) (= jbfh2 9))
           (= bcfh1 "N")
      )
    (progn
      (if (/= dt nil)
        (progn
          (setq K (* 0.75 dt))
          (setq K (rtos K 2 0))
        )
        (setq K (getstring "\n焊角尺寸(K):"))
      )
      (setq n (getstring "\n焊缝段数(n)<Enter表示不标此项>:"))
      (setq l (getstring "\n焊缝长度(l)<Enter表示不标此项>:"))
      (setq e (getstring "\n焊缝间距(e)<Enter表示不标此项>:"))
    )
  )
  (if (and (= typ 2)
           (= jbfh1 2)
           (= jbfh2 2)
      )
    (if        (> dt 10)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq alfa (getstring "\n坡口角度alfa[40-60]:"))
        (setq h0 (rtos (/ dt 2.0) 2 0))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 3)
           (= jbfh2 3)
      )
    (if        (> dt 10)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq blta (getstring "\n坡口面角度blta[35-50]:"))
        (setq h0 (rtos (/ dt 2.0) 2 0))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 4)
           (= jbfh2 4)
      )
    (if        (and (>= dt 12)
             (<= dt 60)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-3]:"))
        (setq alfa (getstring "\n坡口角度alfa[40-60]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 5)
           (= jbfh2 5)
      )
    (if        (and (>= dt 20)
             (<= dt 40)
        )
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[1-3]:"))
        (setq blta (getstring "\n坡口面角度blta[40-50]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 6)
           (= jbfh2 6)
      )
    (if        (> dt 30)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[2-4]:"))
        (setq blta (getstring "\n坡口面角度blta[1-8]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
        (setq h0 (rtos (/ (- dt (atof P)) 2.0) 2 0))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 7)
           (= jbfh2 7)
      )
    (if        (> dt 30)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[2-4]:"))
        (setq blta (getstring "\n坡口面角度blta[10-20]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 8)
           (= jbfh2 8)
      )
    (if        (> dt 30)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[2-4]:"))
        (setq blta (getstring "\n坡口面角度blta[10-20]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 9)
           (= jbfh2 9)
      )
    (progn
      (if (/= dt nil)
        (progn
          (setq K (* 0.75 dt))
          (setq K (rtos K 2 0))
        )
        (setq K (getstring "\n焊角尺寸(K):"))
      )
      (setq n (getstring "\n焊缝段数(n)<Enter表示不标此项>:"))
      (setq l (getstring "\n焊缝长度(l)<Enter表示不标此项>:"))
      (if (/= l "")
        (setq e (getstring "\n焊缝间距(e)<Enter表示不标此项>:"))
      )
    )
  )
  (if (or (and (= typ 2)
               (= jbfh1 6)
               (= jbfh2 4)
          )
          (and (= typ 2)
               (= jbfh1 4)
               (= jbfh2 6)
          )
      )
    (if        (> dt 30)
      (progn
        (setq b (getstring "\n根部间隙b[0-3]:"))
        (setq P (getstring "\n钝    边P[2-4]:"))
        (setq blta (getstring "\n坡口面角度blta[1-8]:"))
        (setq alfa (getstring "\n坡口面角度alfa[40-60]:"))
        (setq R (getstring "\n根部半径R[6-8]:"))
        (setq h0 (rtos (/ (- dt (atof P)) 2.0) 2 0))
      )
      (progn
        (alert "工件厚度与所选基本符号不符!")
        (exit)
      )
    )
  )
  (if (= bcfh5 "Y")
    (progn
      (initget 7)
      (setq n0 (getint "\n相同焊缝数量(N):"))
      (setq n0 (itoa n0))
    )
  )
  (if (or (= jbfh1 1)
          (= jbfh2 1)
          (= jbfh1 2)
          (= jbfh2 2)
          (= jbfh1 4)
          (= jbfh2 4)
      )
    (setq S (getstring "\n焊缝有效厚度(S)<Enter表示不标此项>:"))
  )
  (if (or (= fzfh1 1)
          (= fzfh2 1)
          (= jbfh1 4)
          (= jbfh2 4)
          (= jbfh1 6)
          (= jbfh2 6)
      )
    (setq h (getstring "\n余高(h)<Enter表示不标此项>:"))
  )
  (if (= P nil)
    (setq P "")
  )
  (if (= h0 nil)
    (setq h0 "")
  )
  (if (= K nil)
    (setq K "")
  )
  (if (= h nil)
    (setq h "")
  )
  (if (= S nil)
    (setq S "")
  )
  (if (= R nil)
    (setq R "")
  )
  (if (= n nil)
    (setq n "")
  )
  (if (= l nil)
    (setq l "")
  )
  (if (= e nil)
    (setq e "")
  )
  (if (= n0 nil)
    (setq n0 "")
  )
  (if (= alfa nil)
    (setq alfa "")
  )
  (if (= blta nil)
    (setq blta "")
  )
  (if (= b nil)
    (setq b "")
  )
  (setq text1 P)
  (if (/= h0 "")
    (setq text1 (strcat text1 " " h0))
  )
  (if (/= K "")
    (setq text1 (strcat text1 " " K))
  )
  (if (/= S "")
    (setq text1 (strcat text1 " " S))
  )
  (if (/= R "")
    (setq text1 (strcat text1 " " R))
  )
  (if (/= n "")
    (setq n (strcat n "X"))
  )
  (if (/= e "")
    (if        (and (= jbfh1 9)
             (= jbfh2 9)
        )
      (setq e (strcat "  " "(" e ")"))
      (setq e (strcat "(" e ")"))
    )
  )
  (if (/= l "")
    (setq text2 (strcat n l e))
    (setq text2 "")
  )
  (if (or (= jbfh1 9) (= jbfh2 9))
    (setq pt1 (polar pt1 0 (* sca 2)))
  )
  (if (and (= typ 1)
           (/= jbfh1 nil)
      )
    (progn
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (+ (cadr pt1) (* sca 0.5)))
               (* sca 3.5)
               "0"
               text1
      )
      (if (/= alfa "")
        (command "text"
                 "c"
                 (polar pt1 (* pi 0.5) (* sca 4))
                 (* sca 3.5)
                 "0"
                 alfa
        )
        (if (/= blta "")
          (command "text"
                   "c"
                   (polar pt1 (* pi 0.5) (* sca 4))
                   (* sca 3.5)
                   "0"
                   blta
          )
        )
      )
      (if (/= b "")
        (command "text"
                 "c"
                 (polar pt1 (* pi 0.5) (* sca 8))
                 (* sca 3.5)
                 "0"
                 b
        )
      )
      (if (/= text2 "")
        (command
          "text"
          (list (+ (car pt1) (* sca 3.5)) (+ (cadr pt1) (* sca 0.5)))
          (* sca 3.5)
          "0"
          text2
        )
      )
    )
  )
  (if (and (= typ 1)
           (/= jbfh2 nil)
      )
    (progn
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text1
      )
      (if (/= alfa "")
        (command "text"
                 "c"
                 (polar pt1 (* pi 1.5) (* sca 7.5))
                 (* sca 3.5)
                 "0"
                 alfa
        )
        (command "text"
                 "c"
                 (polar pt1 (* pi 1.5) (* sca 7.5))
                 (* sca 3.5)
                 "0"
                 blta
        )
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 11.5))
               (* sca 3.5)
               "0"
               b
      )
      (command "text"
               (list (+ (car pt1) (* sca 3.5)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text2
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 jbfh2)
      )
    (progn
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (+ (cadr pt1) (* sca 0.5)))
               (* sca 3.5)
               "0"
               text1
      )
      (if (/= alfa "")
        (command "text"
                 "c"
                 (polar pt1 (* pi 0.5) (* sca 4))
                 (* sca 3.5)
                 "0"
                 alfa
        )
        (command "text"
                 "c"
                 (polar pt1 (* pi 0.5) (* sca 4))
                 (* sca 3.5)
                 "0"
                 blta
        )
      )
      (command "text"
               "c"
               (polar pt1 (* pi 0.5) (* sca 8))
               (* sca 3.5)
               "0"
               b
      )
      (command
        "text"
        (list (+ (car pt1) (* sca 3.5)) (+ (cadr pt1) (* sca 0.5)))
        (* sca 3.5)
        "0"
        text2
      )
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text1
      )
      (if (/= alfa "")
        (command "text"
                 "c"
                 (polar pt1 (* pi 1.5) (* sca 7.5))
                 (* sca 3.5)
                 "0"
                 alfa
        )
        (command "text"
                 "c"
                 (polar pt1 (* pi 1.5) (* sca 7.5))
                 (* sca 3.5)
                 "0"
                 blta
        )
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 11.5))
               (* sca 3.5)
               "0"
               b
      )
      (command "text"
               (list (+ (car pt1) (* sca 3.5)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text2
      )
      (if (and (= jbfh1 9)
               (= jbfh2 9)
               (/= e "")
          )
        (progn
          (setq        p1 (list (+ (car pt1)
                            (* sca 5.0)
                            (* 3.0
                               (+ (strlen n)
                                  (strlen l)
                               )
                            )
                         )
                         (+ (cadr pt1) (* sca 5))
                   )
          )
          (command "pline"
                   (polar p1 pi (* sca 4))
                   "w"
                   (* sca 0)
                   (* sca 0)
                   p1
                   (list (- (car p1) (* sca 4)) (- (cadr p1) (* sca 10)))
                   (polar p1 (* pi 1.5) (* sca 10))
                   ""
          )
        )
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 4)
           (= jbfh2 6)
      )
    (progn
      (setq text1 P)
      (if (/= h0 "")
        (setq text1 (strcat text1 " " h0))
      )
      (if (/= h "")
        (setq text1 (strcat text1 " " h))
      )
      (if (/= S "")
        (setq text1 (strcat text1 " " S))
      )
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (+ (cadr pt1) (* sca 0.5)))
               (* sca 3.5)
               "0"
               text1
      )
      (command "text"
               "c"
               (polar pt1 (* pi 0.5) (* sca 4))
               (* sca 3.5)
               "0"
               alfa
      )
      (command "text"
               "c"
               (polar pt1 (* pi 0.5) (* sca 8))
               (* sca 3.5)
               "0"
               b
      )
      (command
        "text"
        (list (+ (car pt1) (* sca 3.5)) (+ (cadr pt1) (* sca 0.5)))
        (* sca 3.5)
        "0"
        text2
      )
      (setq text1 P)
      (if (/= h0 "")
        (setq text1 (strcat text1 " " h0))
      )
      (if (/= h "")
        (setq text1 (strcat text1 " " h))
      )
      (if (/= S "")
        (setq text1 (strcat text1 " " S))
      )
      (if (/= R "")
        (setq text1 (strcat text1 " " R))
      )
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text1
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 7.5))
               (* sca 3.5)
               "0"
               blta
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 11.5))
               (* sca 3.5)
               "0"
               b
      )
      (command "text"
               (list (+ (car pt1) (* sca 3.5)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text2
      )
    )
  )
  (if (and (= typ 2)
           (= jbfh1 6)
           (= jbfh2 4)
      )
    (progn
      (setq text1 P)
      (if (/= h0 "")
        (setq text1 (strcat text1 " " h0))
      )
      (if (/= h "")
        (setq text1 (strcat text1 " " h))
      )
      (if (/= S "")
        (setq text1 (strcat text1 " " S))
      )
      (if (/= R "")
        (setq text1 (strcat text1 " " R))
      )
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (+ (cadr pt1) (* sca 0.5)))
               (* sca 3.5)
               "0"
               text1
      )
      (command "text"
               "c"
               (polar pt1 (* pi 0.5) (* sca 4))
               (* sca 3.5)
               "0"
               blta
      )
      (command "text"
               "c"
               (polar pt1 (* pi 0.5) (* sca 8))
               (* sca 3.5)
               "0"
               b
      )
      (command
        "text"
        (list (+ (car pt1) (* sca 3.5)) (+ (cadr pt1) (* sca 0.5)))
        (* sca 3.5)
        "0"
        text2
      )
      (setq text1 P)
      (if (/= h0 "")
        (setq text1 (strcat text1 " " h0))
      )
      (if (/= h "")
        (setq text1 (strcat text1 " " h))
      )
      (if (/= S "")
        (setq text1 (strcat text1 " " S))
      )
      (command "text"
               "r"
               (list (- (car pt1) (* sca 3)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text1
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 7.5))
               (* sca 3.5)
               "0"
               alfa
      )
      (command "text"
               "c"
               (polar pt1 (* pi 1.5) (* sca 11.5))
               (* sca 3.5)
               "0"
               b
      )
      (command "text"
               (list (+ (car pt1) (* sca 3.5)) (- (cadr pt1) (* sca 4)))
               (* sca 3.5)
               "0"
               text2
      )
    )
  )
  (if (/= n0 "")
    (cond
      ((<= (car pt2) (car pt3))
       (command        "text"
                (list (+ (car pt3) (* sca 2))
                      (- (cadr pt3) (* sca 1.5))
                )
                (* sca 3.5)
                "0"
                n0
       )
      )
      ((> (car pt2) (car pt3))
       (setq len (strlen n0))
       (command        "text"
                (list (- (car pt3) (* sca (+ 2 (* len 2))))
                      (-
                        (cadr pt3)
                        (* sca 1.5)
                      )
                )
                (* sca 3.5)
                "0"
                n0
       )
      )
    )
  )
  ;;(command "layer" "s" ola "")
  ;;(setvar "osmode" osm)
  ;;(setvar "cmdecho" oc)
  (redraw)
  ;;(princ)
  (cmdla1)
)
;;;
(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
  )

;;;
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
  )
;;;
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
    )
  )[/php]

PFD8667

谢谢二位提供的程序,2楼提供的一下还不会用,先设置图层1和3层,我还是没有会用,恳请2楼楼主能否讲详细点,表示谢意!
4楼提供的程序为什么会这样?
命令: hffh ; 错误: quit / exit abort
命令:

ruchzh

爱心币不够，今后多努力！

PFD8667

smomo:
太感谢您得热心帮忙了,我用了不到一个小时弄懂了,确实是个好程序,又方便又实用.

ycao

谢谢提供这样好的程序。

ryxln

我是新手