图形旋转，坐标不变，有没有高手可以解决？

ke55555

各位高手，小弟有个问题，好久了，一直没有解决，万能的明经有没有办法啊，我是搞土木桥梁的，比如说一个正交直线桥，在CAD里面画出桩位图，画出来的路线图是斜的，有没有办法把图纸旋转正交，沿正Y方向，而且各个点的坐标不变！

dunkel

就象下面图示的这样？可以桥线为 Y 轴建一 ucs，plan 命令将视图配合到当前 ucs，将图框和里面的些文字需要的话旋转到 0 °，然后在 ucs 的 wcs 选项返回原来的坐标系统。需要的话，可以在刚才的 ucs 里命名保存下，以后可以直接再回到这个 ucs 状态以对图面进行操作，比如添加文字说明之类；需要重新生成坐标列表的话，再返回 wcs；如果坐标列表程序是自己的话，修改下以 wcs 而非 ucs 生成坐标，也就无须返回 wcs 了。

fcut2004

(defun C:Qq() (command "ucsfollow" "0" "UCS" "OB") (PRINC))  
;局部坐标系，不旋转模型空间

(defun C:Q1() (command "ucsfollow" "1" "UCS" "OB") (PRINC))  
;局部坐标系，旋转模型空间
(DEFUN C:Qw () (COMMAND "ucsfollow" "0" "UCS" "W") (PRINC))
;世界坐标系
(DEFUN C:Q3 () (COMMAND "ucsfollow" "1" "UCS" "W") (PRINC))
;世界坐标系,旋转模型空间

fcut2004

(defun ug()               ;获取ucs角度
( setq ug1  (getvar  "ucsxdir" ))
( setq x1 (car ug1))
( setq y1 ( car (cdr ug1)))
( setq ug2 (/ y1 x1))
( setq ug3 (atan ug2))
)
(defun c:fa (/ ent1 pt_START pt_END)
(ug)
  (setq ent1 (entsel "\n请选择对象："))
  (cond
    ((= ENT1 NIL) (CHSNAP))
    (
     (= (cdr (assoc 0 (entget (car ent1)))) "LWPOLYLINE")
     (CHSNAP)
    )
    (
     (=
       (cdr (assoc 0 (entget (car ent1))))
       "LINE"
     )
     (progn
       (setq pt_START (cdr (assoc 10 (entget (car ent1)))))
       (setq pt_END (cdr (assoc 11 (entget (car ent1)))))
       (setvar "snapang" (- (angle pt_START pt_END) ug3 ))
     )
    )
  )
  (setvar "orthomode" 1)
  (princ)
)

(DEFUN
   CHSNAP
  (/ PT1 PT2)
  (setq pt1 (getpoint "\n请选择第一点："))
  (setq pt2 (getpoint "\n请选择第二点："))
  (setvar "snapang" (angle pt1 pt2))
)
(defun c:af()
(setvar "snapang"0)

)
；这个主要是通过修改snapang这个变量，来旋光标方向，还需完善，我上网下载的。

vip-happy

看是不是你想要的

ke55555

vip-happy 发表于 2012-11-15 20:02
看是不是你想要的

你没发现你的每个桩基的坐标都变化了吗？

ke55555

dunkel 发表于 2012-11-15 08:48
就象下面图示的这样？可以桥线为 Y 轴建一 ucs，plan 命令将视图配合到当前 ucs，将图框和里面的些文字需要 ...

每个点的坐标变化了吗？

dunkel

坐标系统不变或者回复了原来的，各点的坐标当然不会发生变化，又不是对实体进行了移动或旋转。

江湖远人

楼主可以在布局里旋转处理！

ll_j

看看我这段程序能不能用，这是我以前一个程序的一部分，刚才调整了一下。

1. (defun hh_()
   
2.   (princ "\n字高 <")
   
3.   (princ h_)
   
4.   (setq h__ (getdist pt1 ">: "))
   
5.   (if (/= h__ nil)
   
6.     (progn
   
7.       (setq h_ h__)
   
8.       (setvar "textsize" h_)
   
9.     )
   
10.   )
    
11.   (setq pt2 nil)
    
12. )
    
13. (defun scc_()
    
14.   (princ "\n坐标比例 <")
    
15.   (princ sca_)
    
16.   (setq sca__ (getreal ">: "))
    
17.   (if (/= sca__ nil) (setq sca_ sca__))
    
18.   (setq pt2 nil)
    
19. )
    
20. 
    
21. (defun mktext(:str :pt10 / :sty)  ;写文字
    
22.   (setq        :pt10(trans :pt10 1 0))
    
23.   (entmake
    
24.     (list
    
25.       '(0 . "TEXT")
    
26.       (cons 1 :str)
    
27.       (cons 10 :pt10)
    
28.       (cons 11 :pt10)
    
29.       (cons 7 (setq :sty(getvar "textstyle")))
    
30.       (cons 40 h_)
    
31.       (cons 41 (cdr (assoc 41 (tblsearch "style" :sty))))
    
32.       (cons 50 (angle (trans '(0 0 0) 1 0) (trans '(1 0 0) 1 0)))
    
33.       '(71 . 0)
    
34.       (cons 72 0)
    
35.     )
    
36.   )
    
37. )
    
