[求助]：怎么实现“缩放为”功能

animal212

用lisp怎么实现“缩放为”功能
就像我们平时用查找功能找到后，按“缩放为”的定位效果。
我是这样写的，但是每次运行都会出现CAD崩溃
(command "zoom" "c" '(a b) "")

Underway

(command "zoom" "c" '(200 100) "")

or
(command "zoom" "c"  (list a b) "")

carrot1983

楼上说的没错

1. 
   
2. '(200 100) 这里的单引号，是要用在表里面不能用到符号,
   
3. 比如：'(a 1) '(a b)都不行。。
   
4. (list a b) 这里用list，就可以通用。
   

复制代码

animal212

我试过了，但是会弹出“是否要重生成”的提示框，有点讨厌。

zml84

EXPERT 系统变量
类型：整数
不被保存
初始值： 0
<br>
控制是否显示某些特定提示。
<br>
0 正常地显示所有提示。
1 禁止显示提示“准备重生成 -- 继续进行？”和“是否确实要关闭当前图层？”。
2 禁止显示上述提示以及“已定义块。是否需要重定义？”( BLOCK) 和“此名称的图形已存在。是否替换？”（ SAVE 或 WBLOCK）。
3 禁止显示上述提示，以及要加载的线型已加载或要创建的线型已定义时 LINETYPE 命令所给出的提示。
4 禁止显示上述提示以及使用 UCS 命令的“保存”选项和 VPORTS 命令的“保存”选项时，输入的名称已存在时系统给出的提示。
5 禁止显示提示“该名称已在使用，是否重新定义？”（使用 - DIMSTYLE 命令的“保存”选项时，如果输入的标注样式名已经存在，系统将显示该提示。）
<br>
如果 EXPERT 禁止显示一个提示，相应操作会认为用户已输入 y 确认提示。EXPERT 的设置会影响脚本、菜单宏、AutoLISP 及其命令函数。

animal212

谢谢zml84，在你身上真的学到不少东西。