AUTOCADで両側オフセットについて -AUTOCAD 2015を使用し-

AUTOCADで両側オフセットについて

AUTOCAD2015を使用しています。前回回答いただいたのですが、結果がByLayerに従わなかった為元要素と同じ色になってしまいました。それと元々入力値が片側方向のオフセット値なので私の仕事では感違いの元です。結果を現画層にしたがわせ、入力値が両側にオフセットした結果にする様にしたいのですがご教授お願い致します。今のマクロ文は下記です。 ;両側オフセット (defun C:wofset (/ end) 　　(command "offsetdist" pause) 　　(setq end 1) 　　(while (/= nil end) 　　　　(command "offset" "" pause) 　　　　(if (< 0 (getvar "cmdactive")) 　　　　　　(command "@" "" "change" "l" "" "P" "LA" (getvar "CLAYER") "" "offset" (* 2 (getvar "offsetdist")) (entlast) "@" "" "change" "l" "" "P" "LA" (getvar "CLAYER") "" "offsetdist" (/ (getvar "offsetdist") 2)) 　　　　　　(setq end nil) 　　　　) 　　) 　　(princ) ) どうぞ宜しくお願い致します。

AUTOCAD　オフセットの設定

AUTOCADでオフセットの設定を知らない間に「現在の設定: 元のオブジェクトを消去=はい画層=元のオブジェクト OFFSETGAPTYPE=0」にしてしまいました。初期設定の「元のオブジェクトを消去=いいえ」に戻すにはどうしたらよいのでしょうか?　どなたかお教え願います。

AUTOCAD_2006

AUTOCAD2006ですが、画層の削除をしようとしたとき画層には何も描画されてないのに状態ではオブジェクトがあるマークになっている。けど何のデータが残っているのか探しようも無いのです。どうしたら削除でしるでしょうか。あと無粋な質問ですが、auto_cadは皆さん使いやすいのでしょうか？長所短所何でもいいですご意見を聞かせてください。ちなみに自分は作成者に対して不親切な感じがしますし、外部に依存するプログラムが多すぎて（LISPだったかな）ファイルの共有や他者（他社）とのデータやり取りという実情に沿った開発がされて無いように思えます。

lispのwhile

