急求CAD vba编程：将多段线画在一个线宽0.3mm 红色的图层上，多段线点的坐标和个数不定，

发布网友发布时间：2022-05-13 22:05

共1个回答

热心网友时间：2023-11-01 02:40

sub kk()
dc=ThisDrawing.ActiveLayer.name
ThisDrawing.ActiveLayer ="线宽0.3mm 红色"
'p 范围自己定,或加个循环

Set pL = ThisDrawing.ModelSpace.AddLightWeightPolyline(p)
ThisDrawing.ActiveLayer =dc
end sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

急求CAD vba编程：将多段线画在一个 线宽0.3mm 红色的图层上，多段线点的坐标和个数不定 ，

急求CAD vba编程：将多段线画在一个线宽0.3mm 红色的图层上，多段线点的坐标和个数不定，