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

chenghb

IDENT/'选择组件',COMP,RESP
JUMP/A1:,END:,,RESP
WORKNAME=PARTOP/ASK,WORK
1 P" a& \% M8 B: v$ C6 BCOMPNAME=&NAME(COMP)
, w3 M0 @" F6 `" BPRINT/COMPNAME
- X& a) E/ n+ e# U  xPARTOP/SET,WORK,COMPNAME
显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。
& z% [! [7 K! D' N5 x
6 E6 |1 u& _! g- v- T# G/ ], N9 I5 A

chenghb

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

dttchenjie

&NAME 改为 &CPNAM
( y  [1 P6 A) n% s/ e4 y
( W* H0 z+ Z# w7 Q& \准确来说：
( h+ e2 R3 T* Z8 f: }1 l% L1 N
&CPNAM=档案绝对路径+档案全名
2 ~" D3 }0 Y4 A4 ]. ^&NAME=部件名

ypcopy

str=&cpnam(comp)
partop/set,work,str

: Y+ }) D/ x$ j3 ~4 B! ~4 `这样就能设置选定的组件为工作部件了