|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 85654202 于 2025-2-24 16:49 编辑 + X4 B7 ], C: y( B
( U: o# W* ]2 Y& n
pads 选中多个形状逐一变成铜皮类型 ，这个怎么实现，各位老板，多个框选后，选项框里是暗的。
. f2 r0 f' J4 `/ r; ~$ g
) g% L+ T! A5 s' z% w) ?# A2 K/ c: a. J) V8 D
Sub Main4 q0 `$ l" D: {7 B: t
' 获取当前设计
2 ~9 f* k% C0 M; `7 ` c Dim design As Object
& x( ]6 T, H6 I Set design = ActiveDocument
5 ~/ X2 m3 m; g' X# I4 X" m8 y& W
+ I0 {- s1 D# l9 Z/ I5 D( R# N4 h8 H ' 获取当前层8 T: C: h. d8 T( {& d$ o
Dim layer As Object
; d/ U7 ^- G; ]4 H4 \ Set layer = design.CurrentLayer4 J. v9 G9 J3 o: j9 }6 i/ c2 h
" h! e; i; z; I1 j( Q ' 获取当前选中的对象3 @# p/ l, I @" [6 N( g7 R
Dim selectedShapes As Object: @5 R! L: |2 k* p) i5 T
Set selectedShapes = design.SelectedObjects
9 j/ n3 o/ j, i# H5 \. s- [! D
0 T9 A+ i; k) e7 H3 Z ' 遍历选中的对象
. X/ N0 r: g; M/ ~9 t Dim shape As Object
0 e `7 s, c, H6 y% W! v( z For Each shape In selectedShapes7 p. `$ C4 y `- X$ A1 T; X
' 检查对象是否为形状; R/ c# z: Z8 I! |+ [
If shape.Type = "Shape" Then
; w) y( A( E- O, v F" _4 q) m- v ' 将形状转换为铜皮
& t/ H& _+ s- O! M' q shape.ConvertToCopper0 p: J9 q4 A- S* D8 s
End If
( @! ]/ y- }6 H7 ]7 G% i2 R Next shape4 i t/ M0 X& }7 _ b; u
End Sub! J: ^# U% P" R: f% m
; B3 k1 z" P9 p; r) F
- D2 x- g6 ^8 r2 f' G+ W, a这个BAS 代码哪里错了，跑不起来
" v/ d+ R6 X2 K j# d |
|
/1 
楼主
收藏
淘帖
支持！
反对！
发表于 2025-2-24 18:26
发表于 2025-2-25 02:06