[求助]：谁能模拟(command".select" "cp")那个框

aeo

谁能模拟(command".select" "cp")那个框,如果用pause,可以出现一个动态的多边形框

我想不在命令中模拟它（选点时）.
grread ? 可是不能输尺寸了.

陌生人

用grread 按道理应该可以
虚线可用grdraw, grvecs
取点用grread
举例:
Command: (setq code_12 (grread (setq code (grread 1) )))
(5 (26152.7 15982.0 0.0))
Command: (setq code_12 (grread (setq code (grread 1) )))
(3 (30012.3 16521.1 0.0))
Command: (setq code_12 (grread (setq code (grread 1) )))
(2 97)
第一个是移动点
第二个是鼠标左键盘点击
第三个是键盘输入
程序结构:
存储每次鼠标点击的数值,传到grvecs画虚线框框
再次循环时(cond)
case 1: 返回点-->存储code_12 数值,继续循环
case 2 : 返回点击==>存储的code_12数值为 grvecs 点
case3: 返回键盘输入==>提取上次存储的code_12数值与上次grvecs点的角度,提取输入的键盘字符, 如果是字母或者其他,可支持多选项目功能(这个的不在本论题之内,自己发挥),如果是数字字符, 用getstring 或者getreal 得到余下数值,将其与第一个数值合并(根据处理的方法选择不同的处理语句),得到完整数值. 由已经得到的数值和角度根据上一个grvecs点得到当前的 grvecs 点.

嘻嘻,我是vlisp 入门汉,请指教:)

aeo

我知道grread可以做，但考虑到方方面面就很麻烦。
比如F8... , 'Zoom 'Pan ,我还设了热键，它就不返回表，而是直接回车了。