设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 怎样修改CAD模型视口的大小
返回列表 发新帖
查看: 2039|回复: 19

[求助] 怎样修改CAD模型视口的大小

[复制链接]
PCFLY
发表于 2013-5-31 22:58:30 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
请教各位，怎样设置或修改CAD模型视口的大小
模型

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

牵ぶ伱の佑手
发表于 2013-5-31 23:56:12 | 显示全部楼层
  1. (defun c:vty ()
  2.   (setq clay (getvar "clayer"))                ;取当前图层

  4.   (if (= nil (tblsearch "layer" "VPORTS"))
  5.                                         ;看下有没有vpoint 图层没有就新建
  6.     (command "-layer" "n" "VPORTS" "")
  7.   )
  8.   (command "-layer" "p" "no" "VPORTS" "")
  9.   (setvar "clayer" "VPORTS")                ;新建图层让他不打印
  10.   (setvar "CMDECHO" 0)                        ;参数回显

  12.   (setq osmode(getvar "OSMODE"))
  13.   (setvar "OSMODE" 0)
  14.   (setvar "ORTHOMODE" 1)

  16.   (while (= nil (setq ent (entsel "\n选中你要的参考视口
  17.   \n如果你现在还没有视口，
  18.   您可以退出现在命令，
  19.   再用fv来建你的前视口\n"))))
  20.   (setq vppoint (cdr (assoc 10 (entget (car ent)))))
  21.                                         ;取出你选中的视口的中心点
  22.   (setq pot1 (getpoint vppoint "点中下个视图的中点"))
  23.   (if (= (car vppoint) (car pot1))        ;判断下你的下个视口的中心位置是什么视图顶视左视正视左视右视
  24.     (setq ay "x")
  25.   )
  26.   (if (= (cadr vppoint) (cadr pot1))
  27.     (setq ay "y")
  28.   )
  29.   ；                                        ;确定要按哪个坐标来转动

  31.   (if (< (cadr vppoint) (cadr pot1))        ;确宝角度大小方向
  32.     (setq ang -90)
  33.   )

  35.   (if (> (cadr vppoint) (cadr pot1))
  36.     (setq ang 90)
  37.   )
  38.   (if (< (car vppoint) (car pot1))
  39.     (setq ang -90)
  40.   )
  41.   (if (> (car vppoint) (car pot1))
  42.     (setq ang 90)
  43.   )
  44.   (command "vpmax" ent)                        ;进入选中的视图
  45.   (command "ucs" "v")
  46.   (command "ucs" ay ang)
  47.   (command "plan" "")
  48.   (command "ucs" "na" "s" "newucs" "y")        ;新建个坐标
  49.                                         ;(command "ucs" "0,0,0" "1,0,0" "0,1,0" "")
  50.   (setq xf (GETVAR "UCSXDIR"))                ;取出x方向
  51.   (setq yf (GETVAR "UCSyDIR"))                ;取出y方向

  53.   (minmix)                                ;取出视图中所有图的最大值

  55.   (command "PSPACE")

  57.   (makvp)                                ;建视口
  58. )



  62. (defun minmix ()                        ;取最大值分程
  63.   (setq rxy (getvar "extmax"))
  64.   (setq lxy (getvar "extmin"))
  65.   (setq minx (- (car rxy) (car lxy)))
  66.   (setq miny (- (cadr rxy) (cadr lxy)))
  67.   (setq minz (- (caddr rxy) (caddr lxy)))
  68. )



  72. (defun makvp ()                                ;要pot1和运行一次minmix
  73.   (setq pot1x (car pot1))
  74.   (setq pot1y (cadr pot1))
  75.                                         ;判断下面的视口外框大小
  76.   (cond        ((= (abs (car xf)) 1.0) (setq minxx minx))
  77.         ((= (abs (cadr xf)) 1.0) (setq minxx miny))
  78.         ((= (abs (caddr xf)) 1.0) (setq minxx minz))
  79.   )
  80.   (cond        ((= (abs (car yf)) 1.0) (setq minyy minx))
  81.         ((= (abs (cadr yf)) 1.0) (setq minyy miny))
  82.         ((= (abs (caddr yf)) 1.0) (setq minyy minz))
  83.   )
  84.                                         ;下面是将视口大小改成最大值的1.2倍
  85.   (setq vp1 (list (- pot1x (/ minxx 1.8)) (+ pot1y (/ minyy 1.8))))
  86.   (setq vp2 (list (+ pot1x (/ minxx 1.8)) (- pot1y (/ minyy 1.8))))

  88.   (command "mview" vp1 vp2)                ;建视口
  89.   (setq sv (entlast))
  90.   (command "mspace")
  91.   (command "move" "all" "" "0,0,0" "0,0,0")
  92.   (command "zoom" "ex")
  93.   (command "ucs" "na" "r" "newucs")
  94.   (command "plan" "")
  95.   (command "zoom" "s" "1xp")
  96.   (command "pspace")
  97.   (command "MVIEW" "h" "on" "all" "")
  98.   (setvar "CMDECHO" 1)
  99.   (setvar "clayer" clay)
  100.   (setvar "OSMODE" OSMODE)
  101.   (princ
  102.     "
  103. \n++++++++++  特声名此程序由：           +++++++
  104. \n++++++++++    胡嘉浚编写               +++++++
  105. \n++++++++++  最终解说权终归胡嘉浚所有   +++++++
  106. \n++++++++++  谢您对我工作的支持         ++++++"
  107.   )
  108.   (princ
  109.   )
  110. )



  114. (defun c:fv ()
  115.     (setq clay (getvar "clayer"))                ;取当前图层
  116.   (setq ctab(getvar "ctab"))

  118.   (if (= nil (tblsearch "layer" "VPORTS"))
  119.                                         ;看下有没有vpoint 图层没有就新建
  120.     (command "-layer" "n" "VPORTS" "")
  121.   )
  122.   (command "-layer" "p" "no" "VPORTS" "")
  123.   (setvar "clayer" "VPORTS")                ;新建图层让他不打印
  124.   (setvar "CMDECHO" 0)
  125.   
  126.   (command "model")
  127.   (command "ucs" "top")
  128.   (minmix)
  129.   (setvar "ctab" ctab)
  130.   (setq cep (getpoint "请输入你的视图中心点"))
  131.   (setq cepx (car cep))
  132.   (setq cepy (cadr cep))
  133.   (setq vp1 (list (- cepx (/ minx 1.8)) (+ cepy (/ minz 1.8))))
  134.   (setq vp2 (list (+ cepx (/ minx 1.8)) (- cepy (/ minz 1.8))))
  135.   (command "mview" vp1 vp2)
  136.     (setq sv (entlast))
  137.   (command "mspace")
  138.   (command "move" "all" "" "0,0,0" "0,0,0")
  139.   (command "zoom" "ex")
  140.   (command "ucs" "fr")
  141.   (command "plan" "")
  142.   (command "zoom" "s" "1xp")
  143.   (command "pspace")
  144.   (command "MVIEW" "h" "on" "all" "")
  145.   (setvar "CMDECHO" 1)
  146.   (setvar "clayer" clay)
  147.   (command "ucs" "v")
  148.   (princ
  149.     "
  150. \n++++++++++  特声名此程序由：           +++++++
  151. \n++++++++++    胡嘉浚编写               +++++++
  152. \n++++++++++  最终解说权终归胡嘉浚所有   +++++++
  153. \n++++++++++  谢您对我工作的支持         ++++++"
  154.   )
  155.   (princ
  156.   )
  157. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2013-5-31 23:01:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
模型视口是指的什么？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

牵ぶ伱の佑手
发表于 2013-5-31 23:03:28 | 显示全部楼层
有个系统变理是取模形中最大值和最小值的，好像叫extmax
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

PCFLY
 楼主| 发表于 2013-5-31 23:16:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
主要目的是这样的：例如每次打开CAD的时候，不作任何放大缩小，直接绘制一个直接5000的圆，但确看不到圆，一定要ZOOM->E才能看到，所以想到能否写个LISP实现设置显示视口尽量大一些

点评

marting
你要只看你说的的圆，那么： (command "zoom" "o" (car (entsel)))  详情 回复 发表于 2013-5-31 23:38
marting
上面朋友告诉你了，系统变量EXTMAX 然后 把左下点和右上点 给 ZOOM命令就可以了。  详情 回复 发表于 2013-5-31 23:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wowan1314
发表于 2013-5-31 23:25:44 | 显示全部楼层
双击鼠标中键？

点评

sicky111
双击中键不等同于"zoom" "e"？  发表于 2013-6-1 21:37
PCFLY
不双击鼠标中键,不做任何操作，直接输入直径画一个圆  发表于 2013-6-1 08:33
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2013-5-31 23:37:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
PCFLY 发表于 2013-5-31 23:16
主要目的是这样的：例如每次打开CAD的时候，不作任何放大缩小，直接绘制一个直接5000的圆，但确看不到圆， ...

上面朋友告诉你了，系统变量EXTMAX

然后 把左下点和右上点 给 ZOOM命令就可以了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2013-5-31 23:38:49 | 显示全部楼层
PCFLY 发表于 2013-5-31 23:16
主要目的是这样的：例如每次打开CAD的时候，不作任何放大缩小，直接绘制一个直接5000的圆，但确看不到圆， ...

你要只看你说的的圆，那么：

(command  "zoom" "o" (car (entsel)))

点评

PCFLY
谢谢回复,希望不利用ZOOM,能否利用视口操作呢  发表于 2013-6-1 08:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

牵ぶ伱の佑手
发表于 2013-5-31 23:54:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我还真做了个这样的命令，
做的像proe的投影一样的使用

点评

XDSoft
proe的投影是什么样的，能不能做个动画详细的给介绍下，给你红花  详情 回复 发表于 2013-6-1 10:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

牵ぶ伱の佑手
发表于 2013-5-31 23:57:29 | 显示全部楼层
一定要给我红花哟，  这可是我花了三个星期才搞出来的，

累的很！！！

点评

PCFLY
谢谢LZ的指点，我按你这方法试试，另不知论坛上如何加分，可以告诉我吗  详情 回复 发表于 2013-6-1 08:40
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

PCFLY
 楼主| 发表于 2013-6-1 08:40:28 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
牵ぶ伱の佑手 发表于 2013-5-31 23:57
一定要给我红花哟，  这可是我花了三个星期才搞出来的，

累的很！！！

谢谢LZ的指点，我按你这方法试试，另不知论坛上如何加分，可以告诉我吗

点评

XDSoft
[attachimg]2218[/attachimg]  详情 回复 发表于 2013-6-1 10:22
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

PCFLY
 楼主| 发表于 2013-6-1 08:54:00 | 显示全部楼层
不知设置图形界限大小是否可以
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-1 10:22:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
PCFLY 发表于 2013-6-1 08:40
谢谢LZ的指点，我按你这方法试试，另不知论坛上如何加分，可以告诉我吗

QQ截图20130601102118.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-1 10:26:24 | 显示全部楼层
牵ぶ伱の佑手 发表于 2013-5-31 23:54
我还真做了个这样的命令，
做的像proe的投影一样的使用

proe的投影是什么样的，能不能做个动画详细的给介绍下，给你红花:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2013-6-1 21:40:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
晓东大哥都已经第二次问了，这位兄弟就介绍一下嘛。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-25 12:20 , Processed in 0.511359 second(s), 65 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表