[编程申请]：申请编一个创建视口程序

lshpool

;视口建立
(defun c:mvl()
(setq old (getvar "cmdecho"))
(setvar "cmdecho" 0)
(progn  (setq a (entsel))
        (prompt "\n请输入比例(nxp)<")
        (setq b (getreal ">:"))
        (setq c (/ 1 b))  
         
(setq d (********)     请教高手,如何让d的数值等于"Cxp",例如,C数值等100时,让D为100XP?
        (command "mview" "o" a)
        (command "mspace" "zoom" d "pspace")
        (command "mview" "l" "on" a ""))      
(setvar "cmdecho"  old)(princ))

david96007

我有个类似的程序，编着玩的，一直没用！

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 />

xyp1964

2. [FONT=courier new];;视口建立
   
3. (defun c:test ()
   
4.   (setq a (entsel))
   
5.   (prompt "\n请输入比例(nxp)<")
   
6.   (setq        b (getreal ">:")
   
7.         c (/ 1 b)
   
8.         d (strcat (rtos c 2 4) "xp")
   
9.   )
   
10.   (command "mview" "o" a)
    
11.   (command "mspace" "zoom" d "pspace")
    
12.   (command "mview" "l" "on" a "")
    
13.   (princ)
    
14. )[/FONT]

[FONT=courier new];;视口建立<br /> (defun c:test ()<br />   (setq a (entsel))<br />   (prompt "\n请输入比例(nxp)<")<br />   (setq        b (getreal ">:")<br />         c (/ 1 b)<br />         d (strcat (rtos c 2 4) "xp")<br />   )<br />   (command "mview" "o" a)<br />   (command "mspace" "zoom" d "pspace")<br />   (command "mview" "l" "on" a "")<br />   (princ)<br /> )[/FONT]

gucci218

既然acad中都有这样的命令，干嘛还要再编程序，"mv"足够了吧？再编程有背CAGD的原则.

lshpool

修改2楼程序
实现下面功能：点生成视口－－自动切换到模型中，提示你选择范围－－提示你输入比例－－在布局中生成视口并锁定视口
类似于天正中的定义视口功能
执行命令 mvl

(defun set_ini ()

  (setq cmdsave (getvar "cmdecho"))
  (setq os (getvar "OSMODE"))

  (setvar "cmdecho" 0)
  (setvar "OSMODE" 0)

) ;_ end of defun

(defun err_new (msg)
  (princ msg)
  (set_close)
) ;_ end of defun

(defun set_close ()
  (setvar "OSMODE" os)
  (setvar "cmdecho" cmdsave)
  (setq *error* err_old)
) ;_ end of defun




(defun c:mvl ()
  (setq err_old *error*
        *error* err_new
  ) ;_ end of setq

  (set_ini)
(command "model")
  (princ "\n请点取需要出图范围第一角点:\n")
  (setq FP (getpoint))
  (setq SP (getcorner FP "\n请点取出图范围另一角点:\n"))
  (setq HT (abs (- (cadr sp) (cadr fp))))
  (setq WD (abs (- (car sp) (car fp))))


  (setq Sca (getstring "\n请输入出图比例<1:100>:1:"))
  (if (= sca "")
    (setq sca "100")
  ) ;_ end of if
  (setq scal (atoi (substr sca 1)))
  (command "tilemode" 0)

  (command "_zoom" "e")

  (princ "\n请点取图的左下角点:\n")
  (setq BLP (getpoint))
  (setq        TRP (list (+ (car BLP) (/ Wd scal))
                  (+ (cadr BLP) (/ HT scal))
                  0
            ) ;_ end of list
  ) ;_ end of setq
  (command "_zoom" BLP TRP)

  (command "_mview" BLP TRP)       ;怎么把这一步骤生成的视口附值setq A  到A,然后在下面视口锁定时候，让他自动选择刚刚生成的视口

  (command "_mspace")
  (command "_zoom" fp sp)
  (command "_zoom" (strcat "1/" sca "xp"))
  (command "_pspace")
  (command "_zoom" "e")
  (command "mview" "l" "on" "c" BLP TRP "")   ;锁定视口
  (set_close)
  (gc)
  (princ)
) ;_ end of defun

花羽

关键是视口要实现固定区域固定比例就好了

5shuo8dao

没看出这个有编程的必要
如果出于兴趣，出于锻炼，出于技术积累完全可以，出于使用？有点怪。
从这个帖子里隐隐看出，随着CAD的功能越来越强，过分强调编程的，有点失落。

lshpool

楼上的话，不能苟同，用CAD方法布局非常不方便，用了这个工具就好的多了

swaywood

我写的程序在公司里面用，有的人也认为有的东西没必要写成程序，我就告诉他，你可以不用，但看到大家点几点就搞定时，自己又要去用，
我想说的意思是，做成程序是有他的道理的，程序永远比你手快