求帮忙合并一下程序

ljfzx

;;;旋转视图 by ucuc2003
(defun C:XZST (/ ro_ang)
  (setvar "cmdecho" 0)
  (princ "旋转模型空间的视图")
  (if (equal (getvar "TILEMODE") 1)
    (progn
      ;;记忆参数old_ro_ucs_z_ang (这个值在本LSP文件内必须唯一,不能有重名的)
      (if (= old_ro_ucs_z_ang nil) (setq old_ro_ucs_z_ang (/ pi 2)))
      (princ (strcat "\n指定视口绕 Z 轴的旋转角度<" (angtos old_ro_ucs_z_ang 0 6) ">: "))
      (setq ro_ang (getangle))
      (if ro_ang (setq old_ro_ucs_z_ang ro_ang)(setq ro_ang old_ro_ucs_z_ang))
      (command "_.undo" "_group")
      (command "_.ucs" "_Z" (angtos ro_ang 0 8))
      (command "_.Plan" "")
      (command "_.undo" "_end")
    )
    (princ "\n*请切换到模型空间*")
  )
  (princ)
)
;;;旋转视图end

;;;恢复视图 by ucuc2003
(defun C:HFST (/ ro_ang)
  (setvar "cmdecho" 0)
  (princ "恢复视图")
  (vl-load-com)
(setq  acadobject   (vlax-get-acad-object)
         acaddocument (vla-get-activedocument acadobject))
  (if (equal (getvar "TILEMODE") 1)
    (progn
      (command "_.undo" "_group")
      (command "_.Plan" "w" "_.ucs" "w")
      (command "_.undo" "_end")
    )
    (if (= (vla-get-mspace acaddocument) :vlax-false)
      (command "mspace" "_.Plan" "w" "_.ucs" "w")
      (command "_.Plan" "w" "_.ucs" "w")
    )
  )
  (princ)
)
;;;恢复视图end


要求输入命令后，输入角度或者点击两个点执行第一个旋转视图的程序，什么都不输入直接按空格或者回车执行第二个恢复视图的程序

或者，在输入命令后，点击左键执行第一个程序，点击右键执行第二个程序

xinxirong

1. ;;;第一个旋转视图 by ucuc2003
   
2. (defun XZST (ro_ang / )
   
3.   (setvar "cmdecho" 0)
   
4.   (princ "旋转模型空间的视图")
   
5.   (if (equal (getvar "TILEMODE") 1)
   
6.     (progn
   
7.       (command "_.undo" "_group")
   
8.       (command "_.ucs" "_Z" (angtos ro_ang 0 8))
   
9.       (command "_.Plan" "")
   
10.       (command "_.undo" "_end")
    
11.       )
    
12.     (princ "\n*请切换到模型空间*")
    
13.     )
    
14.   (princ)
    
15.   )
    
16. ;;;旋转视图end
    
17. 
    
18. ;;;第二恢复视图 保存全局变量old_ro_ucs_z_ang
    
19. (defun C:ST (/ ro_ang)
    
20.   ;;记忆参数old_ro_ucs_z_ang (这个值在本LSP文件内必须唯一,不能有重名的)
    
21.   (if (= old_ro_ucs_z_ang nil) (setq old_ro_ucs_z_ang (/ pi 2)))
    
22.   (if ro_ang (setq old_ro_ucs_z_ang ro_ang)(setq ro_ang old_ro_ucs_z_ang))
    
23.   (princ (strcat "\n指定视口绕 Z 轴的旋转角度<" (angtos old_ro_ucs_z_ang 0 6) ">(默认为恢复视图): "))
    
24.   (setq ang (getangle))
    
25.   (if ang
    
26.     (XZST ang);什么也不输入,回车/空格
    
27.     ;else
    
28.     (progn
    
29.       (setvar "cmdecho" 0)
    
30.       (princ "恢复视图")
    
31.       (vl-load-com)
    
32.       (setq  acadobject   (vlax-get-acad-object)
    
33.              acaddocument (vla-get-activedocument acadobject))
    
34.       (if (equal (getvar "TILEMODE") 1)
    
35.         (progn
    
36.           (command "_.undo" "_group")
    
37.           (command "_.Plan" "w" "_.ucs" "w")
    
38.           (command "_.undo" "_end")
    
39.           )
    
40.         (if (= (vla-get-mspace acaddocument) :vlax-false)
    
41.           (command "mspace" "_.Plan" "w" "_.ucs" "w")
    
42.           (command "_.Plan" "w" "_.ucs" "w")
    
43.           )
    
44.         )
    
45.       (princ)
    
46.       );progn
    
47.     );if
    
48.   )
    
