CAD屏幕旋转命令

nyistjz

这是我在网上花100元请人从FAS文件中还原出来的屏幕旋转源文件，里面有两个命令FNZP和CADZP两个命令可用。在cad模型和布局中使用效果很好，旋转后可还原。
比论坛中的其它转屏命令要好用很多！

zmzk

还有你这功能和我以前在本论坛下载的"斜轴线对正垂直显示"程序功能一样，请看下边

2. (defun C:gv (/ os ctscale tt pt pt1 pt2 pt3 by ang)
   
3. 
   
4.   (setvar "CMDECHO" 0)
   
5.   (setvar "ucsfollow" 0)
   
6.   (setvar "regenmode" 1)
   
7.   (setq os (getvar "OSMODE"))
   
8. 
   
9. ;;;  (if (= cts nil)(setq cts 100))
   
10. ;;;  (setq ctscale (getreal (strcat "\n出图比例(1:?) <" (rtos cts 2 0) ">:")))
    
11. ;;;  (if (= ctscale nil)(setq ctscale cts))
    
12. ;;;  (setq cts ctscale)
    
13.   (setq ctscale 100)
    
14. 
    
15.   (initget "Y W")
    
16.   (setq tt (getkword "\nW-世界坐标系/<垂直显示>: "))
    
17.   (if (or (= tt "w") (= tt "W"))
    
18.     (progn
    
19.       (command "plan" "w")
    
20.       (command "ucs" "w")
    
21.       (command "view" "r" "dz")
    
22.       (setq ptt nil)
    
23.       (command "regen")
    
24.     )
    
25.     (progn
    
26.       (if (= ptt nil)(command "view" "s" "dz"))
    
27.       (setvar "osmode" 513)
    
28.       (setq pt1 (getpoint "\n点取Y轴原点<退出>:"))
    
29.       (if pt1
    
30.   (progn
    
31.     (setq pt2 (getpoint "\n选择Y轴正向<退出>:"))
    
32.     (if pt2
    
33.       (progn
    
34.         (setq ang (angle pt1 pt2))
    
35.         ;;;(command "color" "250")
    
36.         (setq pt3 (polar pt1 (- ang (/ pi 2)) (* 0.1 ctscale)))
    
37.         (setvar "osmode" (+ 16384 os))
    
38.         (command "line" pt1 pt3 "")
    
39.         (command "color" "Bylayer")
    
40.         (setq pt (entlast))
    
41.         (command "ucs" "e" pt)
    
42.         (command "plan" "")
    
43.         (setq ptt '(0 0))
    
44.         (setq by (* 150 ctscale))
    
45.         (command "zoom" "c" ptt by)
    
46.         (entdel pt)
    
47.         (command "regen")
    
48.       )        ;progn
    
49.     )        ;if pt2
    
50.   )        ;progn
    
51.       )          ;if pt1
    
52.       (setvar "osmode" os)
    
53.     )          ;progn
    
54.   )          ;if tt
    
55. 
    
56. 
    
57.   (princ)
    
58. 
    
59. )

(defun C:gv (/ os ctscale tt pt pt1 pt2 pt3 by ang)<br /> <br />   (setvar "CMDECHO" 0)<br />   (setvar "ucsfollow" 0)<br />   (setvar "regenmode" 1)<br />   (setq os (getvar "OSMODE"))<br /> <br /> ;;;  (if (= cts nil)(setq cts 100))<br /> ;;;  (setq ctscale (getreal (strcat "\n出图比例(1:?) <" (rtos cts 2 0) ">:")))<br /> ;;;  (if (= ctscale nil)(setq ctscale cts))<br /> ;;;  (setq cts ctscale)<br />   (setq ctscale 100)<br /> <br />   (initget "Y W")<br />   (setq tt (getkword "\nW-世界坐标系/<垂直显示>: "))<br />   (if (or (= tt "w") (= tt "W"))<br />     (progn<br />       (command "plan" "w")<br />       (command "ucs" "w")<br />       (command "view" "r" "dz")<br />       (setq ptt nil)<br />       (command "regen")<br />     )<br />     (progn<br />       (if (= ptt nil)(command "view" "s" "dz"))<br />       (setvar "osmode" 513)<br />       (setq pt1 (getpoint "\n点取Y轴原点<退出>:"))<br />       (if pt1<br />   (progn<br />     (setq pt2 (getpoint "\n选择Y轴正向<退出>:"))<br />     (if pt2<br />       (progn<br />         (setq ang (angle pt1 pt2))<br />         ;;;(command "color" "250")<br />         (setq pt3 (polar pt1 (- ang (/ pi 2)) (* 0.1 ctscale)))<br />         (setvar "osmode" (+ 16384 os))<br />         (command "line" pt1 pt3 "")<br />         (command "color" "Bylayer")<br />         (setq pt (entlast))<br />         (command "ucs" "e" pt)<br />         (command "plan" "")<br />         (setq ptt '(0 0))<br />         (setq by (* 150 ctscale))<br />         (command "zoom" "c" ptt by)<br />         (entdel pt)<br />         (command "regen")<br />       )        ;progn<br />     )        ;if pt2<br />   )        ;progn<br />       )          ;if pt1<br />       (setvar "osmode" os)<br />     )          ;progn<br />   )          ;if tt<br /> <br /> <br />   (princ)<br /> <br /> )

nyistjz

石井鱼 发表于 2018-10-8 12:22
这个还要收费啊，试试这个呢
(command "DVIEW" "" "TW" "270" "")
(command "DVIEW" "" "TW" "0" " ...

您这个也是个好办法。
因为我自己不会编程，用过很多其它方法，总体上来讲，感觉这个小程序里的操作是最方便的。
可以任意角度，并且在布局中表现也很好！
收两个币，是因为我毕竟是花了100元人民币的啊！

nyistjz

xinxirong 发表于 2018-10-7 22:12
造福社会是好事，但不要损害别人正当利益。另外，旋转屏幕这种简单的命令纯粹是cad基础，一个ucs和plan命令 ...

严重同意您的观点！
因为CAD基本功不好，不会编程，没有办法把命令简单化。不好意思，让您见笑了！

yoyoho

谢谢! nyistjz 分享程序!!!!!

669423907

谢谢分享。不知道有什么用呢？

evayleung

怎么样旋转的？能给个GIF图来看看么？我通常是直接旋转显示器的。

xinxirong

造福社会是好事，但不要损害别人正当利益。另外，旋转屏幕这种简单的命令纯粹是cad基础，一个ucs和plan命令就能搞定

ysq101

evayleung 发表于 2018-10-7 20:44
怎么样旋转的？能给个GIF图来看看么？我通常是直接旋转显示器的。

李时珍的皮

updoc

CAD 基本功，不明觉厉

石井鱼

这个还要收费啊，试试这个呢
(command "DVIEW" "" "TW" "270" "")
(command "DVIEW" "" "TW" "0" "")