关于偏移的lisp，高手请指导

非你可1

可以批量偏移，如图是由1偏移出来的其他的线段2-7.是否可以实现线形和颜色预设定也可以是其他颜色线性，谢谢大师

ZZXXQQ

可以偏移后再改偏移后的物体性质。

edata

不支持自交的多段线，自交的样条曲线，以及无法偏移的各类线。
图层、线型必须加载好了的。

1. (defun c:o1()
   
2.   ;;(sk_offset 图层 颜色 线型 线宽)
   
3.   ;(sk_offset nil nil nil nil)
   
4.   (sk_offset "Text" 8 "ACAD_ISO03W100" 211)
   
5.   (princ)
   
6.   )
   
7. ;;;;简单版偏移后改属性函数2014-4-24
   
8. ;;;;(sk_offset 图层 颜色 线型 线宽)
   
9. ;;;;;(sk_offset nil nil nil nil)
   
10. (defun sk_offset(sk_lay sk_color sk_lt sk_lw / sk_dist1  ss p0 p1 p2 obj obj-offset obj-offset1 obj-offset2)
    
11.   (vl-load-com)
    
12.   (if sk_dist
    
13.     (and(setq sk_dist1(getdist (strcat "\n请输入偏移距离["(rtos sk_dist) "]:")))(setq sk_dist sk_dist1))
    
14.     (setq sk_dist(getdist "\n请输入偏移距离:"))
    
15.     )   
    
16.   (if sk_dist         
    
17.     (while (and (setq ss(ssget ":E:S" '((0 . "*LINE,ELLIPSE,CIRCLE,ARC"))))
    
18.                 )
    
19.       (setq obj (vlax-ename->vla-object (ssname ss 0)))      
    
20.       (vla-Highlight obj :vlax-true)      
    
21.       (if (setq p0(getpoint "\n请指定偏移方向:"))             
    
22.         (progn
    
23.           (setq obj-offset1(vlax-invoke-method obj 'offset  sk_dist))
    
24.           (setq obj-offset2(vlax-invoke-method obj 'offset  (* sk_dist -1)))          
    
25.           (setq obj-offset1(vlax-safearray-get-element(vlax-variant-value obj-offset1) 0))
    
26.           (setq obj-offset2(vlax-safearray-get-element(vlax-variant-value obj-offset2) 0))
    
27.           (setq p1(vlax-curve-getClosestPointTo obj-offset1 p0)
    
28.                 p2(vlax-curve-getClosestPointTo obj-offset2 p0))
    
29.           (if (> (distance p0 p1) (distance p0 p2))
    
30.             (progn(setq obj-offset obj-offset2)(vla-delete obj-offset1))
    
31.             (progn(setq obj-offset obj-offset1)(vla-delete obj-offset2))
    
32.             )
    
33.       ;(and sk_lay (vlax-put-property 'layer obj-offset sk_lay))
    
34.           (and sk_lay (vla-put-layer obj-offset sk_lay))
    
35.           (and sk_color (vla-put-color obj-offset sk_color))
    
36.           (and sk_lt (vla-put-linetype obj-offset sk_lt))
    
37.           (and sk_lw (vla-put-lineweight obj-offset sk_lw))
    
38.           )
    
39.         )
    
40.       (vla-Highlight obj :vlax-false)      
    
41.       )
    
42.     )  
    
43.   (princ)
    
44.   )
    
45. (princ)

(defun c:o1()<br />   ;;(sk_offset 图层 颜色 线型 线宽)<br />   ;(sk_offset nil nil nil nil)<br />   (sk_offset "Text" 8 "ACAD_ISO03W100" 211)<br />   (princ)<br />   )<br /> ;;;;简单版偏移后改属性函数2014-4-24 <br /> ;;;;(sk_offset 图层 颜色 线型 线宽)<br /> ;;;;;(sk_offset nil nil nil nil)<br /> (defun sk_offset(sk_lay sk_color sk_lt sk_lw / sk_dist1  ss p0 p1 p2 obj obj-offset obj-offset1 obj-offset2)<br />   (vl-load-com)<br />   (if sk_dist<br />     (and(setq sk_dist1(getdist (strcat "\n请输入偏移距离["(rtos sk_dist) "]:")))(setq sk_dist sk_dist1))<br />     (setq sk_dist(getdist "\n请输入偏移距离:"))<br />     )    <br />   (if sk_dist         <br />     (while (and (setq ss(ssget ":E:S" '((0 . "*LINE,ELLIPSE,CIRCLE,ARC"))))<br />                 )<br />       (setq obj (vlax-ename->vla-object (ssname ss 0)))      <br />       (vla-Highlight obj :vlax-true)      <br />       (if (setq p0(getpoint "\n请指定偏移方向:"))             <br />         (progn<br />           (setq obj-offset1(vlax-invoke-method obj 'offset  sk_dist))<br />           (setq obj-offset2(vlax-invoke-method obj 'offset  (* sk_dist -1)))          <br />           (setq obj-offset1(vlax-safearray-get-element(vlax-variant-value obj-offset1) 0))<br />           (setq obj-offset2(vlax-safearray-get-element(vlax-variant-value obj-offset2) 0))<br />           (setq p1(vlax-curve-getClosestPointTo obj-offset1 p0)<br />                 p2(vlax-curve-getClosestPointTo obj-offset2 p0))<br />           (if (> (distance p0 p1) (distance p0 p2))<br />             (progn(setq obj-offset obj-offset2)(vla-delete obj-offset1))<br />             (progn(setq obj-offset obj-offset1)(vla-delete obj-offset2))<br />             )<br />       ;(and sk_lay (vlax-put-property 'layer obj-offset sk_lay))<br />           (and sk_lay (vla-put-layer obj-offset sk_lay))<br />           (and sk_color (vla-put-color obj-offset sk_color))<br />           (and sk_lt (vla-put-linetype obj-offset sk_lt))<br />           (and sk_lw (vla-put-lineweight obj-offset sk_lw))<br />           )<br />         )<br />       (vla-Highlight obj :vlax-false)      <br />       )<br />     )  <br />   (princ)<br />   )<br /> (princ)

llsheng_73

总之就是只能先偏移出去再进行相应的修改

xyp1964

不具有通用性：

非你可1

xyp1964 发表于 2014-4-24 19:04
不具有通用性：

最好是可以自己选择填写每条线的，线性，颜色，和图层

非你可1

edata 发表于 2014-4-24 17:53
不支持自交的多段线，自交的样条曲线，以及无法偏移的各类线。
图层、线型必须加载好了的。

没有5#“xyp1964”的效果啊，就是普通的偏移啊，麻烦给看一下

edata

非你可1 发表于 2014-4-26 13:09
没有5#“xyp1964”的效果啊，就是普通的偏移啊，麻烦给看一下

1. (defun c:o2()
   
2.   ;;(sk_myoffset 距离 图元名 偏移方向点 图层 颜色 线型 线宽)
   
3.   ;(sk_myoffset 距离 图元名 偏移方向点 nil nil nil nil)
   
4.   (if(and (setq ss(ssget ":E:S" '((0 . "line"))))
   
5.           (setq p0 (getpoint "\n指定偏移方向:")))
   
6.     (progn
   
7.       (setq en(ssname ss 0))
   
8.       (sk_myoffset 100 en p0 "Text" 1 "ACAD_ISO03W100" 211)
   
9.       (sk_myoffset 150 en p0 "Text" 2 "door" nil)
   
10.       (sk_myoffset 200 en p0 "Text" 3 "bylayer" nil)
    
11.       (sk_myoffset 300 en p0 "Text" 4 "ACAD_ISO03W100" 211)
    
12.       (sk_myoffset 800 en p0 "Text" 5 "ACAD_ISO03W100" 211)
    
13.       )
    
14.     )
    
15.   (princ)
    
16.   )
    
17. ;;;;简单版偏移后改属性函数22  2014-4-26
    
18. ;;;(sk_myoffset 距离 图元名 偏移方向点 图层 颜色 线型 线宽)
    
19. (defun sk_myoffset(sk_dist en p0 sk_lay sk_color sk_lt sk_lw / OBJ OBJ-OFFSET OBJ-OFFSET1 OBJ-OFFSET2 P1 P2)            
    
20.       (if (and sk_dist en p0)
    
21.         (progn          
    
22.           (setq obj (vlax-ename->vla-object en))
    
23.           (vla-Highlight obj :vlax-true)
    
24.           (setq obj-offset1(vlax-invoke-method obj 'offset  sk_dist))
    
25.           (setq obj-offset2(vlax-invoke-method obj 'offset  (* sk_dist -1)))         
    
26.           (setq obj-offset1(vlax-safearray-get-element(vlax-variant-value obj-offset1) 0))
    
27.           (setq obj-offset2(vlax-safearray-get-element(vlax-variant-value obj-offset2) 0))
    
28.           (setq p1(vlax-curve-getClosestPointTo obj-offset1 p0)
    
29.                 p2(vlax-curve-getClosestPointTo obj-offset2 p0))
    
30.           (if (> (distance p0 p1) (distance p0 p2))
    
31.             (progn(setq obj-offset obj-offset2)(vla-delete obj-offset1))
    
32.             (progn(setq obj-offset obj-offset1)(vla-delete obj-offset2))
    
33.             )      
    
34.           (and sk_lay (vla-put-layer obj-offset sk_lay))
    
35.           (and sk_color (vla-put-color obj-offset sk_color))
    
36.           (and sk_lt (vla-put-linetype obj-offset sk_lt))
    
37.           (and sk_lw (vla-put-lineweight obj-offset sk_lw))
    
38.           )
    
39.         )
    
40.       (vla-Highlight obj :vlax-false)
    
41.   )
    
42. (princ)

(defun c:o2()<br />   ;;(sk_myoffset 距离 图元名 偏移方向点 图层 颜色 线型 线宽)<br />   ;(sk_myoffset 距离 图元名 偏移方向点 nil nil nil nil)<br />   (if(and (setq ss(ssget ":E:S" '((0 . "line"))))<br />           (setq p0 (getpoint "\n指定偏移方向:")))<br />     (progn<br />       (setq en(ssname ss 0))<br />       (sk_myoffset 100 en p0 "Text" 1 "ACAD_ISO03W100" 211)<br />       (sk_myoffset 150 en p0 "Text" 2 "door" nil)<br />       (sk_myoffset 200 en p0 "Text" 3 "bylayer" nil)<br />       (sk_myoffset 300 en p0 "Text" 4 "ACAD_ISO03W100" 211)<br />       (sk_myoffset 800 en p0 "Text" 5 "ACAD_ISO03W100" 211)<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;;;简单版偏移后改属性函数22  2014-4-26 <br /> ;;;(sk_myoffset 距离 图元名 偏移方向点 图层 颜色 线型 线宽)<br /> (defun sk_myoffset(sk_dist en p0 sk_lay sk_color sk_lt sk_lw / OBJ OBJ-OFFSET OBJ-OFFSET1 OBJ-OFFSET2 P1 P2)            <br />       (if (and sk_dist en p0)<br />         (progn          <br />           (setq obj (vlax-ename->vla-object en))<br />           (vla-Highlight obj :vlax-true)<br />           (setq obj-offset1(vlax-invoke-method obj 'offset  sk_dist))<br />           (setq obj-offset2(vlax-invoke-method obj 'offset  (* sk_dist -1)))          <br />           (setq obj-offset1(vlax-safearray-get-element(vlax-variant-value obj-offset1) 0))<br />           (setq obj-offset2(vlax-safearray-get-element(vlax-variant-value obj-offset2) 0))<br />           (setq p1(vlax-curve-getClosestPointTo obj-offset1 p0)<br />                 p2(vlax-curve-getClosestPointTo obj-offset2 p0))<br />           (if (> (distance p0 p1) (distance p0 p2))<br />             (progn(setq obj-offset obj-offset2)(vla-delete obj-offset1))<br />             (progn(setq obj-offset obj-offset1)(vla-delete obj-offset2))<br />             )      <br />           (and sk_lay (vla-put-layer obj-offset sk_lay))<br />           (and sk_color (vla-put-color obj-offset sk_color))<br />           (and sk_lt (vla-put-linetype obj-offset sk_lt))<br />           (and sk_lw (vla-put-lineweight obj-offset sk_lw))<br />           )<br />         )<br />       (vla-Highlight obj :vlax-false)<br />   )<br /> (princ)