CAD屏幕旋转命令

mokson

人才济济呀。望而生畏。

zmzk

请问，两个命令FNZP和CADZP有什么区别？怎么我试过了，感觉功能一样呢？？

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

andyzha

总用视口布局的人需要掌握的基本技能，编程更便捷。值得分享，希望是无私的。

nyistjz

cjjh8301

李钊伟2012

感觉这一百元不值得，如何告诉你怎么破解，就值钱了

mokson

居然有这样的命令？