求助大神 lsp批量修改圆插件原保存格式dwg改成dxf

wutao8282

求助高手指点，如何把这个lsp批量修改插件保存格式改成dxf(打开格式和保存格式都改成dxf。原dwg)

2. (defun c:tt (/ f file tmp)
   
3.   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"
   
4.              "d:\"
   
5.              "dwg"
   
6.              0
   
7.            )
   
8.     f (vl-filename-directory f)
   
9.     f (mapcar '(lambda (x) (strcat f "\" x))
   
10.         (vl-directory-files f "*.dwg" 1)
    
11.       )
    
12.   )
    
13.   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))
    
14.   (foreach n f
    
15.     (write-line (strcat "_.open "" n """) tmp)
    
16.     (write-line
    
17.       "(setq ss (ssget "x" '((0 . "CIRCLE") )))
    
18. (repeat  (setq n (sslength ss))
    
19. (setq  en (ssname ss (setq n (1- n))))
    
20. (setq centerpt(Cdr(Assoc 10 (Entget en))))
    
21. (entmake (list '(0 . "LINE") (cons 10 (polar centerpt pi 5 )) (cons 11 (polar centerpt 0 5 ))))
    
22. (entmake (list '(0 . "LINE") (cons 10 (polar centerpt  ( * 0.5 pi) 5 )) (cons 11 (polar centerpt  ( * -0.5 pi) 5 )))))"
    
23.       tmp
    
24.     )
    
25.     (write-line "_.qsave _.close" tmp)
    
26.   )
    
27.   (close tmp)
    
28.   (command ".script" file)
    
29.   (vl-file-delete file)
    
30.   (princ)
    
31. )

(defun c:tt (/ f file tmp)<br />   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"<br />              "d:\"<br />              "dwg"<br />              0<br />            )<br />     f (vl-filename-directory f)<br />     f (mapcar '(lambda (x) (strcat f "\" x))<br />         (vl-directory-files f "*.dwg" 1)<br />       )<br />   )<br />   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))<br />   (foreach n f<br />     (write-line (strcat "_.open "" n """) tmp)<br />     (write-line<br />       "(setq ss (ssget "x" '((0 . "CIRCLE") )))<br /> (repeat  (setq n (sslength ss))<br /> (setq  en (ssname ss (setq n (1- n))))<br /> (setq centerpt(Cdr(Assoc 10 (Entget en))))<br /> (entmake (list '(0 . "LINE") (cons 10 (polar centerpt pi 5 )) (cons 11 (polar centerpt 0 5 ))))<br /> (entmake (list '(0 . "LINE") (cons 10 (polar centerpt  ( * 0.5 pi) 5 )) (cons 11 (polar centerpt  ( * -0.5 pi) 5 )))))"<br />       tmp<br />     )<br />     (write-line "_.qsave _.close" tmp)<br />   )<br />   (close tmp)<br />   (command ".script" file)<br />   (vl-file-delete file)<br />   (princ)<br /> )

梦想家-DING

(DEFUN C:dxf(/ F W p n s)
  (SETQ W (GETVAR "DWGPREFIX"))
  (setq s (ssget))
  (SETQ F (GETFILED "另存为 dxf" W "dxf" 3))
  (IF F
  (IF (FINDFILE F)
  (progn
  (COMMAND "WBLOCK" F "y" "" "0,0" s "")
  (command "oops"))
  (progn
  (COMMAND "WBLOCK" F "" "0,0" s "")
  (command "oops"))
  )
  )
  (princ)
)


------------------------------

试试看

wutao8282

梦想家-DING 发表于 2022-5-19 11:12
(DEFUN C:dxf(/ F W p n s)
  (SETQ W (GETVAR "DWGPREFIX"))
  (setq s (ssget))

非常感谢，不过我是要按上面这个改，批量修改图纸里面的圆，在圆心处加十字标。批处理。上面的代码现在是选择一个文件夹里面的任意图纸，可以把文件夹内所有的圆心加十字标，但是只支持dwg,我要修改的文件格式是dxf的，希望能帮我dwg改成dxf

wutao8282

梦想家-DING 发表于 2022-5-19 11:12
(DEFUN C:dxf(/ F W p n s)
  (SETQ W (GETVAR "DWGPREFIX"))
  (setq s (ssget))

2. (defun c:tt (/ f file tmp)
   
3.   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"
   
4.                                                  "d:\"
   
5.                                                  "dwg"
   
6.                                                  0
   
7.                                          )
   
8.                 f (vl-filename-directory f)
   
9.                 f (mapcar '(lambda (x) (strcat f "\" x))
   
10.                                 (vl-directory-files f "*.dwg" 1)
    
11.       )
    
12.   )
    
13.   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))
    
14.   (foreach n f
    
15.     (write-line (strcat "_.open "" n """) tmp)
    
16.     (write-line
    
17.       "(setq ss (ssget "x" '((0 . "CIRCLE") )))
    
18. (repeat  (setq n (sslength ss))
    
19. (setq  en (ssname ss (setq n (1- n))))
    
20. (setq centerpt(Cdr(Assoc 10 (Entget en))))
    
21. (entmake (list '(0 . "LINE") (cons 10 (polar centerpt pi 5 )) (cons 11 (polar centerpt 0 5 ))))
    
22. (entmake (list '(0 . "LINE") (cons 10 (polar centerpt  ( * 0.5 pi) 5 )) (cons 11 (polar centerpt  ( * -0.5 pi) 5 )))))"
    
23.       tmp
    
24.                 )
    
25.     (write-line "_.qsave _.close" tmp)
    
26.         )
    
27.   (close tmp)
    
28.   (command ".script" file)
    
29.   (vl-file-delete file)
    
30.   (princ)
    
31. )

(defun c:tt (/ f file tmp)<br />   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"<br />                                                  "d:\"<br />                                                  "dwg"<br />                                                  0<br />                                          )<br />                 f (vl-filename-directory f)<br />                 f (mapcar '(lambda (x) (strcat f "\" x))<br />                                 (vl-directory-files f "*.dwg" 1)<br />       )<br />   )<br />   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))<br />   (foreach n f<br />     (write-line (strcat "_.open "" n """) tmp)<br />     (write-line<br />       "(setq ss (ssget "x" '((0 . "CIRCLE") )))<br /> (repeat  (setq n (sslength ss))<br /> (setq  en (ssname ss (setq n (1- n))))<br /> (setq centerpt(Cdr(Assoc 10 (Entget en))))<br /> (entmake (list '(0 . "LINE") (cons 10 (polar centerpt pi 5 )) (cons 11 (polar centerpt 0 5 ))))<br /> (entmake (list '(0 . "LINE") (cons 10 (polar centerpt  ( * 0.5 pi) 5 )) (cons 11 (polar centerpt  ( * -0.5 pi) 5 )))))"<br />       tmp<br />                 )<br />     (write-line "_.qsave _.close" tmp)<br />         )<br />   (close tmp)<br />   (command ".script" file)<br />   (vl-file-delete file)<br />   (princ)<br /> )