[求助]：求助双向offset工具

zhang139666

那位高手可以提供CAD双向offset的工具，谢谢！
Email:goldendream@21cn.com

cdhua001

　　你的意思是不是运行一个命令后，所选择的线条就向该线条的两侧分别偏移一条线？
　　如果是这样，好像AutoCAD没有这个功能。不过这个功能很有实用价值，建议会编程的朋友编一个Lisp解决这个问题。

zhang139666

是的，以前朋友帮我编了一个，可是现在不知道为什么不能用了，斑竹有办法吗，谢谢
很提高效率的。

<font color=blue><b>[斑竹提示]：</b></font><font color=red><b>我一点也不会编程，我将此帖移动到LISP板块，让更多的编程高手看看这个帖子，希望早日解决。    </b>&nbsp;&nbsp;&nbsp;&nbsp;<i>by cdhua001</i></font>

xiaping

最初由 zhang139666 发布
[B]是的，以前朋友帮我编了一个，可是现在不知道为什么不能用了，斑竹有办法吗，谢谢
很提高效率的。

<font color=blue><b>[斑竹提示]：</b></font><font color=red><b>我一点也不会编程，我将此帖移动到LISP板块，... [/B]

这个帖子了面推荐的工具箱里面就有这样的工具，而且是参数化的。可以根据你设置的绘图比例以及要求偏移的距离进行偏移。相当不错。建议使用。

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&threadid=51698">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

zhang139666

谢谢楼上的大哥，已经下载成功
请指教如何使用呢？

snsj

2. [php]
   
3. ;;;|双向偏移 SNSJ 2004.3.8
   
4. (defun c:2os (/ getds obj)
   
5. (vl-load-com)(initget 2)
   
6. (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
   
7. (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
   
8.    (vlax-for obj (vla-get-activeselectionset
   
9.                     (vla-get-activedocument (vlax-get-acad-object)))
   
10.      (vla-offset obj getds)(vla-offset obj (* getds -1))
    
11.      )(vlax-release-object obj)
    
12.   )
    
13.     )
    
14. [/php]

[php]<br /> ;;;|双向偏移 SNSJ 2004.3.8<br /> (defun c:2os (/ getds obj)<br /> (vl-load-com)(initget 2)<br /> (setq getds (getdist "\n输入偏移距离<可直接量取>:"))<br /> (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))<br />    (vlax-for obj (vla-get-activeselectionset<br />                     (vla-get-activedocument (vlax-get-acad-object)))<br />      (vla-offset obj getds)(vla-offset obj (* getds -1))<br />      )(vlax-release-object obj)<br />   )<br />     )<br /> [/php]

zhang139666

谢谢楼上的大哥，可以用了，可不可以把偏移后的实体放到物定的层里面呢

snsj

2. [php]
   
3. ;;;|双向偏移 SNSJ 2004.3.8
   
4. (defun c:2os (/ getds obj varst)
   
5. (vl-load-com)(setq varst (getvar "clayer"))
   
6.   (cond ((null(tblsearch "layer" "my-offset-layer"))
   
7.         (vl-cmdf ".layer" "n" "my-offset-layer" "")(setvar "clayer" "my-offset-layer"))   
   
8.   (t (setvar "clayer" "my-offset-layer"))
   
9.         )   
   
10. (initget 2)
    
11. (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
    
12. (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    
13.    (vlax-for obj (vla-get-activeselectionset
    
14.                     (vla-get-activedocument (vlax-get-acad-object)))
    
15.      (vla-offset obj getds)(vla-offset obj (* getds -1))
    
16.      )(vlax-release-object obj)
    
17.   )(setvar "clayer" varst)
    
18.     )
    
19. [/php]

[php]<br /> ;;;|双向偏移 SNSJ 2004.3.8<br /> (defun c:2os (/ getds obj varst)<br /> (vl-load-com)(setq varst (getvar "clayer"))<br />   (cond ((null(tblsearch "layer" "my-offset-layer"))<br />         (vl-cmdf ".layer" "n" "my-offset-layer" "")(setvar "clayer" "my-offset-layer"))    <br />   (t (setvar "clayer" "my-offset-layer"))<br />         )   <br /> (initget 2)<br /> (setq getds (getdist "\n输入偏移距离<可直接量取>:"))<br /> (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))<br />    (vlax-for obj (vla-get-activeselectionset<br />                     (vla-get-activedocument (vlax-get-acad-object)))<br />      (vla-offset obj getds)(vla-offset obj (* getds -1))<br />      )(vlax-release-object obj)<br />   )(setvar "clayer" varst)<br />     )<br /> [/php]

如想任意指定层名可将my-offset-layer替换为任意层名

zhang139666

谢谢楼上的大哥
上面的程序是新生成了一个图层，我是想可不可以把偏移后生成的实体转换到指定的层上去，我这儿有一个朋友以前编的程序，现在不能用了，请楼上的大哥及各位大侠们帮忙指正。谢谢。
;;;  1995.12.17
;;;  offset a line to a different layer
;;;  edit by CHAKE

