用视口去刷指北针可能吗

清风明月10

请问，我有一个指北针在“布局1”中，在视口A也在该布局中，视口是旋转过的，怎么让指北针的方向与世界坐标系的Y轴吻合呢？好象视口图元的组码中应该包含了世界坐标系的信息。
我的设想是，如果视口的DXF码中有世界坐标系Y轴方位的信息 ，就可以写代码，用视口去刷指北针

st788796

1. (defun c:tt (/ blk e ucs)
   
2.   (if
   
3.     (and (setq blk (car (xdrx_entsel "\nPick Insert: " '((0 . "Insert")))))
   
4.          (setq
   
5.            e (car (xdrx_entsel "\nPick ViewPort: " '((0 . "viewport"))))
   
6.          )
   
7.     )
   
8.      (progn
   
9.        (setq ucs (xdrx_getpropertyvalue e "Ucs"))
   
10.        (xdrx_setpropertyvalue
    
11.          blk
    
12.          "Rotation"
    
13.          (- (* 2.5 pi) (angle '(0. 0. 0.) (last ucs)))
    
14.        )
    
15.      )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt (/ blk e ucs)<br />   (if<br />     (and (setq blk (car (xdrx_entsel "\nPick Insert: " '((0 . "Insert")))))<br />          (setq<br />            e (car (xdrx_entsel "\nPick ViewPort: " '((0 . "viewport"))))<br />          )<br />     )<br />      (progn<br />        (setq ucs (xdrx_getpropertyvalue e "Ucs"))<br />        (xdrx_setpropertyvalue<br />          blk<br />          "Rotation"<br />          (- (* 2.5 pi) (angle '(0. 0. 0.) (last ucs)))<br />        )<br />      )<br />   )<br />   (princ)<br /> )

ll_j

视口的相关组码就不说了，变量可以看看view打头的几个，不过手动旋转就可以了，使用“平行”捕捉，视口外是可以捕捉视口内实体的。

st788796

如长老所言，参照旋转就可以做到

清风明月10

谢谢2楼，代码很好用！就是没有说明到底是根据视口的那个组码来判断正北方向的

friendship12c

学习一下，膜拜

XDSoft

st788796 发表于 2014-4-8 08:37

整理下，发布个插件吧。