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

chenghb

IDENT/'选择组件',COMP,RESP
: O0 x( i" g$ Y3 b1 f3 V. J" u1 CJUMP/A1:,END:,,RESP
WORKNAME=PARTOP/ASK,WORK
8 q2 ~2 q4 S% `COMPNAME=&NAME(COMP)
PRINT/COMPNAME
9 |2 y. ]$ A: O$ {. N- fPARTOP/SET,WORK,COMPNAME
显示'COMPNAME'的值都是选择的部件名了，可不是不能把它设置成工作部件。
知道的兄弟指导下。想给装配件指定属性啊。

chenghb

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

dttchenjie

&NAME 改为 &CPNAM
0 I# U6 W8 z* m+ Z
) H/ \/ z' C2 c准确来说：

&CPNAM=档案绝对路径+档案全名
&NAME=部件名

ypcopy

str=&cpnam(comp)
partop/set,work,str
( w; i1 v* M4 a8 r9 f9 x# W$ b1 w( Z
4 c$ A! S; W2 O; U( n7 Y) T0 k这样就能设置选定的组件为工作部件了