双向OFFSET

taner

2. (defun DOffset (object offsetdist )
   
3.   (apply
   
4.     (function append)
   
5.     (mapcar
   
6.       (function (lambda (o)
   
7.                   (t2-catch-apply (lambda ()
   
8.                                     (vlax-invoke object 'Offset o)
   
9.                                   )
   
10.                   )
    
11.                 )
    
12.       )
    
13.       (list offsetdist (- offsetdist))
    
14.     )
    
15.   )
    
16. )
    
17. (defun t2-catch-apply (lambdafunc / result)
    
18.   (if (not (vl-catch-all-error-p (setq result (vl-catch-all-apply
    
19.                                                                   (function lambdafunc)
    
20.                                               )
    
21.                                  )
    
22.            )
    
23.       )
    
24.     result
    
25.   )
    
26. )

(defun DOffset (object offsetdist )<br />   (apply<br />     (function append)<br />     (mapcar<br />       (function (lambda (o)<br />                   (t2-catch-apply (lambda ()<br />                                     (vlax-invoke object 'Offset o)<br />                                   )<br />                   )<br />                 )<br />       )<br />       (list offsetdist (- offsetdist))<br />     )<br />   )<br /> )<br /> (defun t2-catch-apply (lambdafunc / result)<br />   (if (not (vl-catch-all-error-p (setq result (vl-catch-all-apply<br />                                                                   (function lambdafunc)<br />                                               )<br />                                  )<br />            )<br />       )<br />     result<br />   )<br /> )

仲文玉

支持一个

1. (defun c:tt (/ Offsetl obj)
   
2.   (vl-load-com)
   
3.   (setq Offsetl (getdist "-->输入偏移距离<可量取>"))
   
4.   (if (ssget '((0 . "arc,circle,ellipse,*line")))
   
5.     (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
6.       (vla-offset obj Offsetl)
   
7.       (vla-offset obj (- 0 Offsetl))
   
8.     )
   
9.     (vlax-release-object obj)
   
10.   )
    
11. )

(defun c:tt (/ Offsetl obj)<br />   (vl-load-com)<br />   (setq Offsetl (getdist "-->输入偏移距离<可量取>"))<br />   (if (ssget '((0 . "arc,circle,ellipse,*line")))<br />     (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />       (vla-offset obj Offsetl)<br />       (vla-offset obj (- 0 Offsetl))<br />     )<br />     (vlax-release-object obj)<br />   )<br /> )

newer

楼主大作频出啊，要是能有个演示的动画就完美了。

sicky111

程式不错。

yoyoho

双向OFFSET程序                  
(DOffset (car (entsel)) 10)  测试没成功!  不晓得什么原因!

taner

yoyoho 发表于 2013-5-31 06:06
双向OFFSET程序                  
(DOffset (car (entsel)) 10)  测试没成功!  不晓得什么原因!

测试没成功就对了，要变为VLA实体先

yoyoho

感谢 taner 提醒
(DOffset (vlax-ename->vla-object (car (entsel))) 10)
测试O.K.

XDSoft

taner 发表于 2013-5-31 08:54
测试没成功就对了，要变为VLA实体先

楼主，最好修改下函数，实体名和对象名都适用。一般情况下用户的习惯拿到程序后，都是先想到的是实体名。

yoyoho

感谢 仲文玉 版主分享程序!

1028882406@qq.c

谢谢楼主，支持下

sunshinejwt

8楼的程序测试成功，很好用。

qq1254582201

哪位大侠可以改成指定方向偏移么？

waterchen

Lee Mac的程序.