当掲示板は、AuroCADマクロ屋本舗 の掲示板です。
AutoCADのマクロ に関する質問の前に 【 マクロ使用前の注意事項 】 を、必ずお読みください。

尚、新規投稿フォーム下の【 新規投稿時のお願い 】
を確認の上、新規投稿をお願い致します。
31ポリライン一括結合 [2008.7.17修正]が動きません
お世話になります。AUTOCAD2016レギュラーを使ってます。

R2012からR2016に環境が変わったのですがポリライン一括結合のマクロが動かず
不便を感じている状況です。何かの設定が間違っている等ご教示いただきたく掲示板に
書き込みさせていただく次第です。

下記の貼付けた内容を見ると、PASTEBLOCKの後の"NON"がはじかれているようです。
マクロではなくコマンドラインで打ち込む分には大丈夫です。
知識がなく何がいけないのか検討もつきません。PICKADDは"1"になってます。
どなたかご教示ください。宜しくお願いいたします。


コマンド: select

オブジェクトを選択: もう一方のコーナーを指定: 認識された数: 4

オブジェクトを選択:

コマンド: copybase

基点を指定: non
0<0

オブジェクトを選択: p
認識された数: 4

オブジェクトを選択:

コマンド: erase

オブジェクトを選択: p
認識された数: 4

オブジェクトを選択:

コマンド: undo
現在の設定: 自動 = オン, コントロール = すべて, 合成 = はい, 画層 = はい
取り消す操作の数を入力 または [自動(A)/コントロール(C)/開始(BE)/終了(E)/マーク(M)/後退(B)] <1>: be

コマンド: pasteblock

コマンド: non
そのようなコマンド "NON" はありません。ヘルプを表示するには F1 キーを押してください。

コマンド: 0<0
そのようなコマンド "0<0" はありません。ヘルプを表示するには F1 キーを押してください。

コマンド: explode

オブジェクトを選択: l

オブジェクトは分解できません。

何も見つかりません。
オブジェクトを選択: select


*選択無効*
点を指定 または 最後(L)/すべて(ALL)/グループ(G)
  • kiyo
  • 2017/06/08 (Thu) 17:44:45
Re: 31ポリライン一括結合 [2008.7.17修正]が動きません
"NON"がはじかれているのではなく、
何かの原因により、pasteblockコマンドが途中で終了している様です。

  例えばクリップボードが空の時(又はAutocadオブジェクトではない物が入っている時)は、
  pasteblockコマンドが途中で終了します。

そのマクロを実行した後(エラーで止まった後)手動で貼り付けを行ったら、
選択した物が貼り付けられますでしょうか?


原因の特定は難しいかもしれませんので、とりあえず、シンプルなマクロを作ってみました。
間に合わせに使ってみて下さい。

^C^Cselect;$M=$(if,$(getvar,cmdactive),\,)peditaccept;1;pedit;m;p;;j;;^M
  • Lon
  • 2017/06/08 (Thu) 20:18:31
Re: 31ポリライン一括結合 [2008.7.17修正]が動きません
貼り付けたマクロの
pasteblockの後ろに、余計な改行や空白スペースか
もしくは余計な ^M が無いか確認願います。

2016での動作報告もありますので。
  • とってぃ
  • 2017/06/09 (Fri) 09:31:52
Re: 31ポリライン一括結合 [2008.7.17修正]が動きません
LON様

初めまして。早速の書き込みありがとうございます。

アドバイスいただいた手動貼付け(コマンドラインでの打ち込み)では
ブロック図形で貼付けできました。

また、マクロの作成ありがとうございます。早速使わせていただきました。
私にとっては間に合わせではなく大変ありがたいマクロです。

勉強不足での書き込みに対応いただきありがとうございました。
今後とも宜しくお願いいたします。

  • kiyo
  • 2017/06/09 (Fri) 12:06:05
Re: 31ポリライン一括結合 [2008.7.17修正]が動きません
とってぃ様

初めまして。ご返信ありがとうございます。
ご指摘いただいた、空白、改行等は問題ありませんでした。
コピペの繰り返しを何回もやりましたがダメでした。

お伝えできる情報が少なすぎるためあきらめムードです。
今後ともよろしくお願いいたします。
  • kiyo
  • 2017/06/09 (Fri) 12:36:26

返信フォーム






プレビュー (投稿前に内容を確認)