[求助]：批量移动修改

silen618

经常需要大量引用以前的图纸，但CAD中默认插入文件时，以0,0点为插入点，而实际上以前的图纸并没有把图纸的左下角点放在0,0点，而是随意的，给应用中造成很大麻烦。

能否批量修改一下，将所有文件中的图形对象左下角点移至0,0点。

ljpnb

你可以用(getvar "EXTMIN")取得图形是左下角点，再move到0，0点。至于程序你自己组织一下喽

silen618

谢谢楼主提醒，关键问题是有N个文件怎么批量操作呢？

zxq0220

程序中的文件名和目录名要楼主自己更改后才能运行，程序要在一个新建图形文件中执行。

2. 
   
3. (DEFUN C:MoveToOrigin ()
   
4. (SETVAR "CMDECHO" 0) (SETVAR "GRIDMODE" 0) (SETVAR "OSMODE" 0)
   
5. (SETQ PATH "D:\\DWGDIR" DFILE "DWGFILE.TXT" PATH2 "D:\\NEWDWGDIR")
   
6. (IF (NOT (FINDFILE DFILE))
   
7.   (COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >" DFILE))
   
8. )
   
9. (IF (SETQ F (OPEN DFILE "r")) (PROGN
   
10.   (WHILE (SETQ NMM (READ-LINE F))
    
11.    (COMMAND "UNDO" "BE")
    
12.    (COMMAND "INSERT" (STRCAT "*" PATH NMM) "0,0" "" "")
    
13.    (COMMAND "ZOOM" "E" "REGEN")
    
14.    (SETQ P1 (GETVAR "EXTMIN"))
    
15.    (IF (> (DISTANCE P1 (LIST 0 0)) 0.03) (PROGN
    
16.     (COMMAND "MOVE" "ALL" "" P1 (LIST 0 0) "ZOOM" "E" "REGEN")
    
17.    )
    
18.    (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
    
19.    (COMMAND "SAVEAS" (STRCAT PATH2 NMM))
    
20.    (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))
    
21.    (COMMAND "UNDO" "E")
    
22.    (COMMAND "U")
    
23.   )
    
24.   (CLOSE F)
    
25. ))
    
26. (SETVAR "CMDECHO" 1)
    
27. (PRINC)
    
28. )
    

<br /> (DEFUN C:MoveToOrigin ()<br /> (SETVAR "CMDECHO" 0) (SETVAR "GRIDMODE" 0) (SETVAR "OSMODE" 0)<br /> (SETQ PATH "D:\\DWGDIR" DFILE "DWGFILE.TXT" PATH2 "D:\\NEWDWGDIR")<br /> (IF (NOT (FINDFILE DFILE))<br />   (COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >" DFILE))<br /> )<br /> (IF (SETQ F (OPEN DFILE "r")) (PROGN<br />   (WHILE (SETQ NMM (READ-LINE F))<br />    (COMMAND "UNDO" "BE")<br />    (COMMAND "INSERT" (STRCAT "*" PATH NMM) "0,0" "" "")<br />    (COMMAND "ZOOM" "E" "REGEN")<br />    (SETQ P1 (GETVAR "EXTMIN"))<br />    (IF (> (DISTANCE P1 (LIST 0 0)) 0.03) (PROGN<br />     (COMMAND "MOVE" "ALL" "" P1 (LIST 0 0) "ZOOM" "E" "REGEN")<br />    )<br />    (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))<br />    (COMMAND "SAVEAS" (STRCAT PATH2 NMM))<br />    (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))<br />    (COMMAND "UNDO" "E")<br />    (COMMAND "U")<br />   )<br />   (CLOSE F)<br /> ))<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

hanli2005

请问DWGFILE.TXT指的是什么?

silen618

4楼：
应稍做修改：
(COMMAND "SHELL" (STRCAT "DIR " PATH " *.DWG /B >" DFILE))

(STRCAT "*" PATH "\\" NMM)

(STRCAT PATH2 "\\" NMM)