lyy前辈，mccad老总，caoyin版主，抽几分钟看看YAD的动态查询程序

qjchen

:), lyy兄程序编的很好。条理很清晰。

为了满足liminnet的需要，做了一定的坐标旋转变换。

大致可以实现如下效果，也不知道是不是liminnet想要的。

 

 

qjchen

:)
假如你不介意屏幕一闪的话，可以将就用如下代码的
我这段代码比较烂 :P

3. ;;qjchen
4. (defun c:test( / alpha1 myss)
5. (setq myss (ssget) alpha1 (/ (* 180 (- (* 2 pi) (getvar "viewtwist"))) pi))
6. (command "rotate" myss "" (list 0 0 0) alpha1)
7. (ko-get->list-ssbox myss t)
8. (ssadd (entlast) myss)
9. (command "rotate" myss "" (list 0 0 0) (- alpha1))
10. )

;;qjchen (defun c:test( / alpha1 myss) (setq myss (ssget) alpha1 (/ (* 180 (- (* 2 pi) (getvar "viewtwist"))) pi)) (command "rotate" myss "" (list 0 0 0) alpha1) (ko-get->list-ssbox myss t) (ssadd (entlast) myss) (command "rotate" myss "" (list 0 0 0) (- alpha1)) )

qjchen

:),
那你试试这段吧，闪的稍微小些，只是UCS的转换
假如要真的不闪，得对所有实体做下矩阵变换，这两天要出去，不知道有没有时间来试试。

3. ;;qjchen
4. (defun c:test2 (/ alpha myss)
5.   (vl-load-com)
6.   (setq myss (ssget)
7. alpha (- (* 2 pi) (getvar "viewtwist"))
8.   )
9.   (vl-cmdf "ucs" "s" "qjchen")
10.   (vl-cmdf "ucs" "n" "3"
11.       (list 0 0 0)
12.       (list (cos alpha) (sin alpha) 0)
13.     (list (- (sin alpha)) (cos alpha) 0)
14.   )
15.   (ko-get->list-ssbox myss t)
16.   (vl-cmdf "ucs" "r" "qjchen")
17.   (vl-cmdf "ucs" "d" "qjchen")
18.   (princ)
19. )

;;qjchen (defun c:test2 (/ alpha myss)   (vl-load-com)   (setq myss (ssget) alpha (- (* 2 pi) (getvar "viewtwist"))   )   (vl-cmdf "ucs" "s" "qjchen")   (vl-cmdf "ucs" "n" "3"       (list 0 0 0)       (list (cos alpha) (sin alpha) 0)     (list (- (sin alpha)) (cos alpha) 0)   )   (ko-get->list-ssbox myss t)   (vl-cmdf "ucs" "r" "qjchen")   (vl-cmdf "ucs" "d" "qjchen")   (princ) )