关于vla-offset 正确用法

为什么任兵

2. (defun c:ppy (/ sss kk xx ff chklay n sss_type enobj en_data)
   
3.   (vl-load-com)
   
4.   (bxf-0)
   
5.   (setq sss (ssget '((0 . "LWPOLYLINE"))))
   
6.   (setq kk (getreal "\n输入偏移距离:"))
   
7.   (setq xx (getint "\n请选择偏移方式:1/内-2/外:"))
   
8.   (cond  ((= xx 2) (setq kk (- 0 kk)))
   
9.   ((= xx 1) (setq kk kk))
   
10.   (t (alert "请选择正确的偏移方向") (setq kk 0))
    
11. 
    
12.   )
    
13.   (setq ff (getint "\n颜色改为:1红-2黄-3绿-4青-5蓝-6紫-7白<1>:"))
    
14.   (if (= ff nil)
    
15.     (setq ff 1)
    
16.   )
    
17.   (setq chklay (tblsearch "layer" "pytc"))
    
18.   (if (= chklay nil)
    
19.     (command "layer" "n" "pytc" "")
    
20.   )
    
21.   (setq n 0)
    
22.   (repeat (sslength sss)
    
23.     (setq sss_type (ssname sss n))
    
24.     (setq enobj (vlax-ename->vla-object sss_type))
    
25.     (vla-offset enobj kk)
    
26.     (setq en_data (entlast))
    
27.     (command "chprop" en_data "" "c" ff "")
    
28.     (command "chprop" en_data "" "la" "pytc" "")
    
29.     (setq n (+ 1 n))
    
30.   )
    
31.   (bxf-1)
    
32.   (prin1)
    
33. )
    
34. 
    
35. (defun bxf-0 ()
    
36.   (setvar "cmdecho" 0)
    
37.   (setq osmode_bak (getvar "osmode"))
    
38.   (setvar "osmode" 0)
    
39. )
    
40. 
    
41. (defun bxf-1 ()
    
42.   (setvar "cmdecho" 1)
    
43.   (setvar "osmode" osmode_bak)
    
44. )

(defun c:ppy (/ sss kk xx ff chklay n sss_type enobj en_data)<br />   (vl-load-com)<br />   (bxf-0)<br />   (setq sss (ssget '((0 . "LWPOLYLINE"))))<br />   (setq kk (getreal "\n输入偏移距离:"))<br />   (setq xx (getint "\n请选择偏移方式:1/内-2/外:"))<br />   (cond  ((= xx 2) (setq kk (- 0 kk)))<br />   ((= xx 1) (setq kk kk))<br />   (t (alert "请选择正确的偏移方向") (setq kk 0))<br /> <br />   )<br />   (setq ff (getint "\n颜色改为:1红-2黄-3绿-4青-5蓝-6紫-7白<1>:"))<br />   (if (= ff nil)<br />     (setq ff 1)<br />   )<br />   (setq chklay (tblsearch "layer" "pytc"))<br />   (if (= chklay nil)<br />     (command "layer" "n" "pytc" "")<br />   )<br />   (setq n 0)<br />   (repeat (sslength sss)<br />     (setq sss_type (ssname sss n))<br />     (setq enobj (vlax-ename->vla-object sss_type))<br />     (vla-offset enobj kk)<br />     (setq en_data (entlast))<br />     (command "chprop" en_data "" "c" ff "")<br />     (command "chprop" en_data "" "la" "pytc" "")<br />     (setq n (+ 1 n))<br />   )<br />   (bxf-1)<br />   (prin1)<br /> )<br /> <br /> (defun bxf-0 ()<br />   (setvar "cmdecho" 0)<br />   (setq osmode_bak (getvar "osmode"))<br />   (setvar "osmode" 0)<br /> )<br /> <br /> (defun bxf-1 ()<br />   (setvar "cmdecho" 1)<br />   (setvar "osmode" osmode_bak)<br /> )

Andyhon

帮您找了些老帖
http://bbs.mjtd.com/thread-56396-1-1.html
http://bbs.mjtd.com/thread-39796-1-1.html
http://bbs.mjtd.com/thread-86150-1-1.html
http://bbs.mjtd.com/thread-60273-1-1.html

判断后再据以给定 kk 值

为什么任兵

今天写了个批量偏移，用到vla-offset，速度确实快
可是问题多，有的向内，有的向外，哪位高手帮我修改一下

Andyhon

...有的向内，有的向外...

是指封闭的围域吗?
LwPolyLine 是有所谓的方向性滴(LINE不也是这样的吗?)
封闭的围域是 顺/逆 转,老帖中有过讨论

为什么任兵

Andyhon 发表于 2013-3-16 09:02
...有的向内，有的向外...

是指封闭的围域吗?

嗯，就是封闭的围域，
Andyhon大师，请看测试文件

zzl9105

为什么任兵 发表于 2013-3-16 00:42
今天写了个批量偏移，用到vla-offset，速度确实快
可是问题多，有的向内，有的向外，哪位高手帮我修改一下

判断方向性的问题，解决了吗？能方便分享一下判断方向的子函数吗，正好研究到这块，谢谢了！

zzl9105

vla-offset能实现线段的正负偏移吗，当输入正负数的时候