本帖最后由 yuanziyou 于 2021-12-5 13:23 编辑
使用方法:
 - ;;说明:返回table选择的区域
- ;;返回: (最小行号 最大行号 最小列号 最大列号)
- ;;(TABLE:Region)
- (defun TABLE:Region()
- (setq obj (vlax-ename->vla-object (car(entsel "\n选择表格"))))
- (setq pt2 (getcorner (setq pt1 (getpoint "\n拾取第1点:")) "\n拾取第2点:"))
- (VLA-SelectSubRegion obj (vlax-3d-point pt1) (vlax-3d-point pt2) (vlax-3d-point'(0 0 1)) (vlax-3d-point '(0 0 1)) acWindow :vlax-true 'r1 'r2 'c1 'c2)
- (list r1 r2 c1 c2)
- )
|