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

chenghb

IDENT/'选择组件',COMP,RESP
JUMP/A1:,END:,,RESP
WORKNAME=PARTOP/ASK,WORK
COMPNAME=&NAME(COMP)
. e3 Y" M( y* I" {& o) n& a: PPRINT/COMPNAME
PARTOP/SET,WORK,COMPNAME
* ]) ?4 z' e( c) ~: y- z显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。

chenghb

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

dttchenjie

&NAME 改为 &CPNAM

0 Y: O0 t5 q; E$ [! k! L准确来说：

&CPNAM=档案绝对路径+档案全名
4 C0 o- Z. U) F1 P&NAME=部件名

ypcopy

str=&cpnam(comp)
+ T' h" U% `8 C4 U  L+ ^# `4 Qpartop/set,work,str

, [) g. m% u) N* q这样就能设置选定的组件为工作部件了