读得到坐标就是没有获得当前文件名,求帮忙

啊业_48384

(defun c:tt()
   (setvar "cmdecho" 0)
   (setq FIL_PATH "c:\\dwg\\cnc\\")
   (setq FIL_NUM (file_num))
;;;取得文件编号
  (setq file3 (strcat "\n请输入文件名<" FIL_NUM ">:"))
  (setq wj_name (getstring file3))
  (setq file3 (open (strcat FIL_PATH wj_name ".nc") "w"))
  (if (= wj_name "")
    (setq wj_name FIL_NUM)
  )

  (princ "\n请选择要的圆：")
   (setq a (ssget))
   (setq n (sslength a))
   (setq i 0 m 0)
   (repeat n
     (setq en(ssname a i))
     (setq endata(entget en))
     (setq entype(cdr (assoc 0 endata)))
     (if(= entype "CIRCLE")
      (progn
       (setq x(cadr(assoc 10 endata)))
       (setq y(caddr(assoc 10 endata)))
       (princ "X" file3)
       (princ (rtos x 2 3) file3)
       (princ "  " file3)
       (princ "Y" file3)
       (princ (rtos y 2 3) file3)
       (princ "\n" file3)
       (setq m (+ 1 m))  
      )
     )
     (setq i (+ 1 i))
   )
(princ (strcat "\n共有<" (itoa m) ">孔被选择!"))
(close file3)
(prin1)
)

ZZXXQQ

2. (defun c:tt()
   
3.   (setq FIL_PATH "c:\\dwg\\cnc\")
   
4.   (setq FIL_NUM (getvar "DWGNAME"));;;当前文件名
   
5.   (setq FIL_NUM (substr FIL_NUM 1 (- (strlen FIL_NUM) 4)))
   
6.   (setq wj_name (getstring (strcat "\n请输入文件名<" FIL_NUM ">:")))
   
7.   (if (= wj_name "") (setq wj_name FIL_NUM))
   
8.   (setq file3 (open (strcat FIL_PATH wj_name ".nc") "w"))
   
9.   (if (and (princ "\n请选择要的圆：")
   
10.    (setq a (ssget '((0 . "CIRCLE"))))) (progn
    
11.    (setq i 0)
    
12.    (repeat (sslength ss)
    
13.      (setq pt (cdr(assoc 10 (entget (ssname a i)))))
    
14.      (princ "X" (rtos (car pt) 2 3) "  Y" (rtos (cadr pt) 2 3) "\n" file3)
    
15.      (setq i (1+ i))
    
16.    )
    
17.    (princ (strcat "\n共有<" (itoa i) ">孔被选择!"))
    
18.    (close file3)
    
19.   ))
    
20.   (prin1)
    
21. )
    

(defun c:tt()<br />   (setq FIL_PATH "c:\\dwg\\cnc\")<br />   (setq FIL_NUM (getvar "DWGNAME"));;;当前文件名<br />   (setq FIL_NUM (substr FIL_NUM 1 (- (strlen FIL_NUM) 4)))<br />   (setq wj_name (getstring (strcat "\n请输入文件名<" FIL_NUM ">:")))<br />   (if (= wj_name "") (setq wj_name FIL_NUM))<br />   (setq file3 (open (strcat FIL_PATH wj_name ".nc") "w"))<br />   (if (and (princ "\n请选择要的圆：")<br />    (setq a (ssget '((0 . "CIRCLE"))))) (progn<br />    (setq i 0)<br />    (repeat (sslength ss)<br />      (setq pt (cdr(assoc 10 (entget (ssname a i)))))<br />      (princ "X" (rtos (car pt) 2 3) "  Y" (rtos (cadr pt) 2 3) "\n" file3)<br />      (setq i (1+ i))<br />    )<br />    (princ (strcat "\n共有<" (itoa i) ">孔被选择!"))<br />    (close file3)<br />   ))<br />   (prin1) <br /> )<br />

啊业_48384

ZZXXQQ 发表于 2014-11-24 21:43

错误: 参数类型错误: FILE "-104.400"

不行。不要带有.dwg