(defun c:sw()   
   (princ "\nInput the distance to OFFSET, Please")
   (princ " << Curren distance is ")(princ w-gxjl)(princ " >>")
   (setq w-gxjl (getreal))
)
(defun c:sn()
   (setq gx-lanm (getvar "clayer"))
   (princ "\nInput the Layer Name to OFFSET in , Please")
   (princ " << The cureent layer is ") (princ gx-lanm)(princ " >>")
   (setq gx-lanm (getstring))
)

(defun c:11 ()
   (graphscr)
   (if (= w-gxjl nil)
       (setq w-gxjl 20))
   (if (= gx-lanm nil)
       (setq gx-lanm "gx-youdian")
   )
   (setq osnm (getvar "osmode"))
   (setq unm (entsel"\nSelect a line or an Arc, Please "))
   (setq u1 (entget (car unm)))
   (qqqq)
   (setq pd (getpoint"\nSelect the Direction to offset. Please"))
   (if (or (= (cdr (assoc 0 u1)) "arc")
           (= (cdr (assoc 0 u1)) "ARC")
       )
       (progn   
           (setq ddiist (distance pd pce))
           (if (< ddiist prl)
               (setq prn (abs (- prl w-gxjl)))
               (setq prn (+ prl w-gxjl))
           )
           (setq pa (polar pce panf prn))
           (setq pb (polar pce pane prn))
           (command "layer" "s" gx-lanm "")
           (setvar "osmode" 0)
           (command "arc" "c" pce pa pb)
       )
       (progn
           (setq pan3 (+ pan (/ pi 2)))
           (setq po (polar pd pan3 60.5))
           (setq pcen (inters pa pb pd po nil))
           (setq pan (angle pcen pd))
           (setq pn1 (polar pa pan w-gxjl))
           (setq pn2 (polar pb pan w-gxjl))
           (command "layer" "s" gx-lanm "")
           (setvar "osmode" 0)
           (command "line" pn1 pn2 "")
)     )(setvar "osmode" osnm)
)

(defun qqqq ()
   (if (or (= (cdr (assoc 0 u1)) "ARC")
           (= (cdr (assoc 0 u1)) "arc")
       )
       (progn   
         (setq pce (cdr (assoc 10 u1)))
         (setq panf (cdr (assoc 50 u1)))
         (setq pane (cdr (assoc 51 u1)))
         (setq prl (cdr (assoc 40 u1)))
       )
       (progn
         (setq pa (cdr (assoc 10 u1)))
         (setq pb (cdr (assoc 11 u1)))
         (setq pan (angle pa pb))
       )
)  )

snsj

不知道你想怎么指定层？能不能说清楚点？是自己输入层么？

zhang139666

比如我现在已经有了一个层为“aa"，而我要偏移的对象在“SS”层，可不可以把“SS”层中的实体偏移后自动放到“AA”层里面去。

snsj

2. [php]
   
3. ;;;|双向偏移 SNSJ 2004.3.8
   
4. (defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))
   
5. (defun c:2os (/ getds obj lynm)
   
6. (vl-load-com)(setq lynm (getstring "\n输入想要偏移的层名:"))
   
7.   (if (null(tblsearch "layer" lynm))(vl-cmdf ".layer" "n" lynm ""))   
   
8. (initget 2)(setq getds (getdist "\n输入偏移距离<可直接量取>:"))
   
9. (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
   
10.   (vlax-for obj (vla-get-activeselectionset
    
11.               (vla-get-activedocument (vlax-get-acad-object)))             
    
12.         (ptlay (vla-offset obj getds) lynm)(ptlay (vla-offset obj (* getds -1)) lynm)
    
13.      )(vlax-release-object obj)
    
14.   )(princ)  
    
15.   )
    
16. [/php]

[php]<br /> ;;;|双向偏移 SNSJ 2004.3.8<br /> (defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))<br /> (defun c:2os (/ getds obj lynm)<br /> (vl-load-com)(setq lynm (getstring "\n输入想要偏移的层名:"))<br />   (if (null(tblsearch "layer" lynm))(vl-cmdf ".layer" "n" lynm ""))   <br /> (initget 2)(setq getds (getdist "\n输入偏移距离<可直接量取>:"))<br /> (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))<br />   (vlax-for obj (vla-get-activeselectionset<br />               (vla-get-activedocument (vlax-get-acad-object)))              <br />         (ptlay (vla-offset obj getds) lynm)(ptlay (vla-offset obj (* getds -1)) lynm)<br />      )(vlax-release-object obj)<br />   )(princ)  <br />   )<br /> [/php]

xiaping

感谢斑竹提供的精彩代码，以前我也编了一个。但是使用起来有时候不正常。根据您提供的代码改了一下，这下好用多了。谢谢！

talkershadows

哈哈～～解决了mutiline的一大难题啊！！！

JOSDENNIS

果然是很簡短的代碼. 比我的好呀.