设置选择的部件为工作部件

chenghb

IDENT/'选择组件',COMP,RESP
JUMP/A1:,END:,,RESP
7 p% H0 p( r2 t/ iWORKNAME=PARTOP/ASK,WORK
9 Y* J! R  G  u( b* y% C- NCOMPNAME=&NAME(COMP)
PRINT/COMPNAME
/ I' h6 X' z. W$ E% j, I4 SPARTOP/SET,WORK,COMPNAME
1 P* }9 C; |, \, O% b6 z  i显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。
- ]' @( W- F9 T( i% t2 [1 F
8 L* s' W6 |2 p0 v/ h! w

chenghb

顶起来不要沉啊。大侠们顶啊。

dttchenjie

&NAME 改为 &CPNAM

3 x3 e* J( Y7 M! y* d  r准确来说：
) G* y( q4 P, U* }, G" p4 r
' ~1 _' y+ v6 w1 N1 W$ W( y&CPNAM=档案绝对路径+档案全名
&NAME=部件名

ypcopy

str=&cpnam(comp)
% f# R" R+ n1 i: m5 J4 U( Hpartop/set,work,str

2 q1 a2 F7 N; D( F  P7 z- r& W这样就能设置选定的组件为工作部件了