请教一个问题内偏移值过大

434939575

请教一个问题内偏移值过大,怎样跳个这一关，不让程序在这里停止，（可能有部图形分不能按这个值内偏移.百分之九十以上能偏移)先各位谢谢了！
我的意思就是左边图太小不能按某个值偏移，停止了！

(defun  c:tt()
  (vl-load-com)
(setq ss(ssget))
      (setq i 0)
      (repeat (sslength ss)
    (setq name (ssname ss i)
          i       (1+ i)
    )
    (setq obj(vlax-ename->vla-object name))
   
(vla-offset  obj  200)
  

)
      )

marting

你能避免错误的唯一方法是用 vl-catch-all-apply 把你偏移部分的代码封装在里面
(vl-catch-all-apply 'vla-offset ..........................)

newer

把你程序完整的代码贴上来

434939575

newer 发表于 2017-5-14 21:31

感谢热心的老大！我只是想要这个过程不停止

newer

434939575 发表于 2017-5-14 22:33

你不把代码贴上来，怎么告诉你哪个地方代码改什么样啊？

434939575

谢谢大师指点，明天试试！

434939575

我的意思就是左边图太小不能按某个值偏移，停止了！

434939575

newer 发表于 2017-5-14 22:35

谢谢大师，我的程序就是处理偏移，可能没说清楚，只需要处理，跳过错误，继续下去就行，.不需要帮我搞完整的程序，那样太麻烦各位了，自己多多练习！

newer

434939575 发表于 2017-5-15 08:59

不是AUTOCAD软件设置下，就会跳过错误不提示了，要修改你的代码才能帮你，不是别人写完整程序帮你，是要你把自己写的代码贴上来，在你的代码基础上帮你修改，你既然不愿意，那没办法帮你了。

434939575

newer 发表于 2017-5-15 09:06

再次谢谢大师，就是一个偏移程序.我不希望在出错地方停止，

434939575

2. 
   
3. (vl-load-com)
   
4. 
   
5. (defun  c:tt()
   
6. 
   
7. (setq ss(ssget ))
   
8.   (repeat (setq i(sslength ss))
   
9.     (setq na(ssname ss (setq i(1- i))))
   
10.   (vl-catch-all-apply  'vla-offset (list (vlax-ename->vla-object na) 100))
    
11. )
    
12. )

<br /> (vl-load-com)<br /> <br /> (defun  c:tt()<br /> <br /> (setq ss(ssget ))<br />   (repeat (setq i(sslength ss))<br />     (setq na(ssname ss (setq i(1- i))))<br />   (vl-catch-all-apply  'vla-offset (list (vlax-ename->vla-object na) 100))<br /> )<br /> )

谢谢大师的指点已经可以了！

newer

434939575 发表于 2017-5-15 09:41

有代码了，就明显了，其实昨天matring已经告诉你了，用 vl-catch-all-apply

你试试

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (setq ss (ssget))
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq name (ssname ss i)
   
7.           i    (1+ i)
   
8.     )
   
9.     (setq obj (vlax-ename->vla-object name))
   
10. 
    
11.     (if (not (vl-catch-all-error-p (vl-catch-all-apply (function (lambda nil (vla-offset obj 200))))))
    
12.       (princ "\n偏移成功!")
    
13.       (princ "\n不能偏移!")
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:tt ()<br />   (vl-load-com)<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i)<br />           i    (1+ i)<br />     )<br />     (setq obj (vlax-ename->vla-object name))<br /> <br />     (if (not (vl-catch-all-error-p (vl-catch-all-apply (function (lambda nil (vla-offset obj 200))))))<br />       (princ "\n偏移成功!")<br />       (princ "\n不能偏移!")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

bai0371

楼主能把完整的源码发上来么？

434939575

newer 发表于 2017-5-15 09:53
有代码了，就明显了，其实昨天matring已经告诉你了，用 vl-catch-all-apply

你试试

谢谢大师多次指导。！

434939575

bai0371 发表于 2019-1-8 14:28
楼主能把完整的源码发上来么？

你要什么，newer 版主的已经很清楚了。