|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 85654202 于 2025-2-24 16:49 编辑
' u( g' q U4 }8 `) E% h$ q D7 ^7 m( \: ^
pads 选中多个形状逐一变成铜皮类型 ，这个怎么实现，各位老板，多个框选后，选项框里是暗的。
5 } ]" U* A2 I! d, V4 I1 k" G" r8 W5 m2 _7 }
8 P% u! A3 N, y/ n5 t# x! L9 eSub Main
( ^: w" x' e( L& ? ' 获取当前设计& S$ c( h- x, p: |0 l: e
Dim design As Object, b% J+ F. O! N% f
Set design = ActiveDocument
, m: |$ x" `' B/ g. g7 l, K% h* U
9 W R9 F8 G# F1 v( l: w. D ' 获取当前层
% \7 J9 ^3 S" L' P0 |5 ^9 ? Dim layer As Object) @- F4 v, e: H3 y
Set layer = design.CurrentLayer: A! I' x8 u0 }- G0 q
" R$ U$ ?/ ^5 ~4 W g ' 获取当前选中的对象
[9 J, a; l0 W6 @ Dim selectedShapes As Object, N! H5 j6 Z1 D
Set selectedShapes = design.SelectedObjects
, b0 Q! |9 ~: Z& O0 J2 ~
- p% p# w( g1 B* w' g8 q: _ ' 遍历选中的对象- @8 U$ y6 [1 J" l- S. C6 s. @
Dim shape As Object
. M* V/ `' h$ n: J6 x+ h3 I For Each shape In selectedShapes% _$ f# I V. I5 U. H) D
' 检查对象是否为形状( R. m2 `# L' q8 `5 _: O6 q
If shape.Type = "Shape" Then3 b5 q* {" r9 v3 W+ a% G, s6 L
' 将形状转换为铜皮
0 l8 q* s5 W# L3 ` shape.ConvertToCopper& C& ?1 g7 e- u3 A5 _: T: H. v
End If
7 m0 ^! s8 W. K; G* @4 Y Next shape
/ v' j& S( }# L$ u3 aEnd Sub& {. O8 A. _; Y* d$ Y
6 c5 q A. C& ]: i! t
0 h! a3 b8 P( l; F: C这个BAS 代码哪里错了，跑不起来( j8 y% H9 V2 \; \
|
|
/1 
楼主
收藏
淘帖
支持！
反对！
发表于 2025-2-24 18:26
发表于 2025-2-25 02:06