[求助]：编写一下在图纸空间和模型空间自动切换的程式.

liyunlong

最好能够自定义图框.然后生成每一个模型的长宽高尺雨!

康宁

怎么没人说话啊

david96007

我这里有一个类似的,在模型空间选定范围后,自动切换到图纸空间,根据你输入的比例大小画图mv窗口!r14下编写!

2. 
   
3. (defun set_ini ()
   
4. 
   
5.   (setq cmdsave (getvar "cmdecho"))
   
6.   (setq os (getvar "OSMODE"))
   
7. 
   
8.   (setvar "cmdecho" 0)
   
9.   (setvar "OSMODE" 0)
   
10. 
    
11. ) ;_ end of defun
    
12. 
    
13. (defun err_new (msg)
    
14.   (princ msg)
    
15.   (set_close)
    
16. ) ;_ end of defun
    
17. 
    
18. (defun set_close ()
    
19.   (setvar "OSMODE" os)
    
20.   (setvar "cmdecho" cmdsave)
    
21.   (setq *error* err_old)
    
22. ) ;_ end of defun
    
23. 
    
24. 
    
25. 
    
26. 
    
27. (defun c:arr ()
    
28.   (setq err_old *error*
    
29.         *error* err_new
    
30.   ) ;_ end of setq
    
31. 
    
32.   (set_ini)
    
33. 
    
34.   (princ "\n请点取需要出图范围第一角点:\n")
    
35.   (setq FP (getpoint))
    
36.   (setq SP (getcorner FP "\n请点取出图范围另一角点:\n"))
    
37.   (setq HT (abs (- (cadr sp) (cadr fp))))
    
38.   (setq WD (abs (- (car sp) (car fp))))
    
39. 
    
40. 
    
41.   (setq Sca (getstring "\n请输入出图比例<1/100>:"))
    
42.   (if (= sca "")
    
43.     (setq sca "1/100")
    
44.   ) ;_ end of if
    
45.   (setq scal (atoi (substr sca 3)))
    
46.   (command "tilemode" 0)
    
47. 
    
48.   (command "_zoom" "e")
    
49. 
    
50.   (princ "\n请点取图的左下角点:\n")
    
51.   (setq BLP (getpoint))
    
52.   (setq        TRP (list (+ (car BLP) (/ Wd scal))
    
53.                   (+ (cadr BLP) (/ HT scal))
    
54.                   0
    
55.             ) ;_ end of list
    
56.   ) ;_ end of setq
    
57.   (command "_zoom" BLP TRP)
    
58. 
    
59.   (command "_mview" BLP TRP)
    
60.   (command "_mspace")
    
61.   (command "_zoom" fp sp)
    
62.   (command "_zoom" (strcat sca "xp"))
    
63.   (command "_pspace")
    
64.   (command "_zoom" "e")
    
65. 
    
66.   (set_close)
    
67.   (gc)
    
68.   (princ)
    
69. ) ;_ end of defun
    

<br /> (defun set_ini ()<br /> <br />   (setq cmdsave (getvar "cmdecho"))<br />   (setq os (getvar "OSMODE"))<br /> <br />   (setvar "cmdecho" 0)<br />   (setvar "OSMODE" 0)<br /> <br /> ) ;_ end of defun<br /> <br /> (defun err_new (msg)<br />   (princ msg)<br />   (set_close)<br /> ) ;_ end of defun<br /> <br /> (defun set_close ()<br />   (setvar "OSMODE" os)<br />   (setvar "cmdecho" cmdsave)<br />   (setq *error* err_old)<br /> ) ;_ end of defun<br /> <br /> <br /> <br /> <br /> (defun c:arr ()<br />   (setq err_old *error*<br />         *error* err_new<br />   ) ;_ end of setq<br /> <br />   (set_ini)<br /> <br />   (princ "\n请点取需要出图范围第一角点:\n")<br />   (setq FP (getpoint))<br />   (setq SP (getcorner FP "\n请点取出图范围另一角点:\n"))<br />   (setq HT (abs (- (cadr sp) (cadr fp))))<br />   (setq WD (abs (- (car sp) (car fp))))<br /> <br /> <br />   (setq Sca (getstring "\n请输入出图比例<1/100>:"))<br />   (if (= sca "")<br />     (setq sca "1/100")<br />   ) ;_ end of if<br />   (setq scal (atoi (substr sca 3)))<br />   (command "tilemode" 0)<br /> <br />   (command "_zoom" "e")<br /> <br />   (princ "\n请点取图的左下角点:\n")<br />   (setq BLP (getpoint))<br />   (setq        TRP (list (+ (car BLP) (/ Wd scal))<br />                   (+ (cadr BLP) (/ HT scal))<br />                   0<br />             ) ;_ end of list<br />   ) ;_ end of setq<br />   (command "_zoom" BLP TRP)<br /> <br />   (command "_mview" BLP TRP)<br />   (command "_mspace")<br />   (command "_zoom" fp sp)<br />   (command "_zoom" (strcat sca "xp"))<br />   (command "_pspace")<br />   (command "_zoom" "e")<br /> <br />   (set_close)<br />   (gc)<br />   (princ)<br /> ) ;_ end of defun<br />

PFD8667

能不能编一个2004的

david96007

14下能用的2004下也应该没问题的！