【求助】如何实现双向净偏移!~

daidong013

回复 jiegousheng 的帖子

什么意思！~~本身就是以原线为中心往两边偏移啊！~~

669423907

回复 zhynt 的帖子

非常热情！非常好！非常实用！还可以框选！！！
我收下。我这样用（;(command "erase" ss "")）
非常感谢 zhynt 大师！

neverstop

做得记号,有时间再来看看.

pb.v@163.com

谢谢，好用极了，我找了好久的，之前有一个是输入单边距离的


如果想偏移后不删除原图，把括号内内容删除（command "erase" ss ""），只留括号，

zhengchuan

能不能加个是否删除原图的选项，程序就更完美啦

pb.v@163.com

回复 zhengchuan 的帖子

你这样搞来搞去还不如直接用O好了，

zhengchuan

回复 pb.v@163.com 的帖子

这两种情况是很常见的啊，增加一个选项不至于吧。程序就是为了方便啊。要像你这么说，直接用纯CAD就行啦

zctao1966

2. ;;; --------------------------------------------------------
   
3. ;;; 函数： minmm_sxzh
   
4. ;;; --------------------------------------------------------
   
5. ;;; 编制日期:2010.12.03
   
6. ;;; 编制者  :曾敏辉
   
7. ;;; 说明: 偏移总和
   
8. ;;; --------------------------------------------------------
   
9. (defun c:minmm_sxzh( / getds obj 偏移总和)
   
10. (setvar "cmdecho" 0)
    
11. (setq 偏移总和 (getdist "\n 请输入直线双边偏移的总和:<10>"))
    
12. (if (= 偏移总和 nil)
    
13. (setq 偏移总和 10)
    
14. );;;end if
    
15. (setq getds(/ 偏移总和 2))
    
16. (princ "\n 单边偏移量为:")
    
17. (princ getds)
    
18.   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    
19.     (vlax-for obj (vla-get-activeselectionset  ;;;取得图形激活的选择集。
    
20.                     (vla-get-activedocument (vlax-get-acad-object));;;取得激活的文件(图形文件)
    
21. 
    
22.                   )
    
23.       (vla-offset obj getds)
    
24.       (vla-offset obj (* getds -1))
    
25.     )
    
26.    (vlax-release-object obj);;;After release, the drawing object is no longer accessible through obj.
    
27.   )
    
28. (princ)
    
29. )

;;; --------------------------------------------------------<br /> ;;; 函数： minmm_sxzh<br /> ;;; --------------------------------------------------------<br /> ;;; 编制日期:2010.12.03<br /> ;;; 编制者  :曾敏辉<br /> ;;; 说明: 偏移总和<br /> ;;; --------------------------------------------------------<br /> (defun c:minmm_sxzh( / getds obj 偏移总和)<br /> (setvar "cmdecho" 0)<br /> (setq 偏移总和 (getdist "\n 请输入直线双边偏移的总和:<10>"))<br /> (if (= 偏移总和 nil)<br /> (setq 偏移总和 10)<br /> );;;end if <br /> (setq getds(/ 偏移总和 2))<br /> (princ "\n 单边偏移量为:")<br /> (princ getds)<br />   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))<br />     (vlax-for obj (vla-get-activeselectionset  ;;;取得图形激活的选择集。<br />                     (vla-get-activedocument (vlax-get-acad-object));;;取得激活的文件(图形文件)<br /> <br />                   )<br />       (vla-offset obj getds)<br />       (vla-offset obj (* getds -1))<br />     )<br />    (vlax-release-object obj);;;After release, the drawing object is no longer accessible through obj.<br />   )<br /> (princ)<br /> )

daidong013

回复 zctao1966 的帖子

不删除原线的双向净偏移！~~多谢！~~

raimo

zhynt 发表于 2011-6-28 17:07
将上面的程序稍许改了一下：

请教活雷锋zhynt 一下,我最近用你的这个程序发现,平时是正常的,但是如果中途遇到意外中断或用ESC中断之后,这个程序就失灵了,错误提示:"选择对象:程序出错或用户退出:Automation 错误。 调用方法 Clear (接口 IAcadSelectionSet) 失败命令:" 能不能修复一下这个错误呢..