lispの特殊形式whileを以下のように定義します。 (while 判定条件本体…) 第一引数である判定条件を評価し真ならば本体を評価しもういちど判定条件を評価、偽ならば本体を評価しない。この時次のコードでよくわからない部分があります (defmacro image (var list &rest forms) `(let (($list$ ,list) ($r$ nil) (,var nil) ) (while ($list$ (nreverse $r$)) (setq ,var (pop $list$)) (push (progn ,@forms) r) ))) ($list$ (nreverse $r$)) この文は偽（つまりnil）になりえるのですか？ $list$はpopを繰り返すのでループを繰り返せばnilになるでしょう。しかし (nreverse $r$) はpushを繰り返すのでnilにはなりえないと思います。また、もしnilになりえたとしても (while (nil nil)) は (while (nil)) と同値なのでしょうか？ちなみにこれはlispの参考書のコードそのままです。読み進めていくうちにだんだん難しくなってきました。もうどれだけ考えてもわからないので、気持ち悪い思いはしながらもどんどん先に進んでいます。こんな勉強法でいいんでしょうか？不安になります。

ＡＵＴＯＣＡＤの文字の１８０度、、、

こないだの質問に対してリスプ作ったのですが、、、質問が締め切りになってたので、、、これだと回転したい文字たくさん選んでも回転できます、、、線分とか他の図形も入っても大丈夫なはずです、、、寸法線とかの文字は回転してくれません、、、うちのｐｃの調子が悪くて掲載出来なかったのですが、、、ああ～～気が付いてくれるといいけどなあ～～ (defun c:t180() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "mirrtext" 0) (setvar "osmode" 0) (setq e1 (ssget )) (setq ss (sslength e1)) (setq loop 0) (while (< loop ss) (setq b (ssname e1 loop)) (setq et1 (entget b)) (setq txt (cdr (assoc 0 et1))) (setq s1 (cdr (assoc 10 et1))) (setq t1 (cdr (assoc 40 et1))) (setq r1 (cdr (assoc 50 et1))) (if (= "TEXT" txt) (progn (setq r2 (+ r1 (* pi 0.5))) (setq r3 (- r1 pi)) (setq k1 (polar s1 r2 t1 )) (setq rt1 (angtos r1 0 4)) (setq rt2 (angtos r3 0 4)) (command "rotate" b "" s1 "r" rt1 rt2 ) (command "move" b "" s1 k1) (command "mirror" b "" s1 k1 "y") ) ) (setq loop (+ loop 1)) ) (setvar "osmode" os) (setvar "cmdecho" 1) (prin1) )

xyzzyの実用サンプル

LISPを覚えるために、xyzzyを使うことに決めました。手始めに便利な機能が設定できれば励みになるかと思い、いきなり敷居が高いですが、次の内容がしたいのです。 F1を押すと、xyzzyの下の欄でurlを打つと、エディタ部にヘッダーを含めたHTMLテキストが表示される (defun poor-http (host file) (interactive) (let ((st (connect host 80)) form) (write (concat "GET " file " HTTP/1.0\r\n\r\n") :stream st) (terpri st) (while (setq form (read st nil '#1=:eof)) (when (eq form #1#) (return)) (insert form)))) (poor-http '203.216.243.218' "/index.htm" ) ctrl+jと実行すると、関数がありませんとなります。途中で挫折しましたが、これらの機能を満たす gethttpsrc.lを作成する方法が知りたいです。今のところの知識は nil t が真偽値で()でS式を作成する、まではわかりました。（あっているのだろうか？）

(AcadLisp/VBA) 事前選択して処理

AutoCAD2004のVBAマクロで、"あらかじめ選択したオブジェクト"を処理する方法を探しています。選択中のオブジェクト情報は、PickFirstSelectionSetで取得可能なのは分かりました。ただ、ボタンにマクロを登録しようと思うと、vbarunコマンドの実行で選択解除されてしまい、役に立ちません。。。　'例) -vbarun "module1.myfunc" 　sub myfunc 　　msgbox ActiveDocument.PickFirstSelectionSet.Count 　End sub 選択解除せず実行する方法（VBE上でF5以外に）や、その他なにか・・・ Lisp側で選択図形の情報を取ってVBAに渡す手もありっぽいですが、Lispよく知らないのでうまく動かず試行錯誤中。ssgetは表示範囲のみらしいのが課題になりそうだと分かり、心折れかけてます。何かご存知でしたら教えていただけないでしょうか；

pascal二分木の課題

レポート課題で、pascalの二分木についての問題が出たのですが、うまくソースコードを作ることができません！誰かお手伝いよろしくお願いします！課題：progに木をバランスよく組みなおす関数repackを追加せよ program prog(input,output); const maxRange = 100; type dataType = integer; tree = ^treeCall; treeCall = record data:dataType; left,right:tree end; var root:tree; command:char; value:dataType; function search(d:dataType; t:tree):tree; begin if t=nil then search:=nil(*ブレーク*) else if t^.data=d then search:=t(*見つけた*) else if t^.data>d then search:=search(d,t^.left)(*左を検索*) else search:=search(d,t^.right)(*右を検索*) end; procedure insert(d:dataType; var t:tree); begin (**) if t=nil then begin new(t); t^.data:=d; t^.left:=nil; t^.right:=nil end else if t^.data=d then (*すでに登録されているので何もしない*) else if t^.data>d then insert(d,t^.left) else insert(d,t^.right); end; procedure delete(d:dataType; var t:tree); var temp:tree; procedure deleteMin(var r:tree); var temp:tree; begin temp:=r; while temp^.left<>nil do temp:=temp^.left; t^.data:=temp^.data; delete(temp^.data,r) end; begin if t=nil then writeln('Not Exist.') else if t^.data=d then if (t^.left<>nil) and (t^.right<>nil) then deleteMin(t^.right) else begin temp:=t; if t^.left<>nil then t:=t^.left else t:=t^.right; dispose(temp); end else if t^.data>d then delete(d,t^.left) else delete(d,t^.right) end; procedure writeSet(t:tree); begin if t=nil then (*何もしない*) else begin writeSet(t^.left);(*左へ左へ・・・*) write(t^.data:1,' '); writeSet(t^.right)(*右へ・・・*) end end; (****** Body ******) begin root:=nil; repeat write('> '); read(command); if command in ['i','d','s','w'] then begin (*もしもコマンドがw以外なら値を読み込む*) if command='w' then readln else readln(value); case command of (*数値をバイナリーツリーに挿入ここでソーティングしたい*) 'i': insert(value,root); 'd': delete(value,root);

AUTOCAD2004オフセットについて・・・

ＡＵＴＯＣＡＤ２００４ですが、オフセットしたとき、現在指定している画像でオフセットが出来ません・・・（元の画像がそのままオフセットされてしまいます）今までＡＵＴＯＣＡＤ２００６を使っていて、その時はオフセット→右クリック→現在の画像で設定出来ていたのですが、２００４ではそのような機能は無いのでしょうか・・・困っています。教えて下さい～

ＡｕｔｏＣＡＤのオフセット

AutoCAD2000iです。他の作業は出来るのですが、オフセットのみできません。線種が非表示になっているわけでも、ロックされているわけでもありません。新しく書いた線も、オフセットのみ出来ません。困っています。よろしくお願いいたします。

VBA　アクティブセルに対しての作業に関して

-質問内容-VBA作成2つ- ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセルを指定した段階でオフセット(縦下方向にO1991のセルに入れた数値分下に、ヨコに0) 移動しアクティブセルにする ------------------------------------------------------ ------------------------------------------------------ 別々のVBAでやりたいこと (1)これを、アクティブセルを指定した段階でセルの値をコピーしてオフセット縦下にO1991.ヨコ0分下にペースト(貼り付け) したい例)　　　　A　　　 1　成功　　←アクティブセルをコピー　　 3　成功　　←　ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate　アクティブセル～オフセットしたセルまでを最初にアクティブセルからコピーし →アクティブセル～オフセットしたセルまでペーストする ----------------------------------------- (2)これを、アクティブセルを指定した段階でセルの値をコピーしてオフセット縦下にO1991.ヨコ0分下にアクティブセル～オフセットされたセル位置までフィルダウンさせたい例)　　　　A　　　 1　1　←アクティブセルをコピー　　 5　 ←オフセットセル 2つのVBAのやり方/プログラムの表記/組み合わせ方を無知で愚かな私ですがどうかご教授のほど宜しくお願い致します (>_<)謝↓ペコッ --------------------------------------- --------------------------------------- 変数を使うのでしょうか? セル範囲を指定するとして Range("ActiveCell:ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Active") となるのでしょうか? 又変数の使い方として Dim a As Range 又は Dim a As Objectになるのでしょうかこの際代入として使うには a = ActiveCell b = ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate になるのでしょうか本当に度々申し訳ないのですが宜しくお願いします (:>_<:)ペコリ Range(ActiveCell).copy ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0)ActiveCell.PasteSpecial End Sub

VBA　アクティブセルに対しての作業に関して

-質問内容-VBA作成2つ- ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセルを指定した段階でオフセット(縦下方向にO1991のセルに入れた数値分下に、ヨコに0) 移動しアクティブセルにする ------------------------------------------------------ ------------------------------------------------------ 別々のVBAでやりたいこと (1)これを、アクティブセルを指定した段階でセルの値をコピーしてオフセット縦下にO1991.ヨコ0分下にペースト(貼り付け) したい例)　　　　A　　　 1　成功　　←アクティブセルをコピー　　 3　成功　　←　ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate　アクティブセル～オフセットしたセルまでを最初にアクティブセルからコピーし →アクティブセル～オフセットしたセルまでペーストする ----------------------------------------- (2)これを、アクティブセルを指定した段階でセルの値をコピーしてオフセット縦下にO1991.ヨコ0分下にアクティブセル～オフセットされたセル位置までフィルダウンさせたい例)　　　　A　　　 1　1　←アクティブセルをコピー　　 5　 ←オフセットセル 2つのVBAのやり方/プログラムの表記/組み合わせ方を無知で愚かな私ですがどうかご教授のほど宜しくお願い致します (>_<)謝↓ペコッ --------------------------------------- --------------------------------------- 変数を使うのでしょうか? セル範囲を指定するとして Range("ActiveCell:ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Active") となるのでしょうか? 又変数の使い方として Dim a As Range 又は Dim a As Objectになるのでしょうかこの際代入として使うには a = ActiveCell b = ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate になるのでしょうか本当に度々申し訳ないのですが宜しくお願いします (:>_<:)ペコリ Range(ActiveCell).copy ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0)ActiveCell.PasteSpecial End Sub

【至急】VBAを使ったHTTPタグの取得方法

どなたか助けていただけないでしょうか？以下の構文で、特定のHTTPタグの中身（テキスト）を抽出してます。ですが、同じタブがあると以下の構文では一部しか抽出できません。全てを抽出しExcelに出力したいのですがどのように記述すればよろしいでしょうか？ ※やりたいことタブの内容をエクセルに出力１つめ Set rURLa = rURLa.Offset(1)　へ出力 2つめ Set rURLa = rURLa.Offset(2)　へ出力 3つめ Set rURLa = rURLa.Offset(3)　へ出力 Private Sub CommandButton1_Click() Dim aURLa As String Dim l As Object Dim TL As Object Set rURLa = Range("B4") Do If rURLa = "" Then Exit Do Dim oIE As Object Set oIE = CreateObject("InternetExplorer.Application") oIE.Navigate rURLa Application.Wait [Now() + "0:00:10"] '10秒待つ While oIE.Busy Or oIE.ReadyState <> 4 DoEvents Wend For Each TL In oIE.Document.getElementsByTagName("div") 'spanタグを探す If TL.GetAttribute("class") = "title" Then 'class="title"なら rURLa.Offset(, 1) = TL.innerText Set rURLa = rURLa.Offset(1) End If Next oIE.Quit Set oIE = Nothing Loop MsgBox "リンク抽出完了" End Sub

オブジェクト名を変数で参照できますか

VB初心者です。配列の場合 Dim str(10) as string と宣言し、i番目のデータを取り出したいときには、str(i)　と記述すると思います。そこで質問ですが、例えばCommandが1～10まであるとします。オブジェクト名はそのまま(Command1, Command2)で、それぞれのCaptionに違ったデータが入っています。 (例えば、Command1のCaptionには'A' Command2のCaptionには'B'といった感じに) ある文字列があり、For文を使い、CommandのCaptionとその文字列が一致したときに文字列を出力するという処理を行いたいとき、どのように Command1～10のCaptionを回せばいいのでしょうか？コードを記述しておきます。 Dim str(10) as String Dim i as Integer Dim j as Integer for i = 0 to 10 for j = 0 to 10 ☆☆ if Command(i).Caption = str(j) then print.str(j) end if next next ☆☆のところです。可能であれば回答をお待ちしております。環境は　windows XP, VB6.0 です。

autocad 連続オフセット

教えてください。 autocad2006を使っています。オフセットで、距離が違う場合でも、コマンドを一回終わらせないで、連続してオフセット出来ますか？

VBAで実行時エラー　1004　がでる

Excel2013です。以下のコードでエラーがでます。どのシートがアクティブでもデータを閉じる時に特定のシート（sheet1）のA行の最終行の一つ下をアクティブにし上書き保存して閉じるようにしたいです。以下記述したコードです。 Sub Auto_Close() Worksheets(1).Activate Range("A60000").End(xlUp).Offset(1).Select 'Aセル60000から最終行のセルの一つ下に下がる ActiveWorkbook.Save End Sub 閉じるときは問題ないのですが、開いたときにエラーがでます。以下エラー文です。実行時エラー　1004 'Worksheets'メソッドは失敗しました'_Global'オブジェクトどこを直せばいいのでしょうか？アドバイス願います。

このコードのチェックをお願い致します。

2種類のブックのデータを　→　追加した１つのブックに貼り付けます。下記　「'------ここからエラーになる----」　からエラーになります。エラー番号 91 「オブジェクト変数またはWith ブロック変数が設定されていません」以上　下記コードのチェックをお願い致します。 ------------------------------ Sub tes1() Dim fWord As String, fAdd, c, wb As Workbook fWord = "1" Set wb = Workbooks.Add(xlWBATWorksheet) Workbooks("ああ.CSV").Activate Rows("1:1").Select Selection.Insert Shift:=xlDown With Workbooks("ああ.CSV").Worksheets(1).Range("F:F") Set c = .Find(fWord, LookIn:=xlValues) If Not c Is Nothing Then fAdd = c.Address Do c.Offset(0, 2).Resize(8, 1).Copy wb.Worksheets(1).Range("B65536").End(xlUp). _ Offset(1, 0).PasteSpecial Paste:=xlAll, _ Transpose:=True Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> fAdd End If End With Application.CutCopyMode = False Call tes2 End Sub '-------------------- Sub tes2() Dim aWord As String, aAdd, c, wb As Workbook aWord = "1" Workbooks("いい.CSV").Activate With Workbooks("いい.CSV").Worksheets(1).Range("A:A") Set c = .Find(aWord, LookIn:=xlValues) If Not c Is Nothing Then aAdd = c.Address Do c.Offset(0, 23).Resize(1, 1).Copy '------ここからエラーになる------------------------ wb.Worksheets(1).Range("B65536").End(xlUp). _ Offset(1, 0).PasteSpecial Paste:=xlAll, _ Transpose:=True Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> aAdd End If End With Application.CutCopyMode = False End Sub

エクセル２００７のＶＢＡで、ＤＶＤの一時停止や再生などをコントロールし

エクセル２００７のＶＢＡで、ＤＶＤの一時停止や再生などをコントロールしたいと思っています。以前この質問箱で教えていただいた回答の中に、「MSWebDVD オブジェクト」というものが使われていたので、こちらのサイト（http://msdn.microsoft.com/ja-jp/library/cc370323.aspx）などで調べてみたのですが、具体的な構文が分かりません。例えば、下のような文を作ったのですが、上手く一時停止してくれませんでした。 Sub 一時停止() Dim dx Set dx = CreateObject("MSWebDVD.MSWebDVD.1") MSWebDVD.Pause(); End Sub 途中の　Set dx = CreateObject("MSWebDVD.MSWebDVD.1")　という部分は、以前に「音声をミュートするにはどうしたらいいか」という質問をして、それに対して回答いただいた文章です。ちなみに、ＯＳはＸＰ、ＤＶＤ再生ソフトは元々パソコンにあった「Ｐｏｗｅｒ　ＤＶＤ」というソフトです。

シート間のコピーマクロについて

下記のような、TextBoxで入力した行の内容を違うシートへ貼り付けるマクロを作成しています。マクロは素人で参考書を見ながら作製しているのですが、「ActiveSheet.Range("A&r:Z&r").Copy Destination:=Worksheets(tuki).Range("A&idousaki:Z&idousaki")」のところで、『アプリケーション定義またはオブジェクト定義のエラーです』と表示されます。多分めちゃくちゃな文をかいてるんだろうなと思うのですが、私には分かりませんでした・・・どなたか、修正点をご教授お願致します。 Private Sub OK_Click() Dim r As Integer, tuki As String, idousaki As Variant If OptionButton1.Value = True Then '行指定 r = TextBox1.Value tuki = ComboBox1.Value '移動先の行番号取得 If Worksheets(tuki).Range("D7").Offset(1).Value = "" Then idousaki = Worksheets(tuki).Range("D7").Offset(1).Rows Else idousaki = Worksheets(tuki).Range("D7").End(xlDown).Ofset(1).Rows End If ActiveSheet.Range("A&r:Z&r").Copy Destination:=Worksheets(tuki).Range("A&idousaki:Z&idousaki") Else MsgBox "移動方法を選択してください" End If End Sub

AutoCADで複数回オフセットの自動化

AutoCAD 2007を使用していますが曲線をオフセットしたいのですが最初は3mmで1回オフセットしたら0.1づつ増やすようにしたいのですが最初のオフセット量、増分、オフセット回数を設定できるコマンドを作りたいのですがこのようなことはできますでしょうか？

AUTOCADで両側オフセットについて

みんなの回答

関連するQ&A

AUTOCADで両側オフセットについて

AUTOCAD　オフセットの設定

AUTOCAD_2006

キャリアについて教えて？修行の成果を示す退職届と転職書類の書き方

lispのwhile

ＡＵＴＯＣＡＤの文字の１８０度、、、

xyzzyの実用サンプル

(AcadLisp/VBA) 事前選択して処理

pascal二分木の課題

AUTOCAD2004オフセットについて・・・

ＡｕｔｏＣＡＤのオフセット

VBA　アクティブセルに対しての作業に関して

VBA　アクティブセルに対しての作業に関して

【至急】VBAを使ったHTTPタグの取得方法

オブジェクト名を変数で参照できますか

autocad 連続オフセット

VBAで実行時エラー　1004　がでる

このコードのチェックをお願い致します。

エクセル２００７のＶＢＡで、ＤＶＤの一時停止や再生などをコントロールし

シート間のコピーマクロについて

AutoCADで複数回オフセットの自動化

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

AUTOCADで両側オフセットについて

みんなの回答

関連するQ&A

AUTOCADで両側オフセットについて

AUTOCAD オフセットの設定

AUTOCAD_2006

キャリアについて教えて？修行の成果を示す退職届と転職書類の書き方

lispのwhile

ＡＵＴＯ ＣＡＤの文字の１８０度、、、

xyzzyの実用サンプル

(AcadLisp/VBA) 事前選択して処理

pascal二分木の課題

AUTOCAD2004オフセットについて・・・

ＡｕｔｏＣＡＤのオフセット

VBA アクティブセルに対しての作業に関して

VBA アクティブセルに対しての作業に関して

【至急】VBAを使ったHTTPタグの取得方法

オブジェクト名を変数で参照できますか

autocad 連続オフセット

VBAで実行時エラー 1004 がでる

このコードのチェックをお願い致します。

エクセル２００７のＶＢＡで、ＤＶＤの一時停止や再生などをコントロールし

シート間のコピーマクロについて

AutoCADで複数回オフセットの自動化

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

AUTOCAD　オフセットの設定

ＡＵＴＯＣＡＤの文字の１８０度、、、

VBA　アクティブセルに対しての作業に関して

VBA　アクティブセルに対しての作業に関して

VBAで実行時エラー　1004　がでる