模型框选区域转布局生成视口

qmqyqj

这个程序是在本论坛上面找到了，具体忘记了了连接地址了贴出来想请教一下论坛前辈
1.这里面的  出图比例怎么做记忆，使用一次后下次使用会记忆上次的出图比例并且能在提示里面显示出来？
2.这个代码在使用中有一个重复功能，当使用了一次后，如果在布局空间再使用这个功能，不能自动返回到模型空间重新选择区域，需要怎么修改？

本人大白，对lisp有点懵比，需求请高手指点下迷津！

2. defun c:wv ()
   
3.   (setvar "DYNMODE" 3)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq LAY (getvar "CLAYER"))
   
6.   (setq os (getvar "OSMODE"))
   
7.   (setq olderr *error*)                        ;保存原有*erroer*函数内容
   
8.   (defun *error* (msg)                        ;自定义出错处理
   
9.     (COMMAND "CLAYER" LAY)
   
10.     (setq *error* olderr)
    
11.     (princ errn)
    
12.   )
    
13.   (if (= scaa nil)
    
14.     (setq scaa "100")
    
15.   )
    
16.   (if (= 1 (getvar "TILEMODE"))
    
17.     (progn
    
18.       (setq err_old *error*
    
19.             *error* err_new
    
20.       ) ;_ end of setq
    
21.       (setvar "OSMODE" 1)
    
22.       (command "model")
    
23.       (princ "\n请点取需要出图范围第一角点:\n")
    
24.       (setq FP (getpoint))
    
25.       (setq SP (getcorner FP "\n请点取出图范围另一角点:\n"))
    
26.       (setq HT (abs (- (cadr sp) (cadr fp))))
    
27.       (setq WD (abs (- (car sp) (car fp))))
    
28.       (COMMAND "CLAYER" LAY)
    
29.       (setvar "OSMODE" os)
    
30.       (setq *error* olderr)                ;恢复原有*error*函数内容
    
31.       (COMMAND "CLAYER" LAY)
    
32.       (setvar "OSMODE" os)
    
33.       (setvar "TILEMODE" 0)
    
34.       (princ
    
35.         "2\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。\n\n"
    
36.       )
    
37.       (c:wv)
    
38.     )
    
39.     (progn
    
40.       (if (or (null fp) (null sp))
    
41.     (progn
    
42.           (princ "\n程序将切换至【模型空间】设置视口显示区域!")
    
43.           (setvar "TILEMODE" 1)
    
44.           (c:wv)
    
45.         )
    
46.         (progn
    
47.           (setq        sca
    
48.                  (getstring
    
49.                    (strcat
    
50.                      "\n空格重复上次比例，或输入新出图比例【 1∶？】>1："
    
51.                    )
    
52.                  )
    
53.           )
    
54.           (if (= sca "")
    
55.             (setq sca scaa)
    
56.           ) ;_ end of if
    
57.           (setq scaa sca)
    
58.           (setq scal (atoi (substr sca 1)))
    
59.           (princ "\n请点取图的左下角点\n\n")
    
60.           (setq BLP (getpoint))
    
61.           (setq        TRP (list (+ (car BLP) (/ Wd scal))
    
62.                           (+ (cadr BLP) (/ HT scal))
    
63.                           0
    
64.                     ) ;_ end of list
    
65.           ) ;_ end of setq
    
66.           (command "_zoom" BLP TRP)
    
67.           (command "_mview" BLP TRP)
    
68.           (command "_mspace")
    
69.           (command "_zoom" fp sp)
    
70.           (command "_zoom" (strcat "1/" sca "xp"))
    
71.           (command "_pspace")
    
72.           (command "_zoom" "e")
    
73.           (command "mview" "l" "on" "c" BLP TRP "")
    
74.           (COMMAND "LAYER" "M" "Defpoints" "C" "8" "" "")
    
75.           (command "change" BLP "" "p" "la" "Defpoints" "")
    
76.           (setq blp nil)
    
77.         )
    
78.       )
    
79.     )
    
80.   )                                        ;end if
    
81.   (COMMAND "CLAYER" LAY)
    
82.   (setvar "OSMODE" os)
    
83.   (setq *error* olderr)                        ;恢复原有*error*函数内容
    
84.   (COMMAND "CLAYER" LAY)
    
85.   (setvar "OSMODE" os)
    
86.   (princ)
    
87. )

