各位大侠帮忙看下错在那里

啊业_48384

;;;***************针程式********************
(defun c:cync()
   (setvar "cmdecho" 0)
   (setq file2 (open "c:\\me\\cync.txt" "w"))
  
;D10.3螺丝生成坐标程式
   (setq  pin1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "M2" ))))
   (setq num1 0)
   (setq r (fix (* (cdr (assoc 40 (entget (ssname pin1 num1)))) 200.00)))
   (princ (strcat "L" (itoa r) "\n") file2)
   (repeat (sslength pin1)
           (setq x (cadr (assoc 10 (entget (ssname pin1 num1)))))
           (setq y (caddr (assoc 10 (entget (ssname pin1 num1)))))
           (setq num1 (+ num1 1))
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )

(setq bat 0)
(setq holnum 0)
  ;针孔的坐标程式
   (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "DZ"))))
   (while (/= sf0 nil )
      (setq bat (+ bat 1 ))
      (setq rad (cdr (assoc 40 (entget (ssname sf0 0 )))))
      (setq holnum (sslength sf0 ))
      (setq holbas 0)
     ;查出针孔里最小的孔
      (repeat  holnum
         (setq obj (entget (ssname sf0  holbas )))
         (setq ran (cdr (assoc 40  obj )))
         (if (< ran rad ) (setq rad ran ))
         (setq holbas (+ holbas 1 ))
      )
      (setq sf1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "DZ") (cons 40 rad ))))
      (setq dtt (fix (* rad 200.0 )))
      (setq num2 0 )
      (princ (strcat "Z" (itoa dtt) "\n") file2)
     
   (repeat (sslength sf1)
           (setq enddata (entget (ssname sf1 num2)))
           (setq x (cadr (assoc 10 (entget (ssname sf1 num2)))))
           (setq y (caddr (assoc 10 (entget (ssname sf1 num2)))))
           (setq enddata (subst (cons 8 "ss4") (cons 8 "DZ") enddata))
           (entmod enddata)
           (setq num2 (+ num2 1))
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )
  (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "DZ" ))))
  (setq bat 0 holnum 0)   
)
  
    (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "ss4" ))))
    (if (/= sf0 nil)
     (command "chprop" "p" "" "la"  "DZ" "")
    )

  (setq bat 0)
(setq holnum 0)
  ;生成螺丝孔的坐标程式
   (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "70"))))
   (while (/= sf0 nil )
      (setq bat (+ bat 1 ))
      (setq rad (cdr (assoc 40 (entget (ssname sf0 0 )))))
      (setq holnum (sslength sf0 ))
      (setq holbas 0)
     ;查出螺丝孔里最小的孔
      (repeat  holnum
         (setq obj (entget (ssname sf0  holbas )))
         (setq ran (cdr (assoc 40  obj )))
         (if (< ran rad ) (setq rad ran ))
         (setq holbas (+ holbas 1 ))
      )
      (setq sf1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "70") (cons 40 rad ))))
      (setq dtt (fix (* rad 200.0 )))
      (setq num2 0 )
      (princ (strcat "L" (itoa dtt) "\n") file2)
     
   (repeat (sslength sf1)
           (setq enddata (entget (ssname sf1 num2)))
           (setq x (cadr (assoc 10 (entget (ssname sf1 num2)))))
           (setq y (caddr (assoc 10 (entget (ssname sf1 num2)))))
           (setq enddata (subst (cons 8 "ss4") (cons 8 "70") enddata))
           (entmod enddata)
           (setq num2 (+ num2 1))
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )
  (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "70" ))))
  (setq bat 0 holnum 0)   
)
  
    (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "ss4" ))))
    (if (/= sf0 nil)
     (command "chprop" "p" "" "la"  "70" "")
    )
(setq bat 0)
(setq holnum 0)
  ;生成玉螺丝孔的坐标程式
   (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "8"))))
   (while (/= sf0 nil )
      (setq bat (+ bat 1 ))
      (setq rad (cdr (assoc 40 (entget (ssname sf0 0 )))))
      (setq holnum (sslength sf0 ))
      (setq holbas 0)
     ;查出玉螺丝孔里最小的孔
      (repeat  holnum
         (setq obj (entget (ssname sf0  holbas )))
         (setq ran (cdr (assoc 40  obj )))
         (if (< ran rad ) (setq rad ran ))
         (setq holbas (+ holbas 1 ))
      )
      (setq sf1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "8") (cons 40 rad ))))
      (setq dtt (fix (* rad 200.0 )))
      (setq num2 0 )
      (princ (strcat "L" (itoa dtt) "\n") file2)
     
   (repeat (sslength sf1)
           (setq enddata (entget (ssname sf1 num2)))
           (setq x (cadr (assoc 10 (entget (ssname sf1 num2)))))
           (setq y (caddr (assoc 10 (entget (ssname sf1 num2)))))
           (setq enddata (subst (cons 8 "ss4") (cons 8 "8") enddata))
           (entmod enddata)
           (setq num2 (+ num2 1))
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )
  (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "8" ))))
  (setq bat 0 holnum 0)   
)
  
    (setq  sf0 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "ss4" ))))
    (if (/= sf0 nil)
     (command "chprop" "p" "" "la"  "8" "")
    )
;牙筒孔生成坐标程式
   (setq  pin1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "YT1" ))))
   (setq num1 0)
   (setq r (fix (* (cdr (assoc 40 (entget (ssname pin1 num1)))) 200.00)))
   (princ (strcat "Y" (itoa r) "\n") file2)
   (repeat (sslength pin1)
           (setq x (cadr (assoc 10 (entget (ssname pin1 num1)))))
           (setq y (caddr (assoc 10 (entget (ssname pin1 num1)))))
           (setq num1 (+ num1 1))
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )
;D4.0MM基准孔生成坐标程式
   (setq  pin1 (ssget "x" (list (cons 0 "CIRCLE") (cons 8 "PIN" ) (cons 40 2.00))))
   (if (= pin1 nil) (progn (alert "PIN层未有D4.0MM的基准孔,按确定键退出!")
                           (exit)
                    )
   )
   (setq num1 0)
   (setq r (fix (* (cdr (assoc 40 (entget (ssname pin1 num1)))) 200.00)))
   (princ (strcat "P" (itoa r) "\n") file1)
   (princ (strcat "P" (itoa r) "\n") file2)
   (repeat (sslength pin1)
           (setq x (cadr (assoc 10 (entget (ssname pin1 num1)))))
           (setq y (caddr (assoc 10 (entget (ssname pin1 num1)))))
           (setq num1 (+ num1 1))
           (princ (strcat "X" (rtos (* x -1.00) 2 3)) file1)
           (princ (strcat " Y" (rtos y 2 3) "\n") file1)
           (princ (strcat "X" (rtos x 2 3)) file2)
           (princ (strcat " Y" (rtos y 2 3) "\n") file2)
   )
  
(close file2)
(command "start" "c:\\me\\cync")
(princ)
)
;--------------------------------------------------------------------------

伪书虫86

好多，看的头晕啊

Andyhon

(setq file2 (open "c:\\me\\cync.txt" "w"))
... ;; 中段未查
(StartApp "NotePad.exe"  "c:\\me\\cync.txt")

啊业_48384

老师不是这个问题呀

错误: 参数类型错误: FILE nil