[编程申请]：有宽度的PL线转为相应的轮廓线

zertul

能否编个程序，将有宽度的PL线转为相应的轮廓线

fpiw

很简单啊，两边各offset一下，连起来就可以了

露水2

支持一下

也需要这个

天龙八部

用ML应该方便，不用用PL直接双线也挺实用，特别是室内做墙体的时候：代码：

sub polyoffsetdouble()

dim aaa as double

dim bbb as variant

bbb=thisdrawing.utility.getpoint(,"onepoint:")

aaa=thisdrawing.utility.getinteger("输入双线的距离")

dim pppdouble111(0 to 9) as double

dim pppsfsdsdfs(0 to 0) as acadlwpolyline

pppdouble111(0)=根据所需赋值

.........

pppdouble111(9)＝根据所需赋值

set  pppsfsdsdfs(0)=thisdrawing....................(得到多段线)

dim pppppoooo(0 to 0) as object

set pppppoooo=pppsfsdsdfs.offset(aaa) 偏移

'最后用startpoint,和ENDPOINT得到另两个断点，连接OK

..............

end sub

ght9527

虚线的怎么搞呢？

tiancao100

命令:TcDPL2SPL
有宽度的单PL线转为空心的双PL线

可以将结构初步方案的单线剪力墙 一键转为 剪力墙轮廓线，方便导入PKPM或YJK，方便建筑专业转天正异形柱。

https://mp.weixin.qq.com/s/-C_3vr7Ec9fYMjMr4fhGfg