[求助]：谁能帮我看一下

venus

从网上找到一个程序打开后在程序开始部分显示“AutoCAD PROTECTED LISP file”，其余是一堆乱码，加载运行后显示“错误: quit / exit abort”。
请各位帮帮忙，谢谢！
程序如下：

ll_j

这是Acad保护模式的Lisp程序，通俗的说，就是加密的，可以到下载中心找程序反编译一下就可以识别了。

venus

反编译后重新加载又显示“参数类型错误: numberp: nil”
请赐教！
程序全文如下：(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)
   (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 "\\hcad\\lsp\\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)
   (command "layer" "s" "6" "")
   (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" (polar pt1 (angle pt1 pt2) (* sca 3.5)) 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" "")
          (command "line" (polar pt2 (* pi 1.5) (* sca 1.5)) (polar pt3 (* pi 1.5) (* sca 1.5)) "")
          (command "layer" "s" "6" "")
       )
   )
   
   (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)
)

ll_j

最初由 venus 发布
反编译后重新加载又显示“参数类型错误: numberp: nil”
请赐教！
程序全文如下：(defun c:hffh()(/ oc ola osm typ pt1 pt2 pt3 pt4 pt5 p1 p2 p3 p4 ang jbfh1 jbfh2 bcfh1 bcfh2 bcfh3
              bcfh4 bc...

这是程序正常退出。
(if (and (< (setq hffh_id (load_dialog "\\hcad\\lsp\\hffh")) 0)(not jxhj_id)) (exit))
此句表明程序运行时需要一个对话框文件“\hcad\lsp\hffh.dcl”，如果你有这个文件，将文件拷贝到acad支持路径，并将以上一句中“"\\hcad\\lsp\\hffh"”改为“"hffh"”，如果没有，只好作罢。

venus

将对话框文件拷贝到acad支持路径后又加载显示“找不到图层“6””，哎，真让人着急！
请老师再赐教，谢谢！

ll_j

千万不要着急，你再建层“6”和“3”，或将程序中“(command "layer" "s" "6")”与“(command "layer" "s" "3")”中的s改为m。你在执行过程中遇到提示缺少什么，就先尽量满足，再有问题可以继续贴上来，我不知这个程序是何用途，也不知需要哪些输入条件，不好测试。

venus

我按照您说的试了一下，还是不行。其实这是我从网上下载的一个焊接符号标注程序，我用的是autocad2000中文版，还有另外两个文件（hffh.dcl和 hffh.ahp)，请您再指导一下！
谢谢！

ll_j

你把.lsp（包括反编后）、.dcl、.ahp都贴上来，或发给我“LL_J@21cn.com”，我帮你看看。

lijiao

你讲的这个程序我曾经试用过，似乎不是很方便，所以就没用它。
因为我一直用MDT，里面的工具非常丰富而且好用，所以也没有考虑编写其他程序。

venus

MDT如何使用标准零件库？

lijiao

安装过程中选择标准件库后，在菜单里就有相应的菜单项。

lt_zzy

不好意思我在下载中心没能够找到那个LSP反加密程序，能给我发一个吗？
我的电子信箱是:lt_zzy@sina.com
谢谢！！！