布局中设置指北针方向

st788796

1. (defun c:XDTB_setCompass(/ blk e ucs)
   
2.   (if
   
3.     (and (setq blk (car (xdrx_entsel "\n拾取指北针: " '((0 . "Insert")))))
   
4.          (setq
   
5.            e (car (xdrx_entsel "\n拾取视口: " '((0 . "viewport"))))
   
6.          )
   
7.     )
   
8.      (progn
   
9.        (xd::begin)
   
10.        (setq ucs (xdrx_getpropertyvalue e "Ucs"))
    
11.        (xdrx_setpropertyvalue
    
12.          blk
    
13.          "Rotation"
    
14.          (- (* 2.5 pi) (angle '(0. 0. 0.) (last ucs)))
    
15.        )
    
16.        (xd::end)
    
17.      )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:XDTB_setCompass(/ blk e ucs)<br />   (if<br />     (and (setq blk (car (xdrx_entsel "\n拾取指北针: " '((0 . "Insert")))))<br />          (setq<br />            e (car (xdrx_entsel "\n拾取视口: " '((0 . "viewport"))))<br />          )<br />     )<br />      (progn<br />        (xd::begin)<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 />        (xd::end)<br />      )<br />   )<br />   (princ)<br /> )

hkw

:loveliness::loveliness::loveliness::loveliness:

ahlxmj

俺不会用这个程序！{:soso_e109:}

mainss1

真的很实用

l982414

lzy1979

真的是暴怒持续偶尔谢谢

lixiaolin1974

谢谢楼主分享

abenmao168

不错 很欢喜

kqqt6236

谢谢分享。

sjj

感谢楼主分享

依然小小鸟

做了很多实验   不知道为啥会失败  指北针方向有错误