自动移屏

/db_自贡黄明儒_

我要在曲线上不断取点，希望每点取一下，鼠标位于大致屏幕中央，各位高人，有好办法吗？

/db_自贡黄明儒_

没人回，看来我只能用（command "zoom" "c" (getpoint) "")了

st788796

还能有什么？
vla xdapi？

cnks

(command "pan" "0,0" "0,50")

q3_2006

2. 
   
3. (defun c:tt ( / a e i k l ll n ss ur)
   
4. (defun cBox (e / ll ur)
   
5.     (vla-getboundingbox (vlax-ename->vla-object e) 'll 'ur)
   
6.     (mapcar 'vlax-safearray->list (list ll ur))
   
7.     (mapcar '* '(0.5 0.5 0.5) (mapcar '+ (safearray-value ll) (safearray-value ur)))
   
8.   )
   
9.    (while (or (setq a (getstring "\n输入作为移屏中心的字符:"))(exit))
   
10.    (or (setq ss (ssget "x" '((0 . "text"))))(exit))
    
11.    (setq l nil)
    
12.   (repeat (setq i (sslength ss))
    
13.             (setq e (ssname ss (setq i (1- i)))
    
14.              l (cons (list (cdr (assoc 1 (entget e))) (cbox e)) l))
    
15.         )
    
16.         (setq n (vl-position a (mapcar 'car l)))
    
17.         (if (/= n nil)
    
18.          (progn
    
19.           (vl-cmdf "zoom" "c" (nth n (mapcar 'cadr l)) 200)
    
20.          )
    
21.         )
    
22.   )
    
23.   )

<br /> (defun c:tt ( / a e i k l ll n ss ur)<br /> (defun cBox (e / ll ur)<br />     (vla-getboundingbox (vlax-ename->vla-object e) 'll 'ur)<br />     (mapcar 'vlax-safearray->list (list ll ur))<br />     (mapcar '* '(0.5 0.5 0.5) (mapcar '+ (safearray-value ll) (safearray-value ur)))<br />   )<br />    (while (or (setq a (getstring "\n输入作为移屏中心的字符:"))(exit))<br />    (or (setq ss (ssget "x" '((0 . "text"))))(exit))<br />    (setq l nil)<br />   (repeat (setq i (sslength ss))<br />             (setq e (ssname ss (setq i (1- i)))<br />              l (cons (list (cdr (assoc 1 (entget e))) (cbox e)) l))<br />         )<br />         (setq n (vl-position a (mapcar 'car l)))<br />         (if (/= n nil)<br />          (progn<br />           (vl-cmdf "zoom" "c" (nth n (mapcar 'cadr l)) 200)<br />          )<br />         )<br />   )<br />   )

q3_2006

我写代码还很菜...如何返回到全屏,我不太会...代码还需要黄工完善下....:L

st788796

有BOX，直接zoom  w

q3_2006

st788796 发表于 2014-1-28 09:06
有BOX，直接zoom  w

真的...什么脑子...
大师帮忙改成方便切换到全屏的版本...我这个不太方便呀....拜托了...谢谢!

q3_2006

代码改了..这人才是我的想法...但怎么退出不会....还要高手指点....