为什么CAD图在视口激活时每次都重生成后布满视口？
对于图纸比较大的时候,要采用创建视口的办法在布局里面把图分隔成一个一个小图.
然而CAD创建视口的操作比较麻烦.
使用本程序使得该操作变的很简单.
首先在图中采用矩形PL线把视口一个一个的画好.
然后加载本程序(命令:appload,选择该文件)
运行命令vp.
选择上面所画的PL线.
结束.
Quote
;;文件名:创建视口.lsp
;;作者:吴所不及
;;网址:http://www.jgcad.com/article.asp?act=edit&id=297
(defun c:vp ()
(princ "
选择PL线创建视口:")
(setq ss(ssget (list (cons 0 "*POLYLINE"))))
(setq sslist (wjm_ss2lst ss))
(setq pospt (list 0 0 0))
(foreach en sslist
(setq obj (vlax-ename->vla-object en))
(vla-getboundingbox obj 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(setq cenpt(MIDpt pt1 pt2))
(setq width (- (car pt2)(car pt1)))
(setq height (- (cadr pt2)(cadr pt1)))
(ax:CreateVP
(vla-get-activedocument (vlax-get-acad-object))
cenpt
width
height
pospt
)
(setq pospt(polar pospt 0 width))
)
)
(defun ax:CreateVP (ad center width height pospt / ps ent)
(setq ps (vla-get-paperspace ad))
(vla-put-activespace ad acpaperspace)
(vla-put-mspace ad :vlax-false)
(setq ent
(vla-addpviewport
ps
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbdouble
(cons 0 2)
)
(if pospt pospt center)
)
width
height
)
)
(vla-put-viewporton ent :vlax-true)(vla-display ent :vlax-true)(vla-update ent)
;;;(setq ViewPort (vla-AddPViewport Space (vlax-3d-point 1000 1000) 500 500))
;;;(vla-put-target ent (vlax-3d-point center))
(vla-put-mspace ad :vlax-true)
(vla-put-activepviewport ad ent)
(vla-zoomcenter (vlax-get-acad-object) (vlax-3d-point (car center) (cadr center) 0) 1)
(vla-put-mspace ad :vlax-false)
; Set the scale.
(vla-put-StandardScale ent 1)
(vla-put-customscale ent 1)
ent
)
;;;转换选择集为表
(defun wjm_ss2lst (ss / n lst1)
(if ss
(repeat (setq n (sslength ss))
(setq lst1 (cons (ssname ss (setq n (1- n))) lst1))
)
)
)
你的也是2007版以上的吧，
不知道你是想做什么，你那样做生成的是一个缓存视口，这是有便于查看及修改。正常现象，你再双击就可以退回原状态了。
然而CAD创建视口的操作比较麻烦.
使用本程序使得该操作变的很简单.
首先在图中采用矩形PL线把视口一个一个的画好.
然后加载本程序(命令:appload,选择该文件)
运行命令vp.
选择上面所画的PL线.
结束.
Quote
;;文件名:创建视口.lsp
;;作者:吴所不及
;;网址: http://www.jgcad.com/article.asp?act=edit&id=297
(defun c:vp ()
(princ "\
选择PL线创建视口:")
(setq ss(ssget (list (cons 0 "*POLYLINE"))))
(setq sslist (wjm_ss2lst ss))
(setq pospt (list 0 0 0))
(foreach en sslist
(setq obj (vlax-ename->vla-object en))
(vla-getboundingbox obj 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(setq cenpt(MIDpt pt1 pt2))
(setq width (- (car pt2)(car pt1)))
(setq height (- (cadr pt2)(cadr pt1)))
(ax:CreateVP
(vla-get-activedocument (vlax-get-acad-object))
cenpt
width
height
pospt
)
(setq pospt(polar pospt 0 width))
)
)
(defun ax:CreateVP (ad center width height pospt / ps ent)
(setq ps (vla-get-paperspace ad))
(vla-put-activespace ad acpaperspace)
(vla-put-mspace ad :vlax-false)
(setq ent
(vla-addpviewport
ps
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbdouble
(cons 0 2)
)
(if pospt pospt center)
)
width
height
)
)
(vla-put-viewporton ent :vlax-true)(vla-display ent :vlax-true)(vla-update ent)
;;;(setq ViewPort (vla-AddPViewport Space (vlax-3d-point 1000 1000) 500 500))
;;;(vla-put-target ent (vlax-3d-point center))
(vla-put-mspace ad :vlax-true)
(vla-put-activepviewport ad ent)
(vla-zoomcenter (vlax-get-acad-object) (vlax-3d-point (car center) (cadr center) 0) 1)
(vla-put-mspace ad :vlax-false)
; Set the scale.
(vla-put-StandardScale ent 1)
(vla-put-customscale ent 1)
ent
)
;;;转换选择集为表
(defun wjm_ss2lst (ss / n lst1)
(if ss
(repeat (setq n (sslength ss))
(setq lst1 (cons (ssname ss (setq n (1- n))) lst1))
)
)
)
好奇怪的现象
不懂怎么回事，只能给你点建议
在布局，点切换模型和布局那个按钮也能激活视口，不知道会不会有同样的问题。还有就是如果是要编辑图形，不如干脆最大化视口。
呵呵~~希望对你有点帮助。
如何将cad的模型在视口里显示出来?
1、首先打开CAD，右键单击模型页面中的单词“模型”，然后在弹出页面中选择“新布局”。然后在新的界面里创建新布局后，右键单击单词“布局”可找到“页面设备管理器”。2、先选择注释比例，标准比例会自动修改至一致。如果你是1：1的图框那就没什么问题，如果图框有放大，就要相应更改比例。3、在cad界面...
cad如何在同一个布局里实现图形在不同视口的独立显示?
在CAD设计中，虽然原生功能可能未直接提供在同一个布局中独立调整多个视口的图形显示，但通过巧妙的技巧，我们可以实现类似的效果。首先，你需要熟练地绘制你的图形，确保每个部分都清晰可见（1）。一旦你的图形就绪，你可以通过键盘快捷键来操作。按下"re"键后空格，然后灵活使用鼠标滚轮，可以轻松调整视口...
cad图形为什么在布局视口里不显示?
cad布局视口不显示图形的解决方法：1、第一步，打开cad，在模型窗口中看不到图片，有时可以通过缩放窗口来找到图形，有时无论如何缩小都找不到图形，因为图形的位置不正确，如下图所示，然后进入下一步。2、其次，完成上述步骤后，在布局中，工程图可以显示在模型窗口中，如下图所示，然后进入下一步。
cad怎么把图在视口里
cad怎么把图在视口里。打开软件打开布局打开视口窗口，移动图形就可以了。
如何在cad布局中设置不同视口显示不同的图层
在CAD中，要设置布局内的不同视口显示不同的图层，你需要遵循以下详细步骤：首先，打开你的工程图项目，确保布局中已准备好两个视口，以便进行后续操作。在每个视口内，你都可以进行单独的图层设置。第二步，选择其中一个视口，例如红色视口，然后从图层选项中隐藏你不需要显示的对象。找到对应图层，点击该...
cad视图是什么意思,跟视口有什么联系么
在布局中创建视口，有助于方便打印及比例调整。.主要是布局的应用了 用于出图 在布局里MV 就可以建立一个视口 一个布局可以有N个图纸 一张图纸可以有N个视口。所谓cad视图就是用cad画的图。
CAD如何设置布局里不同视口显示不同图层?
在CAD中，设置布局内不同视口显示不同图层的详细步骤如下：首先，打开你的工程图，确保有两个视口，比如像这样对称排列。接下来，进入红色视口，找到你想要隐藏的图层，通常在图层管理器中查找，选中该图层后，右键单击并选择"冻结"，这样它就不会在当前视图中显示了，如图所示。冻结后，你会发现左视口中...
CAD的视口怎么用
在CAD中，视口可以对CAD图形进行多个方向的显示和观察。从而使绘制的图形更加直观。在菜单栏点击“视图”——“视口”——“新建”，会弹出一个“视口”对话框，如图所示，可以对视口进行编辑：以下是视口对话框每个按钮的作用介绍：新名称：为新模型空间视口配置指定名称。如果不输入名称，将应用视口配置但...
CAD中的视口是指什么?
显示图形模型空间中某个部分的绑定的区域。 TILEMODE 系统变量确定创建的视口的类型。1. TILEMODE 处于关闭状态（值为 0）时，视口可以在布局上进行移动和调整大小。( MVIEW) 2. TILEMODE 处于打开状态（值为 1）时，整个绘图区域分成互不覆盖的几个模型视口。参见TILEMODE、视图和视点。( VPORTS)...
CAD布局中的视口图层是什么呀
布局视口的图层，可以通过图层管理器来查询。执行：layer命令，开启所有图层，解冻所有图层。然后点击视口的边缘线，查看其属性就知道所在哪个图层，视口的图层是可以放置的任意图层中。祝您好运！
苍吉福瓴： 对于图纸比较大的时候,要采用创建视口的办法在布局里面把图分隔成一个一个小图. 然而CAD创建视口的操作比较麻烦. 使用本程序使得该操作变的很简单. 首先在图中采用矩形PL线把视口一个一个的画好. 然后加载本程序(命令:appload,选...
安远县13399044966： 为什么我每次打开CAD都要重新激活? - ？
苍吉福瓴： 那肯定是你的软件没有激活成功,在网上搜个注册机然后注册就好了.
安远县13399044966： CAD激活视口时,为什么其显示比例会自动复位?如何解决? - ？
苍吉福瓴： 在布局里面用鼠标双击进入一个视口,输入命令ucsfollow 把变量(1)改成(0) 就好了.
安远县13399044966： 做CAD图纸点击保存时为什么一直显示:重生存模型——缓存视口 - ？
苍吉福瓴： 说明你的视口数量太多了,同时机器运行也比较慢
安远县13399044966： cad中图层怎么哪次新开都得重整呢？
苍吉福瓴： 教你一个办法,你设置好之后先不要画图,先保存.之后在画图,画完图之后再将画好的图另存到其他地方(或者修改文件名).等你下次再画图的时候打开之前保存的模板就行了,这样就不用你每次画图都设置啦!!
安远县13399044966： 天正CAD每次使用时都要重生模型是怎么回事 - ？
苍吉福瓴： 我觉得RE很正常,会不会是图形界限的问题
安远县13399044966： 为什么在CAD布局里双击视口后重新生成,图形布满图纸? - ？
苍吉福瓴： 双击视口就是最大化视口,相当于vpmax命令;和它相对应的就是vpmin命令了;不生成缓存视口这个不清楚,你在op命令-选项-系统-布局重生成选项;是这个意思吗
安远县13399044966： cad图形每次打开不显示都要重生才出来 - ？
苍吉福瓴： 重生完!按重新保存就好咯!
安远县13399044966： 天正布局里定义多个视口时怎么总是重复第一个框选的视口 - ？
苍吉福瓴： T20通病. 解决方法:新建布局,不要删除新建布局后的原始视口,即可.
安远县13399044966： 电脑上的CAD、3D全部不能激活了,总是重复出现激活提醒窗口. - ？
苍吉福瓴： 试下将C:\Documents and Settings\Administrator\Application Data下的Autodesk文件夹删了,再卸载了,然后再装,看看行不, (删了必须要重新安装才可以用啊, 三思而后行)