49. ;;;恢复视图end
    

;;;第一个旋转视图 by ucuc2003<br /> (defun XZST (ro_ang / )<br />   (setvar "cmdecho" 0)<br />   (princ "旋转模型空间的视图")<br />   (if (equal (getvar "TILEMODE") 1)<br />     (progn<br />       (command "_.undo" "_group")<br />       (command "_.ucs" "_Z" (angtos ro_ang 0 8))<br />       (command "_.Plan" "")<br />       (command "_.undo" "_end")<br />       )<br />     (princ "\n*请切换到模型空间*")<br />     )<br />   (princ)<br />   )<br /> ;;;旋转视图end<br /> <br /> ;;;第二恢复视图 保存全局变量old_ro_ucs_z_ang<br /> (defun C:ST (/ ro_ang)<br />   ;;记忆参数old_ro_ucs_z_ang (这个值在本LSP文件内必须唯一,不能有重名的)<br />   (if (= old_ro_ucs_z_ang nil) (setq old_ro_ucs_z_ang (/ pi 2)))<br />   (if ro_ang (setq old_ro_ucs_z_ang ro_ang)(setq ro_ang old_ro_ucs_z_ang))<br />   (princ (strcat "\n指定视口绕 Z 轴的旋转角度<" (angtos old_ro_ucs_z_ang 0 6) ">(默认为恢复视图): "))<br />   (setq ang (getangle))<br />   (if ang<br />     (XZST ang);什么也不输入,回车/空格<br />     ;else<br />     (progn<br />       (setvar "cmdecho" 0)<br />       (princ "恢复视图")<br />       (vl-load-com)<br />       (setq  acadobject   (vlax-get-acad-object)<br />              acaddocument (vla-get-activedocument acadobject))<br />       (if (equal (getvar "TILEMODE") 1)<br />         (progn<br />           (command "_.undo" "_group")<br />           (command "_.Plan" "w" "_.ucs" "w")<br />           (command "_.undo" "_end")<br />           )<br />         (if (= (vla-get-mspace acaddocument) :vlax-false)<br />           (command "mspace" "_.Plan" "w" "_.ucs" "w")<br />           (command "_.Plan" "w" "_.ucs" "w")<br />           )<br />         )<br />       (princ)<br />       );progn<br />     );if<br />   )<br /> ;;;恢复视图end<br />

ljfzx

没有知道的吗？

ljfzx

谢谢回复，我自己根据你的思路修改了一下，加入了记忆缩放位置的功能，现在更好用了，用着别人的代码，我也不好意思私藏，决定共享出来

ljfzx

xinxirong 发表于 2017-10-17 19:24

1. (defun C:st (/ ro_ang)
   
2. (princ (strcat "\n输入角度或指定视口绕 Z 轴的旋转角度(默认为恢复视图): "))
   
3. (setq ang (getangle))
   
4.   (defun xzst (ro_ang / )
   
5.   (setvar "cmdecho" 0)
   
6.   (if (equal (getvar "TILEMODE") 1)
   
7.     (progn
   
8.       (command "_.undo" "_group")
   
9.       (setq viewcenter (getvar "VIEWCTR")
   
10.        viewsize (getvar "VIEWSIZE")
    
11.        zoom1 (polar viewcenter (* pi 0.5) viewsize)
    
12.        zoom2 (polar viewcenter (* pi 3.5) viewsize)
    
13.        zoom1 (trans zoom1 1 0)
    
14.        zoom2 (trans zoom2 1 0)
    
15.       )
    
16.       (command "_.ucs" "_Z" (angtos ro_ang 0 8))
    
17.       (command "_.Plan" "")
    
18.       (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))
    
19.       (command "_.undo" "_end")
    
20.       )
    
21.     (princ "\n*请切换到模型空间*")
    
22.     )
    
23.   (princ)
    
24.   )
    
