- (defun c:tt ()
- (vl-load-com)
- (if (setq ss (ssget))
- (progn (setvar "OSMODE" 0)
- (repeat (setq k (sslength ss))
- (setq ent (ssname ss (setq k (1- k))))
- (setq obj (vlax-ename->vla-object ent))
- (vl-catch-all-apply 'vla-offset(list obj 5))
- )
- )
- )
- (princ)
- )
将参数表传递给指定函数并截取错误 (vl-catch-all-apply 'function list)参数 ’function 函数。function 参数可以为标识 defun 的符号或 lambda 表达式。 list 表,包含要传递给函数的参数。 返回值 如果成功则返回函数调用的结果。如果出现错误,vl-catch-all-apply 返回一个错误对象。 确定参数是否是 vl-catch-all-apply 返回的错误对象 (vl-catch-all-error-p arg)参数 arg 任何参数。 返回值 如果提供的参数是 vl-catch-all-apply,返回的错误对象,则为 T,否则为 nil。 示例 使用 vl-catch-all-apply 时被零除: _$ (setq catchit (vl-catch-all-apply '/ '(50 0)))#<%catch-all-apply-error%>使用 vl-catch-all-error-p 确定 vl-catch-all-apply 返回的值是否为错误对象: _$ (vl-catch-all-error-pcatchit)
T
|