如何批量偏移单线到当前图层且偏移后自动倒角

注册

如图，左边为批量偏移前，为两条在wall层的单线line，右边为批量偏移后的效果，能批量偏移出某段距离的在当前层的两条线，且该两条线自动倒角，谢谢。论坛搜索了一下，批量偏移到当前层的资源有，比如院长的plpy。vlx，但偏移后无法自动倒角

Keenir

楼主，有没有完整的程序呢

Andyhon

...批量偏移...

既是 批量偏移 那么得先知道如何选取对象
对象只此两线 or

注册

Andyhon 发表于 2013-1-7 21:45
...批量偏移...

既是 批量偏移 那么得先知道如何选取对象

最多4线，首尾相连，可以吗，老大

Andyhon

先串接再 Offset 可乎?

注册

Andyhon 发表于 2013-1-7 21:58
先串接再 Offset 可乎?

可以啊，有吗，老大

Andyhon

you might try ...

2. 
   
3. (defun c:test ()
   
4.    (setq ss (ssget))      ; 选 二/四 线可串接
   
5. 
   
6.    (setvar 'PeditAccept 1)
   
7.    (setvar 'OffsetDist 1000)          ; 距离 自定之
   
8.    
   
9.    (command "Pedit" "M" ss "" "j" 0.0 "")
   
10.    (setq ee (entlast)
    
11.         pts (acet-ent-geomextents ee)
    
12.          p5 (apply 'acet-geom-midpoint pts)
    
13.          pt (car pts)
    
14.    )
    
15.    (command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")
    
16.    (command "Chprop" (entlast) "" "La" (Getvar 'Clayer) "")
    
17. )
    

<br /> (defun c:test ()<br />    (setq ss (ssget))      ; 选 二/四 线可串接 <br /> <br />    (setvar 'PeditAccept 1)<br />    (setvar 'OffsetDist 1000)          ; 距离 自定之<br />    <br />    (command "Pedit" "M" ss "" "j" 0.0 "")<br />    (setq ee (entlast) <br />         pts (acet-ent-geomextents ee)<br />          p5 (apply 'acet-geom-midpoint pts)<br />          pt (car pts)<br />    )<br />    (command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")<br />    (command "Chprop" (entlast) "" "La" (Getvar 'Clayer) "")<br /> )<br />

注册

Andyhon 发表于 2013-1-7 22:32
you might try ...

3ku，old big，哈哈

注册

Andyhon 发表于 2013-1-7 22:32
you might try ...

(setvar 'OffsetDist 1000)          ; 距离 自定之
这一句可以改成自己手动输入距离吗，老大，happy 末日宁

zyhandw

注册 发表于 2013-1-8 08:17
3ku，old big，哈哈

这个"old big"真亮！

daidong013

Andyhon 发表于 2013-1-7 22:32
you might try ...

建议距离可以手动输入并带有记忆，另外可以点取偏移方向！~~呵呵！~~