[编程申请]：再议获得屏幕角点坐标的问题

lijiao

2. 
   
3.   [FONT=courier new]
   
4. (setq ptc (getvar "viewctr"))
   
5. ;;;屏幕中心,UCS下
   
6. (setq pmh (/ (getvar "viewsize") 2.0))
   
7. ;;;屏幕高/2
   
8. (setq pmsize (getvar "screensize"))
   
9. ;;;屏幕尺寸
   
10. (setq pmw (* pmh (/ (car pmsize) (cadr pmsize))))
    
11. ;;;屏幕宽/2
    
12. (defun list->variant (pt / mypt)
    
13.   (setq mypt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
    
14.   (setq mypt (vlax-safearray-fill mypt pt))
    
15.   (setq mypt (vlax-make-variant mypt))
    
16.   )
    
17. (defun variant->list (pt / mypt)
    
18.   (setq mypt (vlax-variant-value pt))
    
19.   (setq mypt (vlax-safearray->list mypt))
    
20.   )
    
21. (setq myui (vla-get-Utility (caddoc)))
    
22. (setq ptc (vlax-make-variant ptc))
    
23. (setq ptc (vla-TranslateCoordinates myui (list->variant ptc) acUCS acDisplayDCS :vlax-false))
    
24. (setq ptc (variant->list ptc));;;显示坐标下
    
25. ;;;余下的自己写吧
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq ptc (getvar "viewctr"))<br /> ;;;屏幕中心,UCS下<br /> (setq pmh (/ (getvar "viewsize") 2.0))<br /> ;;;屏幕高/2<br /> (setq pmsize (getvar "screensize"))<br /> ;;;屏幕尺寸<br /> (setq pmw (* pmh (/ (car pmsize) (cadr pmsize))))<br /> ;;;屏幕宽/2<br /> (defun list->variant (pt / mypt)<br />   (setq mypt (vlax-make-safearray vlax-vbDouble '(0 . 2)))<br />   (setq mypt (vlax-safearray-fill mypt pt))<br />   (setq mypt (vlax-make-variant mypt))<br />   )<br /> (defun variant->list (pt / mypt)<br />   (setq mypt (vlax-variant-value pt))<br />   (setq mypt (vlax-safearray->list mypt))<br />   )<br /> (setq myui (vla-get-Utility (caddoc)))<br /> (setq ptc (vlax-make-variant ptc))<br /> (setq ptc (vla-TranslateCoordinates myui (list->variant ptc) acUCS acDisplayDCS :vlax-false))<br /> (setq ptc (variant->list ptc));;;显示坐标下<br /> ;;;余下的自己写吧<br />   [/FONT]<br />

小菜

(caddoc)是个什么东东？怎么不能执行呢？

搞好了，(fp) 返回两个角点坐标的表：

(defun fp (/ c03 c08 c04 c05 c07 c06 c09 c01 c02)
  (setq        c03 (getvar "viewctr")
        c03 (trans c03 1 2)
        c08 (getvar "viewsize")
        c04 (getvar "screensize")
        c07 (car c04)
        c06 (cadr c04)
        c09 (/ (* c08 c07) c06)
        c01 (list (- (car c03) (* 0.5 c09)) (- (cadr c03) (* 0.5 c08)))
        c02 (list (+ (car c03) (* 0.5 c09)) (+ (cadr c03) (* 0.5 c08)))
        c01 (trans c01 2 1)
        c02 (trans c02 2 1))
  (list c01 c02)
)