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

chenghb

IDENT/'选择组件',COMP,RESP
$ ]5 y9 X" b4 G5 O1 pJUMP/A1:,END:,,RESP
WORKNAME=PARTOP/ASK,WORK
COMPNAME=&NAME(COMP)
PRINT/COMPNAME
PARTOP/SET,WORK,COMPNAME
显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。

/ u( K0 \3 {( ?7 |: C: t

chenghb

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

dttchenjie

&NAME 改为 &CPNAM
  J" w: `  e  [
( B9 [- p5 R4 K1 |' j准确来说：

0 S+ A1 p% n, x  A& M: F&CPNAM=档案绝对路径+档案全名
&NAME=部件名

ypcopy

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

& P' }  p/ @/ c) h! L& U6 p8 R这样就能设置选定的组件为工作部件了