[求助]：在圆弧两侧自动进行偏移操作

ysx810210

如何用编程的方法在圆弧的两侧自动进行偏移操作，增加两条相同的圆弧?详细见图

xyp1964

一个“test系列程序”实例，针对所有可偏移曲线：

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test243 ()
    
16.   (cmdla0)
    
17.   (mkla "TEST" 1)                        ;自定义层名TEST
    
18.   (SETQ        getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" getds nil)
    
19.         ss    (ssget "X")
    
20.   )
    
21.   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    
22.     (vlax-for obj (vla-get-activeselectionset
    
23.                     (vla-get-activedocument (vlax-get-acad-object))
    
24.                   )
    
25.       (vla-offset obj getds)
    
26.       (vla-offset obj (* getds -1.0))
    
27.     )
    
28.     (vlax-release-object obj)
    
29.   )
    
30.   (command "select" (ssget "X") "r" ss "")
    
31.   (setq ss (ssget "P"))
    
32.   (command "change" ss "" "P" "la" "test" "")
    
33.   (cmdla1)
    
34. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test243 ()<br />   (cmdla0)<br />   (mkla "TEST" 1)                        ;自定义层名TEST<br />   (SETQ        getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" getds nil)<br />         ss    (ssget "X")<br />   )<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 />       (vla-offset obj getds)<br />       (vla-offset obj (* getds -1.0))<br />     )<br />     (vlax-release-object obj)<br />   )<br />   (command "select" (ssget "X") "r" ss "")<br />   (setq ss (ssget "P"))<br />   (command "change" ss "" "P" "la" "test" "")<br />   (cmdla1)<br /> )[/FONT]

ysx810210

最初由 xyp1964 发布
[B]一个“test系列程序”实例，针对所有可偏移曲线：
[CODE](load "xyp_lib.vlx")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式... [/B]

谢谢xyp1964斑竹的热情帮助。根据斑竹提供的程序，我修改了一下：
(defun c:w2( / xj getds obj)
  (if (setq xj (entsel "\n*** 请选择对象:"))
    (progn
      (setq getds 400)
      (setq obj (vlax-ename->vla-object (car xj)))
      (vla-offset obj getds)
      (vla-offset obj (* getds -1.0))
    )
  )
  (princ)
)

xyp1964

再改：

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")
   
4. (defun c:w2 (/ xj obj)
   
5.   (if (setq xj (car (entsel "\n请选择对象 : ")))
   
6.     (progn
   
7.       (setq getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" 400 nil)
   
8.             obj          (vlax-ename->vla-object xj)
   
9.       )
   
10.       (vla-offset obj getds)
    
11.       (vla-offset obj (* getds -1.0))
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")<br /> (defun c:w2 (/ xj obj)<br />   (if (setq xj (car (entsel "\n请选择对象 : ")))<br />     (progn<br />       (setq getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" 400 nil)<br />             obj          (vlax-ename->vla-object xj)<br />       )<br />       (vla-offset obj getds)<br />       (vla-offset obj (* getds -1.0))<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

狂刀

(vla-offset obj (* getds -1.0))
     =  (vla-offset obj (- getds))