38. 
    
39. (defun c:idd(/ px pt0 pt1 pt2 pt3 pt4 lx pt1x pt2y jd h__ sca__)    ;;标注点坐标于图形屏幕
    
40.   (setvar "unitmode" 0)
    
41.   (setq pt1 (getpoint "\n给出测量点:")
    
42.         h__ (getvar "textsize")
    
43.         sca__ 1.0
    
44.         pt2 nil
    
45.   )
    
46.   (if (or (= h_ nil) (/= h_ h__)) (setq h_ h__))
    
47.   (if (= sca_ nil) (setq sca_ sca__))
    
48.   (if (= ou_ nil) (setq ou_ "上下"))
    
49.   (if (= sy_ nil) (setq sy_ "大地坐标"))
    
50.   (while (= pt2 nil)
    
51.     (princ (strcat "\n坐标系统:" sy_ "; 输出模式:" ou_ "; 字高:" (rtos h_ 2 2) "; 坐标比例" (rtos sca_ 2 2) "。"))
    
52.     (initget "Out Coo Height Scale")
    
53.     (setq pt2 (getpoint pt1 "\n坐标系统C / 输出模式O / 字高H / 坐标比例S / < 给出输出点 >: "))
    
54.     (cond
    
55.       ((= pt2 "Height") (hh_))
    
56.       ((= pt2 "Scale") (scc_))
    
57.       ((= pt2 "Coo")
    
58.        (if (= sy_ "大地坐标")
    
59.          (setq sy_ "用户坐标")
    
60.          (if (= sy_ "用户坐标")
    
61.            (setq sy_ "世界坐标")
    
62.            (setq sy_ "大地坐标")
    
63.          )
    
64.        )
    
65.        (setq pt2 nil)
    
66.       )
    
67.       ((= pt2 "Out") (if (= ou_ "水平") (setq ou_ "上下") (setq ou_ "水平")) (setq pt2 nil))
    
68.       (t  nil)
    
69.     )
    
70.   )
    
71.   (if (or (= sy_ "大地坐标") (= sy_ "世界坐标")) (setq pt0 (trans pt1 1 0)) (setq pt0 pt1))
    
72.   (setq pt1x(rtos (* (car pt0) sca_) 2 3)
    
73.         pt1y(rtos (* (cadr pt0) sca_ ) 2 3)
    
74.   )
    
75.   (if (= sy_ "大地坐标") (setq px pt1y pt1y pt1x pt1x px))
    
76.   (if (= ou_ "上下")
    
77.     (progn
    
78.       (setq pt1x (strcat "X=" pt1x)
    
79.             pt1y (strcat "Y=" pt1y)
    
80.             lx   (+ (max (caadr (textbox (list (cons 1 pt1x)))) (caadr (textbox (list (cons 1 pt1y))))) (* 0.4 h_))
    
81.       )
    
82.       (if (>= (car pt2) (car pt1))
    
83.         (setq pt3 (list (+ (car pt2) (* 0.2 h_)) (+ (cadr pt2) (* 0.4 h_)) 0.0)
    
84.               pt4 (list (+ (car pt2) (* 0.2 h_)) (- (cadr pt2) (* 1.4 h_)) 0.0)
    
85.               jd 0.0
    
86.         )
    
87.         (setq pt3 (list (+ (car pt2) (* 0.2 h_) (- lx)) (+ (cadr pt2) (* 0.4 h_)) 0.0)
    
88.               pt4 (list (+ (car pt2) (* 0.2 h_) (- lx)) (- (cadr pt2) (* 1.4 h_)) 0.0)
    
89.               jd pi
    
90.         )
    
91.       )
    
92.       (mktext pt1x pt3)
    
93.       (mktext pt1y pt4)
    
94.       (command "line" pt1 pt2 (polar pt2 jd lx) "")
    
95.     )
    
96.     (progn
    
97.       (setq pt3 pt2)
    
98.       (mktext pt1x pt3)
    
99.       (setq pt4 (list (+ (car pt2) (caadr (TEXTBOX (entget(entlast)))) h_) (cadr pt2) 0.0))
    
100.       (mktext pt1y pt4)
     
101.     )
     
102.   )
     
103.   (princ)
     
104. )
     