defun c:wv ()<br />   (setvar "DYNMODE" 3)<br />   (setvar "cmdecho" 0)<br />   (setq LAY (getvar "CLAYER"))<br />   (setq os (getvar "OSMODE"))<br />   (setq olderr *error*)                        ;保存原有*erroer*函数内容<br />   (defun *error* (msg)                        ;自定义出错处理<br />     (COMMAND "CLAYER" LAY)<br />     (setq *error* olderr)<br />     (princ errn)<br />   )<br />   (if (= scaa nil)<br />     (setq scaa "100")<br />   )<br />   (if (= 1 (getvar "TILEMODE"))<br />     (progn<br />       (setq err_old *error*<br />             *error* err_new<br />       ) ;_ end of setq<br />       (setvar "OSMODE" 1)<br />       (command "model")<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 />       (COMMAND "CLAYER" LAY)<br />       (setvar "OSMODE" os)<br />       (setq *error* olderr)                ;恢复原有*error*函数内容<br />       (COMMAND "CLAYER" LAY)<br />       (setvar "OSMODE" os)<br />       (setvar "TILEMODE" 0)<br />       (princ<br />         "2\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。\n\n"<br />       )<br />       (c:wv)<br />     )<br />     (progn<br />       (if (or (null fp) (null sp))<br />     (progn<br />           (princ "\n程序将切换至【模型空间】设置视口显示区域!")<br />           (setvar "TILEMODE" 1)<br />           (c:wv)<br />         )<br />         (progn<br />           (setq        sca<br />                  (getstring<br />                    (strcat<br />                      "\n空格重复上次比例，或输入新出图比例【 1∶？】>1："<br />                    )<br />                  )<br />           )<br />           (if (= sca "")<br />             (setq sca scaa)<br />           ) ;_ end of if<br />           (setq scaa sca)<br />           (setq scal (atoi (substr sca 1)))<br />           (princ "\n请点取图的左下角点\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 />           (command "_mview" BLP TRP)<br />           (command "_mspace")<br />           (command "_zoom" fp sp)<br />           (command "_zoom" (strcat "1/" sca "xp"))<br />           (command "_pspace")<br />           (command "_zoom" "e")<br />           (command "mview" "l" "on" "c" BLP TRP "")<br />           (COMMAND "LAYER" "M" "Defpoints" "C" "8" "" "")<br />           (command "change" BLP "" "p" "la" "Defpoints" "")<br />           (setq blp nil)<br />         )<br />       )<br />     )<br />   )                                        ;end if<br />   (COMMAND "CLAYER" LAY)<br />   (setvar "OSMODE" os)<br />   (setq *error* olderr)                        ;恢复原有*error*函数内容<br />   (COMMAND "CLAYER" LAY)<br />   (setvar "OSMODE" os)<br />   (princ)<br /> )

bssurvey

qmqyqj 发表于 2018-4-26 09:02
想问下，这执行完毕后，怎么自动的把那个框选的值清空（第一次在使用的时候，如果在布局空间，程序会自动 ...

如果您每次都是新的模式 可以把一些判斷關閉
[code="lisp] defun c:wv ()
    (setvar "DYNMODE" 3)
    (setvar "cmdecho" 0)
    (setq LAY (getvar "CLAYER"))
    (setq os (getvar "OSMODE"))
    (setq olderr *error*)                        ;保存原有*erroer*函数内容
  (defun *error* (msg)                        ;自定义出错处理
    (COMMAND "CLAYER" LAY)
      (setq *error* olderr)
      (princ errn)
    )
    (if (= scaa nil)
      (setq scaa "100")
    )
    ;(if (= 1 (getvar "TILEMODE"))
     ; (progn
        (setq err_old *error*
              *error* err_new
        ) ;_ end of setq
        (setvar "OSMODE" 1)
        (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))))
        (COMMAND "CLAYER" LAY)
        (setvar "OSMODE" os)
        (setq *error* olderr)                ;恢复原有*error*函数内容
      (COMMAND "CLAYER" LAY)
        (setvar "OSMODE" os)
        (setvar "TILEMODE" 0)
       ; (princ
        ;  "2\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。\n\n"
        ;)
        ;(c:wv)
      ;)
      ;(progn
      ;  (if (or (null fp) (null sp))
      ;(progn
      ;      (princ "\n程序将切换至【模型空间】设置视口显示区域!")
      ;     (setvar "TILEMODE" 1)
      ;      (c:wv)
      ;    )
      ;    (progn
            (setq        sca
                   (getstring
                     (strcat
                       "\n空格重複上次比例，或輸入新出圖比例【 1︰" scaa "】>1："
                    )
                   )
            )
            (if (= sca "")
              (setq sca scaa)
            ) ;_ end of if
            (setq scaa sca)
            (setq scal (atoi (substr sca 1)))
            (princ "\n请点取图的左下角点\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)
            (command "_mspace")
            (command "_zoom" fp sp)
            (command "_zoom" (strcat "1/" sca "xp"))
            (command "_pspace")
            (command "_zoom" "e")
            (command "mview" "l" "on" "c" BLP TRP "")
            (COMMAND "LAYER" "M" "Defpoints" "C" "8" "" "")
            (command "change" BLP "" "p" "la" "Defpoints" "")
            (setq blp nil)
      ;    )
      ;  )
      ;)
    ;)                                        ;end if
    ; (command "model")
   (COMMAND "CLAYER" LAY)
    (setvar "OSMODE" os)
    (setq *error* olderr)                        ;恢复原有*error*函数内容
  (COMMAND "CLAYER" LAY)
    (setvar "OSMODE" os)
    (princ)
)[/code]

bssurvey

[code="lisp] defun c:wv ()
   (setvar "DYNMODE" 3)
   (setvar "cmdecho" 0)
   (setq LAY (getvar "CLAYER"))
   (setq os (getvar "OSMODE"))
   (setq olderr *error*)                        ;保存原有*erroer*函数内容
  (defun *error* (msg)                        ;自定义出错处理
    (COMMAND "CLAYER" LAY)
     (setq *error* olderr)
     (princ errn)
   )
   (if (= scaa nil)
     (setq scaa "100")
   )
   (if (= 1 (getvar "TILEMODE"))
     (progn
       (setq err_old *error*
             *error* err_new
       ) ;_ end of setq
       (setvar "OSMODE" 1)
       (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))))
       (COMMAND "CLAYER" LAY)
       (setvar "OSMODE" os)
       (setq *error* olderr)                ;恢复原有*error*函数内容
      (COMMAND "CLAYER" LAY)
       (setvar "OSMODE" os)
       (setvar "TILEMODE" 0)
       (princ
         "2\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。\n\n"
       )
       (c:wv)
     )
     (progn
       (if (or (null fp) (null sp))
     (progn
           (princ "\n程序将切换至【模型空间】设置视口显示区域!")
           (setvar "TILEMODE" 1)
           (c:wv)
         )
         (progn
           (setq        sca
                  (getstring
                    (strcat
                      "\n空格重複上次比例，或輸入新出圖比例【 1︰" scaa "】>1："
                    )
                  )
           )
           (if (= sca "")
             (setq sca scaa)
           ) ;_ end of if
           (setq scaa sca)
           (setq scal (atoi (substr sca 1)))
           (princ "\n请点取图的左下角点\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)
           (command "_mspace")
           (command "_zoom" fp sp)
           (command "_zoom" (strcat "1/" sca "xp"))
           (command "_pspace")
           (command "_zoom" "e")
           (command "mview" "l" "on" "c" BLP TRP "")
           (COMMAND "LAYER" "M" "Defpoints" "C" "8" "" "")
           (command "change" BLP "" "p" "la" "Defpoints" "")
           (setq blp nil)
         )
       )
     )
   )                                        ;end if
    (command "model")
   (COMMAND "CLAYER" LAY)
   (setvar "OSMODE" os)
   (setq *error* olderr)                        ;恢复原有*error*函数内容
  (COMMAND "CLAYER" LAY)
   (setvar "OSMODE" os)
   (princ)
)[/code]

qmqyqj

bssurvey 发表于 2018-4-24 15:20
如果是這樣，(command "model") 就沒作用了， 直接用手動切換比較快

想问下，这执行完毕后，怎么自动的把那个框选的值清空（第一次在使用的时候，如果在布局空间，程序会自动跳到模型空间，但使用了一次后在布局空间就不能自动跳回模型空间了，应该是有了那个框选的范围值后，程序就默认使用这个值，而不跳回模型空间重新框选了）

qmqyqj

bssurvey 发表于 2018-4-24 13:46

谢谢，明白一点了，非常感谢
后面添加  (command"model") ,运行命令后会直接返回到模型空间，怎么能改成按空格才返回去（命令结束后，等待下一步指示，按空格，返回模型空间重新选择区域，按esc取消操作）

bssurvey

qmqyqj 发表于 2018-4-24 14:19
谢谢，明白一点了，非常感谢
后面添加  (command"model") ,运行命令后会直接返回到模型空间，怎么能改成 ...

如果是這樣，(command "model") 就沒作用了， 直接用手動切換比較快

qmqyqj

bssurvey 发表于 2018-4-24 15:20
如果是這樣，(command "model") 就沒作用了， 直接用手動切換比較快

好的，谢谢你的耐心解惑，我再研究研究

czb203

bssurvey 发表于 2018-4-26 09:58
如果您每次都是新的模式 可以把一些判斷關閉

请点取图的左下角点
; 错误: 输入中含有多余的闭括号:Q:Q

xj6019

学习了，就是不知道为什么，运行完一次命令后，捕捉全部消失，动态输入的设置也发生了变化   请问这是为什么啊

mokson

改变了某些变量后，没有恢复。