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

chenghb

IDENT/'选择组件',COMP,RESP
JUMP/A1:,END:,,RESP
WORKNAME=PARTOP/ASK,WORK
' |& [; W8 ~3 ]! B4 w3 g) _8 ]COMPNAME=&NAME(COMP)
; x/ E) K) }' V( t. {7 c1 HPRINT/COMPNAME
PARTOP/SET,WORK,COMPNAME
/ i! L4 ~( x- A. P: j1 v- D( }8 U显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。

& Q) M" `6 r! h. Q. m

chenghb

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

dttchenjie

&NAME 改为 &CPNAM
+ A0 w2 u$ l# I8 M5 p: F
准确来说：

6 }8 q3 e- ]8 i5 g# ~- c, r&CPNAM=档案绝对路径+档案全名
+ r  v6 `4 p8 d2 ]4 h&NAME=部件名

ypcopy

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

这样就能设置选定的组件为工作部件了