(defun hh_()<br />   (princ "\n字高 <")<br />   (princ h_)<br />   (setq h__ (getdist pt1 ">: "))<br />   (if (/= h__ nil)<br />     (progn<br />       (setq h_ h__)<br />       (setvar "textsize" h_)<br />     )<br />   )<br />   (setq pt2 nil)<br /> )<br /> (defun scc_()<br />   (princ "\n坐标比例 <")<br />   (princ sca_)<br />   (setq sca__ (getreal ">: "))<br />   (if (/= sca__ nil) (setq sca_ sca__))<br />   (setq pt2 nil)<br /> )<br /> <br /> (defun mktext(:str :pt10 / :sty)  ;写文字<br />   (setq        :pt10(trans :pt10 1 0))<br />   (entmake<br />     (list<br />       '(0 . "TEXT")<br />       (cons 1 :str)<br />       (cons 10 :pt10)<br />       (cons 11 :pt10)<br />       (cons 7 (setq :sty(getvar "textstyle")))<br />       (cons 40 h_)<br />       (cons 41 (cdr (assoc 41 (tblsearch "style" :sty))))<br />       (cons 50 (angle (trans '(0 0 0) 1 0) (trans '(1 0 0) 1 0)))<br />       '(71 . 0)<br />       (cons 72 0)<br />     )<br />   )<br /> )<br /> <br /> (defun c:idd(/ px pt0 pt1 pt2 pt3 pt4 lx pt1x pt2y jd h__ sca__)    ;;标注点坐标于图形屏幕<br />   (setvar "unitmode" 0)<br />   (setq pt1 (getpoint "\n给出测量点:")<br />         h__ (getvar "textsize")<br />         sca__ 1.0<br />         pt2 nil<br />   )<br />   (if (or (= h_ nil) (/= h_ h__)) (setq h_ h__))<br />   (if (= sca_ nil) (setq sca_ sca__))<br />   (if (= ou_ nil) (setq ou_ "上下"))<br />   (if (= sy_ nil) (setq sy_ "大地坐标"))<br />   (while (= pt2 nil)<br />     (princ (strcat "\n坐标系统:" sy_ "; 输出模式:" ou_ "; 字高:" (rtos h_ 2 2) "; 坐标比例" (rtos sca_ 2 2) "。"))<br />     (initget "Out Coo Height Scale")<br />     (setq pt2 (getpoint pt1 "\n坐标系统C / 输出模式O / 字高H / 坐标比例S / < 给出输出点 >: "))<br />     (cond<br />       ((= pt2 "Height") (hh_))<br />       ((= pt2 "Scale") (scc_))<br />       ((= pt2 "Coo")<br />        (if (= sy_ "大地坐标")<br />          (setq sy_ "用户坐标")<br />          (if (= sy_ "用户坐标")<br />            (setq sy_ "世界坐标")<br />            (setq sy_ "大地坐标")<br />          )<br />        )<br />        (setq pt2 nil)<br />       )<br />       ((= pt2 "Out") (if (= ou_ "水平") (setq ou_ "上下") (setq ou_ "水平")) (setq pt2 nil))<br />       (t  nil)<br />     )<br />   )<br />   (if (or (= sy_ "大地坐标") (= sy_ "世界坐标")) (setq pt0 (trans pt1 1 0)) (setq pt0 pt1))<br />   (setq pt1x(rtos (* (car pt0) sca_) 2 3)<br />         pt1y(rtos (* (cadr pt0) sca_ ) 2 3)<br />   )<br />   (if (= sy_ "大地坐标") (setq px pt1y pt1y pt1x pt1x px))<br />   (if (= ou_ "上下")<br />     (progn<br />       (setq pt1x (strcat "X=" pt1x)<br />             pt1y (strcat "Y=" pt1y)<br />             lx   (+ (max (caadr (textbox (list (cons 1 pt1x)))) (caadr (textbox (list (cons 1 pt1y))))) (* 0.4 h_))<br />       )<br />       (if (>= (car pt2) (car pt1))<br />         (setq pt3 (list (+ (car pt2) (* 0.2 h_)) (+ (cadr pt2) (* 0.4 h_)) 0.0)<br />               pt4 (list (+ (car pt2) (* 0.2 h_)) (- (cadr pt2) (* 1.4 h_)) 0.0)<br />               jd 0.0<br />         )<br />         (setq pt3 (list (+ (car pt2) (* 0.2 h_) (- lx)) (+ (cadr pt2) (* 0.4 h_)) 0.0)<br />               pt4 (list (+ (car pt2) (* 0.2 h_) (- lx)) (- (cadr pt2) (* 1.4 h_)) 0.0)<br />               jd pi<br />         )<br />       )<br />       (mktext pt1x pt3)<br />       (mktext pt1y pt4)<br />       (command "line" pt1 pt2 (polar pt2 jd lx) "")<br />     )<br />     (progn<br />       (setq pt3 pt2)<br />       (mktext pt1x pt3)<br />       (setq pt4 (list (+ (car pt2) (caadr (TEXTBOX (entget(entlast)))) h_) (cadr pt2) 0.0))<br />       (mktext pt1y pt4)<br />     )<br />   )<br />   (princ)<br /> )<br />