一种创建视口的方法

言戲無軍

2. [code=lisp](defun c:cvp (/ ss e1 twangle obj doc layouts layout cpt *mypaper*)
   
3. ;  (defun MAT:Rot2D (v a / c s x y)
   
4. ;  (setq c (cos a) s (sin a))
   
5. ;  (setq x (car v) y (cadr v))
   
6. ;  (list (- (* x c) (* y s)) (+ (* x s) (* y c)))
   
7. ;)
   
8. 
   
9.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
10. 
    
11.   (setq twangle (getangle "选择图框倾斜方向:"))
    
12.   (setvar "TILEMODE" 0)
    
13.   (vl-cmdf "_pspace")
    
14.   (vl-cmdf "ERASE" (ssget "x") "")
    
15. (SetQ *mypaper* (VLA-Get-PaperSpace doc))
    
16.   ;(Setq cpt (MAT:Rot2D '(300.00 300.00) (- twangle)))
    
17.   (setq cpt '(300.00 300.00))
    
18.   (vl-cmdf "_zoom" '(0 0 0) '(420 297 0))
    
19.   (setq obj (vla-addpviewport *mypaper* (vlax-3d-point '(210 148.5 0)) 420 297))
    
20.   ;创建视口  '(210 148.5 0)为视口中心点 420为视口宽度 297为视口高度
    
21.   
    
22.   (vla-put-TwistAngle obj (- twangle)) ;视口旋转角度
    
23.   (vla-Display obj 1)  ;视口显示
    
24.   (vl-cmdf "_mspace")  
    
25.   (vl-cmdf "_zoom" "c" cpt "1x" "");以cpt为中心zoom 比例1 显示的模型空间以cpt为中心的区域
    
26.   (vl-cmdf "_pspace")     
    
27.   ;(vla-Display obj 1)  ;视口显示
    
28.   (vla-put-DisplayLocked obj 1);锁定视口   
    
29. )

[code=lisp](defun c:cvp (/ ss e1 twangle obj doc layouts layout cpt *mypaper*)<br /> ;  (defun MAT:Rot2D (v a / c s x y)<br /> ;  (setq c (cos a) s (sin a))<br /> ;  (setq x (car v) y (cadr v))<br /> ;  (list (- (* x c) (* y s)) (+ (* x s) (* y c)))<br /> ;)<br /> <br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> <br />   (setq twangle (getangle "选择图框倾斜方向:"))<br />   (setvar "TILEMODE" 0)<br />   (vl-cmdf "_pspace")<br />   (vl-cmdf "ERASE" (ssget "x") "")<br /> (SetQ *mypaper* (VLA-Get-PaperSpace doc))<br />   ;(Setq cpt (MAT:Rot2D '(300.00 300.00) (- twangle)))<br />   (setq cpt '(300.00 300.00))<br />   (vl-cmdf "_zoom" '(0 0 0) '(420 297 0))<br />   (setq obj (vla-addpviewport *mypaper* (vlax-3d-point '(210 148.5 0)) 420 297))<br />   ;创建视口  '(210 148.5 0)为视口中心点 420为视口宽度 297为视口高度<br />   <br />   (vla-put-TwistAngle obj (- twangle)) ;视口旋转角度<br />   (vla-Display obj 1)  ;视口显示<br />   (vl-cmdf "_mspace")  <br />   (vl-cmdf "_zoom" "c" cpt "1x" "");以cpt为中心zoom 比例1 显示的模型空间以cpt为中心的区域<br />   (vl-cmdf "_pspace")     <br />   ;(vla-Display obj 1)  ;视口显示<br />   (vla-put-DisplayLocked obj 1);锁定视口    <br /> )

[/code]

言戲無軍

xvjiex 发表于 2021-12-20 12:09
这个方法很好！能否再把要显示的内容框选到视口内？

只需要给出CPT的坐标就能把内容显示出来

言戲無軍

yanshengjiang 发表于 2021-12-27 02:31
我想用在地形图上面，提示选择对象太多了。

删除原来的视口再测试

alexmai

言戲無軍 发表于 2021-12-24 17:58
这个可以用么

cad 安装 express tools 就可以用

依然小小鸟

xvjiex

这个方法很好！能否再把要显示的内容框选到视口内？

szhorse

这个很好，布局旋转分图可以用到了

Wanda

可能别的专业常用，但是看起来确实不错

alexmai

图纸空间对齐 alignspace

言戲無軍

alexmai 发表于 2021-12-24 16:51
图纸空间对齐 alignspace

这个可以用么

nijiea123

这个方法很不错呢