分图后居中问题

lslsq

代码如下，功能没什么问题，就是分图后的DWG文档打开后图纸内容不是居中(需要的是类似于鼠标双击中键后的效果)，图很多的时候需要每个打开后双击鼠标中键比较麻烦，现在想省去这个步骤，求大神帮忙修改一下。

lslsq

2. (defun C:ft (/ ANSWER EN FLAG FLAG1 INITDIR NewName SS originaldwg)
   
3.   (if (setq Initdir (getvar "dwgprefix"))
   
4.     nil
   
5.     (progn (princ "\n 文件未保存,不能分图") (exit))
   
6.   )
   
7.         (setq originaldwg (getvar "DWGNAME" ))
   
8.   (setq flag1 T)
   
9.   (while (and flag1
   
10.                                          (progn
    
11.                                                  (initget "S C ZS T Z J 1 Y G M ")
    
12.                                                  (setq en (getkword "\n >输入需加的前缀按对应字码即可；\n (S)说明书\n (C)CNC\n (ZS)分流板（外发中丝）\n (T)铜套发热圈\n (Z)阀针\n (J)结构\n (1)手动输入\n (Y)运水套\n (G)隔热板\n (M)模组\n "))
    
13.                                                  (IF en
    
14.                                                          (COND
    
15.                                                                  ((= en "S")(setq en "说明书"))
    
16.                                                                  ((= en "C")(setq en "CNC"))
    
17.                                                                  ((= en "ZS")(setq en "分流板（外发中丝）"))
    
18.                                                                  ((= en "T")(setq en "铜套发热圈"))
    
19.                                                                  ((= en "Z")(setq en "阀针"))
    
20.                                                                  ((= en "J")(setq en "结构"))
    
21.                                                                  ((= en "1")(setq en (getstring "\n 输入需加的前缀") ))
    
22.                                                                  ((= en "Y")(setq en "运水套"))
    
23.                                                                  ((= en "G")(setq en "隔热板"))
    
24.                                                                  ((= en "M")(setq en "模组"))
    
25.                                                          )
    
26.                                                  )
    
27.                                          )
    
28.                                          (setq NewName (strcat en "-" originaldwg))
    
29.                                  )
    
30.     (if        (findfile (strcat Initdir NewName ))
    
31.       (setq flag T)
    
32.     )
    
33.                 (while flag
    
34.                         (alert (strcat "\n 该文件名已经存在.\n请在" Initdir"路径下\n把<"NewName">删除," "\n或重输入文件名.") )
    
35.                         (exit)
    
36.                 )
    
37.     (princ "\n >>选择保存对象")
    
38.     (setvar "NOMUTT" 1)
    
39.     (setq ss (ssget))
    
40.     (setvar "NOMUTT" 0)
    
41.                 (command "_.WBLOCK"
    
42.                         (strcat Initdir NewName)
    
43.                         ""
    
44.                         "0,0"
    
45.                         ss
    
46.                         ""
    
47.                 )
    
48.                 (command "oops" "")
    
49.     (princ (strcat "\n >>>文件<<<< " NewName ">>>成功保存!!!\n"))
    
50.     (if        (ssget "X")
    
51.       (progn
    
52.                                 (initget "Yes No")
    
53.                                 (setq answer (GETKWORD "[停止(N)/继续(Y)]" ))
    
54.                                 (if (equal answer "No")
    
55.                                         (setq flag1 nil)
    
56.                                 )
    
57.       )
    
58.       (setq flag1 nil)
    
59.     )
    
60.   )
    
61.   (princ)
    
62. )

(defun C:ft (/ ANSWER EN FLAG FLAG1 INITDIR NewName SS originaldwg)<br />   (if (setq Initdir (getvar "dwgprefix"))<br />     nil<br />     (progn (princ "\n 文件未保存,不能分图") (exit))<br />   )<br />         (setq originaldwg (getvar "DWGNAME" ))<br />   (setq flag1 T)<br />   (while (and flag1<br />                                          (progn<br />                                                  (initget "S C ZS T Z J 1 Y G M ")<br />                                                  (setq en (getkword "\n >输入需加的前缀按对应字码即可；\n (S)说明书\n (C)CNC\n (ZS)分流板（外发中丝）\n (T)铜套发热圈\n (Z)阀针\n (J)结构\n (1)手动输入\n (Y)运水套\n (G)隔热板\n (M)模组\n "))<br />                                                  (IF en<br />                                                          (COND<br />                                                                  ((= en "S")(setq en "说明书"))<br />                                                                  ((= en "C")(setq en "CNC"))<br />                                                                  ((= en "ZS")(setq en "分流板（外发中丝）"))<br />                                                                  ((= en "T")(setq en "铜套发热圈"))<br />                                                                  ((= en "Z")(setq en "阀针"))<br />                                                                  ((= en "J")(setq en "结构"))<br />                                                                  ((= en "1")(setq en (getstring "\n 输入需加的前缀") ))<br />                                                                  ((= en "Y")(setq en "运水套"))<br />                                                                  ((= en "G")(setq en "隔热板"))<br />                                                                  ((= en "M")(setq en "模组"))<br />                                                          )<br />                                                  )<br />                                          )<br />                                          (setq NewName (strcat en "-" originaldwg))<br />                                  )<br />     (if        (findfile (strcat Initdir NewName ))<br />       (setq flag T)<br />     )<br />                 (while flag<br />                         (alert (strcat "\n 该文件名已经存在.\n请在" Initdir"路径下\n把<"NewName">删除," "\n或重输入文件名.") )<br />                         (exit)<br />                 )<br />     (princ "\n >>选择保存对象")<br />     (setvar "NOMUTT" 1)<br />     (setq ss (ssget))<br />     (setvar "NOMUTT" 0)<br />                 (command "_.WBLOCK"<br />                         (strcat Initdir NewName)<br />                         ""<br />                         "0,0"<br />                         ss<br />                         ""<br />                 )<br />                 (command "oops" "")<br />     (princ (strcat "\n >>>文件<<<< " NewName ">>>成功保存!!!\n"))<br />     (if        (ssget "X")<br />       (progn<br />                                 (initget "Yes No")<br />                                 (setq answer (GETKWORD "[停止(N)/继续(Y)]" ))<br />                                 (if (equal answer "No")<br />                                         (setq flag1 nil)<br />                                 )<br />       )<br />       (setq flag1 nil)<br />     )<br />   )<br />   (princ)<br /> )