25.   (if ang
    
26.     (xzst ang)
    
27.     (progn
    
28.   (setvar "cmdecho" 0)
    
29.   (if (equal (getvar "TILEMODE") 1)
    
30.     (progn
    
31.       (command "_.undo" "_group")
    
32.       (setq viewcenter (getvar "VIEWCTR")
    
33.        viewsize (getvar "VIEWSIZE")
    
34.        zoom1 (polar viewcenter (* pi 0.5) viewsize)
    
35.        zoom2 (polar viewcenter (* pi 3.5) viewsize)
    
36.        zoom1 (trans zoom1 1 0)
    
37.        zoom2 (trans zoom2 1 0)
    
38.       )
    
39.       (command "_.Plan" "w" "_.ucs" "w")
    
40.       (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))
    
41.       (command "_.undo" "_end")
    
42.     )
    
43.     (princ "\n*请切换到模型空间*")
    
44.   )
    
45.   (princ)
    
46. ))
    
47. )
    

(defun C:st (/ ro_ang)<br /> (princ (strcat "\n输入角度或指定视口绕 Z 轴的旋转角度(默认为恢复视图): "))<br /> (setq ang (getangle))<br />   (defun xzst (ro_ang / )<br />   (setvar "cmdecho" 0)<br />   (if (equal (getvar "TILEMODE") 1)<br />     (progn<br />       (command "_.undo" "_group")<br />       (setq viewcenter (getvar "VIEWCTR")<br />        viewsize (getvar "VIEWSIZE")<br />        zoom1 (polar viewcenter (* pi 0.5) viewsize)<br />        zoom2 (polar viewcenter (* pi 3.5) viewsize)<br />        zoom1 (trans zoom1 1 0)<br />        zoom2 (trans zoom2 1 0)<br />       )<br />       (command "_.ucs" "_Z" (angtos ro_ang 0 8))<br />       (command "_.Plan" "")<br />       (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))<br />       (command "_.undo" "_end")<br />       )<br />     (princ "\n*请切换到模型空间*")<br />     )<br />   (princ)<br />   )<br />   (if ang<br />     (xzst ang)<br />     (progn<br />   (setvar "cmdecho" 0)<br />   (if (equal (getvar "TILEMODE") 1)<br />     (progn<br />       (command "_.undo" "_group")<br />       (setq viewcenter (getvar "VIEWCTR")<br />        viewsize (getvar "VIEWSIZE")<br />        zoom1 (polar viewcenter (* pi 0.5) viewsize)<br />        zoom2 (polar viewcenter (* pi 3.5) viewsize)<br />        zoom1 (trans zoom1 1 0)<br />        zoom2 (trans zoom2 1 0)<br />       )<br />       (command "_.Plan" "w" "_.ucs" "w")<br />       (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))<br />       (command "_.undo" "_end")<br />     )<br />     (princ "\n*请切换到模型空间*")<br />   )<br />   (princ)<br /> ))<br /> )<br />

eii

挺好用的，谢谢楼主，但我喜欢逆时针为正，上面的正好是反的，有点别扭，不知别的人啥感觉。。。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

LIULISHENG

htlaser

xinxirong 发表于 2017-10-17 16:18

能不能帮我合并下程序。工作中用得比较多。
http://bbs.mjtd.com/forum.php?mo ... hlight=%BA%CF%B2%A2