ME10の共有一括解除

Question

弊社では2DCADにME10を使っています。
社内での図面作成ではあまりパーツの共有を使用していないのですが、外注から渡ってくる図面データは共有を使用してくるところもあり、この場合、共有を手動で解除しております。
(他人の作る共有はこちらの意図しない所が勝手に変更されたりするので、間違った変更がかかる場合があり、弊社では基本的に共有は使用しておりません。)
しかし、膨大な部品点数のアセンブリの場合、この作業をする気にもなりません。
色々試していますが、図面内の全ての共有を一回の操作で解除する方法がわかりません。
もし、知っている方がいらっしゃいましたら、教えていただきたいです。
よろしくお願い致します。

Answer

マクロを作り一括変換ではどうでしょうか。
参考マクロです。
ファイル名'unshare'

{共有化されたパーツを非共有化するマクロ file name "Unshare"}

DEFINE Unshare
  LOCAL All_parts_ltab
  LOCAL Share_parts_ltab1
  LOCAL Share_parts_rows
  LOCAL Share_parts_name
  LOCAL I

LET All_parts_ltab 'all_parts_list'
  LET Share_parts_ltab1 'share_parts_list1'
  CREATE_LTAB All_parts_ltab
  CREATE_LTAB Share_parts_ltab1

PARTS_LIST TREE LTAB All_parts_ltab
  SELECT_FROM_LTAB All_parts_ltab COLUMN 1='*共有され*' Share_parts_ltab1
  LET Share_parts_rows (LTAB_ROWS Share_parts_ltab1)
  IF (Share_parts_rows > 0)                {****}
   LET I 1
    REPEAT
      LET Share_parts_name (READ_LTAB Share_parts_ltab1 I 1)
      UNSHARE_PART Share_parts_name
      LET I (I+1)
    UNTIL (I > Share_parts_rows)
  ELSE                                     {****}
  END_IF                                   {****}

END_DEFINE

ME10の共有一括解除

回答（1件中 1～1件目)

お礼

補足

検索の多いキーワード

Powered by OKWAVE

ME10の共有一括解除

回答 （1件中 1～1件目)

お礼

補足

検索の多いキーワード

お礼をおくりました

さらに、この回答をベストアンサーに選びますか？

サポートシェアリングソリューション 企業・団体・テーマ

Powered by OKWAVE

回答（1件中 1～1件目)

サポートシェアリングソリューション企業・団体・テーマ