そうそう，昨日バージョンアップの案内がきてました。
どうしようかなぁ？まだろくに使ってないのに。
.NETなんてなんのこっちゃわからんし。

http://store.borland.co.jp/upgrade/Delphi_upgrade_0864.html

>そうそう，昨日バージョンアップの案内がきてました。

うちはまだです。
見ないほうが良いかもしれない。お金ないもの。(^^;

>うちはまだです。
>見ないほうが良いかもしれない。お金ないもの。(^^;

今日、届いていました。
見てしまいました。(^^;

>そうそう，昨日バージョンアップの案内がきてました。
>今日、届いていました。

いいなー！、家引越し連続しましたからどこに行っちゃった
のかなー・・グスン。

>いいなー！、家引越し連続しましたからどこに行っちゃった
>のかなー・・グスン。

転送依頼（無料）すると一年間は、届けてもらえますよね、
今日も、いりもしないDM以前住所当てのが届いてた

げっ
http://www.borland.co.jp/delphi/prodinfo/
こんなにするんだ．．．だったらM$...

>こんなにするんだ．．．だったらM$...

ですねー。商業用作るつもりは無いですけど、機能で
proに便利なやつついてましたし、うーん・・・・・
delphiって昔迷うことなく、これ！買うと決めましたけど
最近そういかないですね。

バージョンアップなら３万ちょっとだったような。
案内ちらっと見ただけで捨てちゃったので申し込み番号が
わからなくなってしまった。

Delphi 8 では .NETをフルサポートし、 .NET 用の VCL 、VCL.NET を用意するようです。

ということらしいので、今回は最初から買い換える気なし。
即ごみ箱行きでした。

>Delphi 8 では .NETをフルサポートし、 .NET 用の VCL 、VCL.NET を用意するようです。

これは良いことを聞きました。悩まなくて済みます。m(_ _)m

.NETっていったい何？
それを使うとどう良くなるの？
また新しいことを覚えないといけなくなって，出来たプログラムは
最新のWindowsでしか動かないとか，Microsoftにはめられてるだけ
のような気がするけど。

>.NETっていったい何？
これが一番よく分からないね、よく聞くけど
likiさんが言うように、それを使うとどう良くなるの？
今までと違ってどう変わるの？　よくわからないね
Borland(Delphi)がどう料理していただけるのか、今は待ちです。

こんな感じのページって好きだなぁ。

http://hp.vector.co.jp/authors/VA019299/

文字の大きさを変える事ができればありがたいのだけど。
メガネ[はずさないと]見えない。。。(^^;

で、中身は？

>文字の大きさを変える事ができればありがたいのだけど。
変えられるでしょ。

私もシンプルな構成嫌いじゃないですね。
http://www.guimp.com/ とか。(^^;

>>文字の大きさを変える事ができればありがたいのだけど。
>変えられるでしょ。
スタイルシートで固定してるからIEじゃ変えらんない。

http://e-hiro.net/

IE6だと、
ツール／インターネットオプション／一般タブのユーザ補助のなかの
Webページで指定されたフォントサイズを使用しない
で表示文字サイズを選択できると思います

うわっ、できちゃった。
ありがと。(^^)

>>IE6だと、
ほんとだ〜、知らんかった。
これならNNみたいなCCSの切替えも作れそうですね。

>http://www.guimp.com/ とか。(^^;

ん？なんや、これ。見えん。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

>ん？なんや、これ。見えん。(^^;

はじめから作らなくても良さそう
シンプル杉（＾＾；　だれかめがねかして〜

DelphiってVBAみたいにGetObject('Icad.Application')できないの？

↓こういうことでしょうか？
http://izawa.icadweb.com/delvbafrm.htm

>GetActiveOleObject('ICAD.Application')
ヘルプ探してもなかったのよねぇ。Delphi6Personal.
ありがとうございます。
何がしたいかって，LISPでもSDSでもサポートされてないものを
OLEを利用してやろうということ。
コマンドライン印刷改悪版。
icad9.01ではまだ，PCPファイルの読込みサポートしてないだろうから。

実験成功。
やっぱり，Professionalがいいかなぁ。

>コマンドライン印刷改悪版。

印刷まわりの情報取得は、素さんや、りっちゃんが詳しいです。
素さんのところに、それらしいDLLはありますが。

>icad9.01ではまだ，PCPファイルの読込みサポートしてないだろうから。

PCPファイルの読み込みは、VBAに実装されていなかったように思います。
9.01って、この９月？

>やっぱり，Professionalがいいかなぁ。
likiさんなら、そうでしょう。

>GetActiveOleObject('ICAD.Application')

これの怖いところ、死んでいるICADにも喰らいつくところ。

>PCPファイルの読み込みは、VBAに実装されていなかったように思います。
いけましたよ。
objICAD.PlotManager.ImportPlotProperties('e:\data\support\mono.pcp');

>>GetActiveOleObject('ICAD.Application')
>これの怖いところ、死んでいるICADにも喰らいつくところ。
でも，sdsのコマンドとしてから実行するから，死んでると実行自体
できないから大丈夫。

それぞれに文字列の扱い方が違うのでよくわかりません。
sds_getstringなどでファイル名を取得し，
sds_findfileでパスを取得
ImportPlotProperties(PCPfilename)にフルパスを渡す。
どうもうまくいかない。
DelphiとSDSは
var PCPfilename: array[0..512] of Char;
で解決する。しかし，これをImportPlotPropertiesには渡せない。

>var PCPfilename: array[0..512] of Char;
>これをImportPlotPropertiesには渡せない。
ImportPlotProperties(WideString(PCPfilename));
でよかった。ちゃんとPCPファイル読み込めました。

>いけましたよ。
>objICAD.PlotManager.ImportPlotProperties('e:\data\support\mono.pcp');

ありがとうございます。
VBAだと尺度もとれるし、またやってみます。
あと、用紙サイズ、縦横が変えられれば良いのですが・・・。

>でも，sdsのコマンドとしてから実行するから，死んでると実行自体
>できないから大丈夫。

むむっ、SDSから使うの？マニアック！

SDSから呼んだとしても、自分（呼び出したほうのICAD）に張り付くとは
限らないということです。

>SDSから呼んだとしても、自分（呼び出したほうのICAD）に張り付くとは
>限らないということです。
ゲゲ，そういうことか。先に起動していてそれが終了したと思って
いたら実は裏で死んでる。それを捕まえる可能性もあるのね。
じゃぁ，親ハンドルを取得して確認する。
けど，違ってても正解のを取りようがないか？
いや，無理矢理ほんとに殺してしまってから改めて取り直す。
え〜い，ややこしい。
標準で-plotがPCPサポートすりゃすれで済むのに。
まぁ，自分onlyなら死んだicadはほんとに先に殺すから大丈夫だけど。

ちなみにshellがexplorer.exeでないのでタスクバーからタスクマネージャを
起動できないので，Task Killerなるものを使用してます。これ便利。
http://www.rsdsoft.com/
shellはgeOShellを使っているのだ。ちょっと古いけど私のデスクトップは
こんな感じ。

http://www.liki.jp/

>まぁ，自分onlyなら死んだicadはほんとに先に殺すから大丈夫だけど。

SDSを始めたころは、自アプリ(DLL)のFormもよく裏で死んでいました。
そんなもん、公開するなよ！って？(^^;

>shellはgeOShellを使っているのだ。ちょっと古いけど私のデスクトップは
>こんな感じ。

全然ちがいますね。シンプルできれいです。おねえちゃんも。(^^;
ashlinxではないような・・・。鬼塚ちひろ。

>GetActiveOleObject('ICAD.Application')

一度捕まえると後はそう遅いとは思わないけど、最初に捕まえるときは、
ちょっと時間がかかる。
それが嫌でLISP commander(ILISPER.exe)では、コマンドラインに直接文字を送っています。

コマンドを発行するだけなら、そのほうが確実。
ただ、キャンセルESCは送れないみたい。

>ashlinxではないような・・・。鬼塚ちひろ。
^^^^^^^　　　　　　　　　　　＾＾＾＾＾
なのか？　　　　　　　　　　　ファンです。

鬼束ちひろ・・・(>_<)

>ashlinxではないような・・・。
(^^;A
ところで、izawaさん、もしかしてσ(^^)の写真とか
どっかで見かけてらっしゃるのでしょうか？
ashはizawaさん見たこと無いのにー。ずるいー。
なので、misakoさんの書き込みを見て、想像してます。（笑）

そんなことより、izawaさんが鬼束ちひろを知ってらしたことが驚き。(^^;ゞ

>なのか？
ここに来た頃使ってたのね。(^^)b
今でもそう呼ぶ人、他にもいるよ。
AutoDeskの会議室で呼ばれても気にならないけど
地下鉄の駅で大声で呼ばれると・・・かなり恥ずかしい。
ＯＦＦにも出るなら、ハンドルは名前が良いよ、うん。φ(--;いじいじ

>鬼束ちひろ・・・(>_<)
はは、了解。(^^;

>ところで、izawaさん、もしかしてσ(^^)の写真とか
>どっかで見かけてらっしゃるのでしょうか？
残念ながら見たことないです。
ん？どこかにアップされている？

>そんなことより、izawaさんが鬼束ちひろを知ってらしたことが驚き。(^^;ゞ
おじさんの守備範囲は結構広いのでした。(^^;

>ここに来た頃使ってたのね。(^^)b
昔の名前で、ごめんなさい。しかも呼び捨て。

>どこかにアップされている？
合気道関係のとこには、ＵＰされてる。(^^;ゞ
たまたまσ(^^)のＢＢＳを知った人たちが
そこに来てる人のHomeとか辿って見に行って
発見した・・・ようだ。
みんな、怖すぎ。

ashってのは、BANANA FISHってゆーマンガの主人公。
σ(^^)のアカウントに使ってるのをそのままハンドルに
したんだけど・・・そもそもアカウントにしたのは、
パスワードのことと勘違いしてたからなのだ。

しかも、つづり違うし（誤）linx→（正）lynx
いつまでも恥を引きずってるのよねぇ。
＃アカウントって変更効かないのだろぉなぁ(T_T)

>ＯＦＦにも出るなら、ハンドルは名前が良いよ、うん。φ(--;いじいじ
今年は足がかるそうだからもしかしたら・・(;^^)
以前一緒に行けたら良かったのにね〜

>ashってのは、BANANA FISHってゆーマンガの主人公。
そのところはすっかり忘れていました。
おえい説は、正しかったのね。

>今年は足がかるそうだからもしかしたら・・(;^^)
Icad西日本Offも忘れないでね。>ALL

>おえい説は、正しかったのね。
でしょー、家に全巻あります。（家内のだけど(^^;）

>Icad西日本Offも忘れないでね。>ALL
参加希望一名　by　おえい

>試用レポート、宜しくお願いします。m(__)m
>LISPにこだわるのであれば、IntelliCADでしょうね。
ちょっとだけ使ってみました。
Turboって言うほどではないですね。起動が遅いし，レスポンスが悪い。
やっぱりLISPはないです。コマンドウィンドウのようなものはありません。
ほぼツールボタンと右クリックからの作業になるようです。
まぁ，Windows標準ってとこでしょうか。
おもしろそうなのはブロック図形のプレビューが出来て，しかも編集できる。
フォントはすべてTTFで表示される。寸法を記入してicadに読み込ませると
寸法図形じゃなくなってる。
モデルとレイアウトはAutoCADのようにタブで切替えられる。複数レイアウトも
サポートしてるようですが，そのような図面を持ってないのでよくわかりません。
icadに毒されてしまっているので違和感を感じてしまう。
全くまたは殆どA(i)CADを使ったことがなければこれもありかなと思います。
でも，毒されてしまった人にはつらいかな。VBAやSDKは試してません。

レポート、ありがとうございます。m(__)m

>Turboって言うほどではないですね。起動が遅いし，レスポンスが悪い。
単なる名前だから・・・。(^^;
IntelliCADの何処がIntelliなのか、AutoCADと何処がAutoなのか・・・と同じ。

どこかの掲示板では、TurboCADのODTのバージョンが古いのではないかと
いうようなことが書かれていました。

>寸法を記入してicadに読み込ませると寸法図形じゃなくなってる。
どこかで変えられるのかも。システム変数は無いのかな。

>icadに毒されてしまっているので違和感を感じてしまう。
やはり、そうですか。
体が覚えているのよね・・・。悲しいことに。(^^;

CADに慣れることと、新しいAPIなりVBAを覚えることを考えると、
IntelliCADが一番良いのでは？と思います。値段的にもね。

ということで，やっぱりしばらくIntelliCADを使うことにします。
で，izawaさん，これからもよろしく。(^0^)/

>で，izawaさん，これからもよろしく。(^0^)/

ははは、よろしくね。

私がたまに行くサイト。
もとはスカイフィッシュを検索していて見つけたんだけど，
この鼻行類というのも気に入ってる。大学の頃になにげに
図書館で見つけたのが鼻行類という本当にいたのかと思わせるような
生物についての本でした。
で，それはおいといて，「ゾヌ」なんとも怪しげな名前。
よくコンビニ弁当を食べてるので食したことがあるかもね。

URL書き忘れた。お家のアイコンをクリック(^^;

http://www.f2.dion.ne.jp/~nkd25/html/contents.html

>この鼻行類というのも気に入ってる。
生きていた鼻行類の写真は、ハムスターでしょ(^^;

ゾヌ、食べているのかも知れませんね。
知らない方が良かったかも。(^^;

「スカイフィッシュ」は六甲山にいるそうですね。
ＴＶで見ました。

Win95からWin2000にアップデートしたところ、
キーボードで@が[になったりして、使えない。
登録されているのは、101/102。で、使っているのは、106。

これは、どこでどう変えれば良いのでしょうか・・・。
教えてください。宜しくお願いします。m(__)m >ALL

>これは、どこでどう変えれば良いのでしょうか・・・。

ははは、できました。
快適、快適。(^^;

えらく早い解決ね。
しかし，なんで2kなの。どうせならXPにすれば。
XPも同様にキーボードが102になります。
で，そのままで問題なく使えます。

>しかし，なんで2kなの。どうせならXPにすれば。

XPはノートで使っています。
いろいろ有ったほうがいいでしょ？

これで、私のまわりでは、きれいにWin95/98はなくなりました。

>これで、私のまわりでは、きれいにWin95/98はなくなりました。
ほんとはWindowsなんて使わなくてすむなら，それが一番。
UNIX(Linux)が使えたらなぁ，と思う。
Unix用CADってどんなものがあるんだろう。

>Unix用CADってどんなものがあるんだろう。

IcadWebでどなたがが書いておられましたね。
一度、見てみたいものです。

ホームページをアップロードする情報が消えていたのを元に戻しました。
これで、更新もできます。

こういうのに時間を取られるで嫌なんだ。

私も先日２０００買ってきたばかり。
まだインストールしてません。
使い勝手はどうでしょう？

>Unix用CADってどんなものがあるんだろう。
QCADですね。オープンソースでWin版もありますよ。
http://www.qcad.org/

DXFはさすがに読めるんですね。DWGも読み書きできるとおもしろそうなのに。
マニュアルも日本語版があるのでちょっと見てみます。
そうそう，やっとTurboCADの体験版届きましたけど，まだ試してません。

EmacsのようにQCadLispはないよね(^^;

>私も先日２０００買ってきたばかり。
まだ、売ってます？

>使い勝手はどうでしょう？
ほとんど変わりませんね。

家のWin95はボロボロで、すぐにハングアップしていました。
鬼門サイトみたいなのがあって、そこに行くと必ず落ちる。
その度にファイルが壊れていくという悪循環でした。

なので、今は快適。メモリ64MBですが、動いています。(^^;

>QCADですね。オープンソースでWin版もありますよ。

Win版、DLしてみました。
うちのような回路設計には良いかも。
昔はCANDY3で書いていたのだから。

>そうそう，やっとTurboCADの体験版届きましたけど，まだ試してません。

試用レポート、宜しくお願いします。m(__)m
LISPにこだわるのであれば、IntelliCADでしょうね。

>EmacsのようにQCadLispはないよね(^^;

Emacsってなに？？？

>Emacsってなに？？？
基本的にはエディタです。
emacslispでカスタマイズできるんで、
ブラウザとかメーラーとしても使えるように出来たりします。
Win用だとMeadowが有名かな？

>基本的にはエディタです。

ひろさん、ありがとうございます。
探してみました↓。
http://www.ceres.dti.ne.jp/~manbou/mule/mule.html

LISPが身近なものに感じられますね。

>LISPが身近なものに感じられますね。
こんなんもあります。
http://kawacho.don.am/win/meadow/
http://www.carabiner-systems.com/xyzzy/

ちなみに、フォトレタッチソフトのGIMPで使われている。
script-fu もscheme ベースのLISPです。
LISP使える3DCGソフトとかPalmとかWinCEで動くschemeもあったと思う。
AutoLISPは一応使えるようになったので、こちらを覚えたい所。
SICP第2版読んでるけど難しすぎてなかなか進まず...時間がほしい今日この頃。

一応、こっち↓を使ってみました。
http://www.carabiner-systems.com/xyzzy/

頑張れば、いろいろ出来そうだけど、やはり、秀丸さんの方がいいですね。私は。(^^;
対応括弧の色分けはいい！！

>LISP使える3DCGソフトとかPalmとかWinCEで動くschemeもあったと思う。
めちゃくちゃマニアックなこと知ってますね。likiさんなみ。←これ、誉め言葉。(^^;

あちらから見れば、AutoLISPのほうがマニアックなのかも知れないね。

初めましてひろさんお名前は以前から存じ上げております、
おえいと申します、どうかよろしくお願い致します。

>ちなみに、フォトレタッチソフトのGIMPで使われている。
>script-fu もscheme ベースのLISPです。

Gimp for Windowsハードに入っていますしたまに利用して
います、でも"script-fu もscheme ベースのLISP"
は全く知りませんでした。(^^;
しかし皆さん物知りですね。ここ来るだけで結構得します。(^^)

はじめまして。
ＣＡＤを使用して描くテクニカルイラストについて紹介しているサイトがあります。お暇で興味がある方は、一度ご覧になってはいかがでしょうか。

http://www.h5.dion.ne.jp/~cti/

サイトのご紹介、ありがとうございます。
mura'sHomeにも紹介されていましたので、昨日、サンプル、円と楕円の関係など、
興味深く見せていただきました。

個人事業主のひとり言が一番興味深かったりして。(^^;

はじめまして。
Dieselにできない事をやりたくて Delphi + AcadControl を勉強し始めたLTユーザです。

皆さまは、AutoCADのオブジェクト情報をどのように取得なさいますか。
例えば、寸法オブジェクトの寸法値（「<>以外」）が欲しい場合、listコマンドで
>…
>既定値 文字の位置: X= 62.5187 Y= 158.2548 Z= 0.0000
>寸法値の変更子: 1000
>寸法ｽﾀｲﾙ: "STANDARD"
>…
のように、文字列「寸法値の変更子: 」と文字列「寸法スタイル: 」の間に表示される事を利用して、

var s: String;
　　…
　　s := AcadControl1.GetLogHist;
　　…
　　Delete(s, 1, Pos('寸法値の変更子: ', s) + 15);
　　Delete(s, Pos('寸法ｽﾀｲﾙ: ', s), Length(s));

としてみたのですが、ある寸法オブジェクトのDIMLFACが欲しい場合などは、
値のあとに続く文字列が一定ではないので、こうは行きませんよね。

GetLogHistの返値は改行が省略される、っていうのが便利なのか不便なのか、微妙な仕様です。

>皆さまは、AutoCADのオブジェクト情報をどのように取得なさいますか。

速いのはコマンド履歴。精度が欲しい場合は、DXFファイル。
画面がちらつくのが嫌な時もDXFファイル。です。

>文字列「寸法値の変更子: 」と文字列「寸法スタイル: 」の間に表示される事を利用して、

同じような感じです。

>GetLogHistの返値は改行が省略される、っていうのが便利なのか不便なのか、微妙な仕様です。

仕様というより、仕方ないのでは？

クリップボード経由でコマンド履歴をコピーすると、LIST表示とまったく同じように
取得できます。
DelphiのLT97用サンプルはShellFactoryにあります。
うちの[LT2000+Delphi]には、それをLT2000用にしたものがあります。

LT2000用は、りっちゃんとsakaiさんに教えてもらったものです。

皆様、こんばんは
>皆さまは、AutoCADのオブジェクト情報をどのように取得なさ
>いますか。
私の場合、オブジェクトプロパティ管理ウィンドウを直接操作しております。
タブを文字コード順に変更すれば寸法属性も簡単に取得できます。
ただし、このウィンドウが常に表示してあることが必須ですが．．。
ちなみに私は常時表示させ、便利に使わせて頂いております。

言い忘れましたが、
このオブジェクトプロパティ管理ウィンドウ操作の
もう一つの利点はそれぞれの値を直接変更することが
できることです。

>もう一つの利点はそれぞれの値を直接変更することが
>できることです。

おぉ、すごい発想。
DXFごそごそなんて、古い手法なのか。(^^;

いえいえ、まだ課題はあります。
それは複数のオブジェクトを選択した場合です。
共通項目を見つけ出すには頗る便利ですが、
一個一個の情報を得る場合にはやはり
ＤＸＦごそごそが必要かも知れません。

>それは複数のオブジェクトを選択した場合です。

そうそう、実際にはどうやるのかな・・・と湯船のなかで考えていました。(^^;

ありがとうございました。DXFが基本のようなので、
まずDXF、それからオブジェクトプロパティ管理ウィンドウ、の方向で勉強します。

「カスタマイズ余話」を読み直しましたら、
ずばり「オブジェクトの情報を取得する」という段落がありましたね。
重複した質問をしてしまって恥ずかしい。

「図形の属性を変更する」のところの
>DXFファイルの知識が無いとかなり危ないことになります。書き換えは非常に危険です。
だけが曖昧に記憶に残って、DXFは避けた方がいい、などと漠然と考えていました。

>重複した質問をしてしまって恥ずかしい。
大丈夫ですよ。

DXF書き換えというのは、AutoLISPの(entmod)と違って、
選択したオブジェクトを削除、それの代わりに書き換えたDXFファイルをINSERTするので、
AutoCAD内部、DXFファイル上で、それぞれのオブジェクトが複雑に絡みあっているとき、
それを壊すことになります。

[LT2000+Delphi]にも書き換えのサンプルがあります。
参考にして下さい。

>AutoCAD内部、DXFファイル上で、それぞれのオブジェクトが複雑に絡みあっているとき、
今の私にはイメージが沸きませんが、失敗しながら身につけていきたいと思います。

[LT2000+Delphi]の書き換えのサンプル
>DXFファイルの書換えにより、文字(TEXT,MTEXT)の大きさ(絶対、相対高さ)を変える for LT2000
ですね。izawaさまの手法を勉強させていただきます。
本当にありがとうございます。(^^)

[二重丸のなかに点がある]というオブジェクトを描いて相手
のＣＡＤに渡したい時に、双方のＣＡＤの[点]の定義の
問題があるので、
１　二重丸はそれぞれ円(Circle)で表現。
２　真中の点も極小の円(Circle)で表現。

ということを考えたのですが、考えすぎ(または不足)でしょうか？
それと円の半径で許される最小の値はどうなのでしょうか。

JW_CADの点を円としてDXFOUTすると、半径0.3でした。

>それと円の半径で許される最小の値はどうなのでしょうか。
どうなんでしょね。適当ではダメ？(^^;

限りなく０に近づけると、円（○）ではなく四角（□）になるような気がします。
描画不能状態。内部でも計算出来ないのでしょう。

>JW_CADの点を円としてDXFOUTすると、半径0.3でした。
そんな手があったのか。。。(^^;

>どうなんでしょね。適当ではダメ？(^^;
適当ならいいです。(^^)

Circleでなく、Lineで描くという手もありそうですね。

[線分の長さで許される最小の値はどうなのでしょうか。]

となるから同じことか。。。(^^;

>[線分の長さで許される最小の値はどうなのでしょうか。]

長さ０の線分ってありうるような気もするけど。
それがすなわち[点]じゃないかと。。。
どうなんだろ？

>長さ０の線分ってありうるような気もするけど。
有り得ますね。よく、作ります。(^^;

他には半径０の円とか、角度0度または360度の円弧・・・
不安定要素だと思います。

>長さ０の線分ってありうるような気もするけど。
昔、長さ０（頂点が１つ）のポリラインが出来てしまって？？？
新しいバージョンで開くと、勝手に頂点が追加されて、画面中ゴミだらけになりました。

>新しいバージョンで開くと、勝手に頂点が追加されて、画面中ゴミだらけになりました。

ははは、笑い事ではないか・・・。
親切なところもあるのですね。AutoCAD。(^^;

Opera Softwareは、同ブラウザのスピードをさらに高めるため、
レガシーコード を切り捨てる決断を下した。

http://www.zdnet.co.jp/news/0208/21/ne00_opera.html

http://jp.opera.com/download/

情報(;^^)
http://www.zdnet.co.jp/news/0208/21/ne00_opera.html

一応お家のアイコンをクリックして頂ければ。
IntelliCADは決断を下せるのか。

Opera Softwareは1年半かけてコードを作りなおした・・・。
果たして、IntelliCADの「Project Presto」は、何時始まるのか。ですね。

R13が出た頃のユーザー情報誌に、開発プログラマー何人というのが
書いてあったので、探してみるけど見つからない。

そう言えば、Cosmoさん。頑張ってますね。
http://www.cosmoele.co.jp/icad/icadexpo.htm

外部アプリのメリット＝同じアプリで、ICAD・ACADに対応できる。
ということで、AutoCADでも使えるようにしました。
IntelliCADでも最初のロードがかなり速くなりました。

AutoCADのバージョンチェックは一切なし。
Windowタイトルに「AutoCAD 」の文字があれば、そこに発行するだけ。

>こんなに簡単に出来るのがうらやましいです。(^^)

いえいえ、TreeView初めて使いました。(^^;
おえいさんのお陰です。m(__)m

http://plaza29.mbn.or.jp/~f_izawa/ilisper.htm

ちなみに、R版ユーザーではないので、LTのコマンドラインでチェックしました。
本当にR版でLISPがロードされてコマンドが動くのか、かなり心配。

R15では動いたよ

りっちゃん、どうもです。(^^;

>R15では動いたよ
R15ってACAD2000ですか？
ありがとうございます。m(__)m

同梱サンプルLISPが動くかどうかも不明。
それらしい気遣いはしているつもりですが。

TreeViewでダブルクリックすると「名前変更」になるのだけど、
これをやめるには、どうすれば良い？

２０００です、サブクラス化して、
後は拡張スタイルで設定..出来たかな..（＾＾；

>TreeViewでダブルクリックすると「名前変更」になるのだけど、
>これをやめるには、どうすれば良い？
ReadOnly:= True; でOK (;^^)
でなければ、イベント時編集OFFにすればOK

面倒なところはILISPER.TXTにしてしまって〜
手抜きじゃ手抜きじゃ^^;

ちなみにR2002でも動作OK、個人的にはクリック動作が好みなんだけど

どちらで作った？(D or B)

>外部アプリのメリット＝同じアプリで、ICAD・ACADに対応でき
>る。ということで、AutoCADでも使えるようにしました。

やっぱりそうですよね。(^^)
私もこの間送らせて頂いた試作TOOL、ソース中のEXEネームを
変えるだけでＪＷと同じ操作のソフト皆動いちゃいますから
ひとつ作ると結構汎用度が上がります。(^^;

>いえいえ、TreeView初めて使いました。(^^;

すごいっす！
TreeViewって最初私なんか苦戦しまくりでした。
実は私のICADの環境そっくりですので、やっぱり私が一番
うれしいかも。（だって全く違和感なし(^^)）

>後は拡張スタイルで設定..出来たかな..（＾＾；
VC++だとそうなるのですね。

>ReadOnly:= True; でOK (;^^)
ありがとうございます。
..Editing..を探していました。(^^;

>ソース中のEXEネームを変えるだけで
>ＪＷと同じ操作のソフト皆動いちゃいますから
なにやらマニアックなことしてますね・・・。近寄りがたい。(^^;

>TreeViewって最初私なんか苦戦しまくりでした。
Helpを見ても分からないですね。

>うれしいかも。（だって全く違和感なし(^^)）
発想からして、おえいさんのですからね。

>面倒なところはILISPER.TXTにしてしまって〜
ドラッグ＆ドロップで自動登録・・・なんていいですね。理想的。
sakaiさんなら、そこまでやると思うけど。

>ちなみにR2002でも動作OK、個人的にはクリック動作が好みなんだけど
ありがとうございます。
ダブルクリックは苦肉の策です。(^^;

>どちらで作った？(D or B)
Delphiです。

>>TreeViewでダブルクリックすると「名前変更」になるのだけど、
>>これをやめるには、どうすれば良い？
>ReadOnly:= True; でOK (;^^)

手直し版、アップロードしました。(^^;

>手直し版、アップロードしました。(^^;

LISPcommander早速ゲットさせて頂きました。( ^ー^) ！

漢字変換の件、みなさんありがとうございます！
まだ解決はしてないんですけどちょっと進展しましたぁ(^^)v
で、違った所でまたつまずいたんで、また助けていただけませんか？
WebBrowserに、Edit内のテキストを送るコードを教えて下さい。
WebBrowserは、この掲示板のような、
名前・E-mail・題名・本文・URLみたいにいくつかのボックスがある所で、
その中の、キャレットがある所にEditのテキストを送りたいんです。
どのようにすればいいんでしょうか？

すいません、語彙力なくて（＾＾；
そういう感じです！すごいですねー！！簡単なんですね！？
私は何日悩んでることやら・・・(T_T)
あ、でも、WebBrowserはURLがどこかっていうのが決まってないんです。今表示している所、に送りたいんです。
それと、書いてなかったんですけど、Buttonを押したらEdit(1個)のTextを、WebBrowserのキャレットがある所に送る、っていうコードにしたいんで、うーん・・・どこをなおせばいいのか・・・？
はぅ。コード見たらナルホドって思うのに（ﾉ_･｡）

>そういう感じです！すごいですねー！！簡単なんですね！？
URLを表示しているだけですから、他何もしていない^^;

>あ、でも、WebBrowserはURLがどこかっていうのが決まってないんです。今表示している所、に送りたいんです。
と言うことですが、出来るのかどうか分かりません。
出来たとしても漢字変換と同じようにかなり限定された仕様でないと・・
http://www.wwlnk.com/boheme/delphi/techdoc/dad0060.html
参考になろのかどうか分からないけど

っということは、if文で、このURLならこう･･･ってしていけばいいんですかね？え？めんどくさいですかっ？（爆）
う〜ん･･･ボタンを押したら送るように色々試してるんですけど、
全然言うこと効いてくれません（￣▽￣；

>〜ん･･･ボタンを押したら送るように色々試してるんですけど、
どんな風に？
さしつかえなかったら、ここに書けます？

今、エラーの山なんですよぉ！！なんか、違う所までエラーになってしまって、よくわからなくなってます(技量が無いだけです)。恥ずかしいんで、ちょっと待ってください〜。やろうとしてるのは、これです。⇒もしフォーカスがなければメッセージボックスで知らせる。あれば、そこにEditのTextを送る。URLは一応1つに固定してやっています。
･･･なんだこれだけ？って気もするんですけどね〜なかなか･･･。

>ちょっと待ってください〜
メールでもいかんかな〜 (;^^)

コード送ったので見てください〜。
すいません、よろしくお願いします！！

今お風呂から上がってきまして、今から見ます。(^^ゞ

>>そういう感じです！すごいですねー！！簡単なんですね！？
同じく。m(__)m
何でも良く知ってるわ。

>今お風呂から上がってきまして、今から見ます。(^^ゞ
風呂上がりは、一緒ですね。(^^;

他のＨＰよりの情報で、こちらにきました。ダウンロードしたのですが、どうも動かない！ファイルが存在しているか？？と言う警告が！
どのように使えばいいのですか？

サイトからDLして動作させてみましたが、ファイル自体は大丈夫なようです。

LTが「ファイルが存在しない」の警告を出している場合は、
DXFファイルをINSERTする時の読み込み失敗です。
その場合は、LTのコマンド履歴(F2キー)で確認できます。

LT_Heronが出している警告であれば、読み込むタイミングが合わないのかも
知れません。

どちらも、フォルダ名がわざわいしているか、タイミングが合わないかです。
フォルダを変えてみてもダメな場合は使えません。

半角スペース、漢字交じりのフォルダでテストしてみましたが、
こちらの環境では、大丈夫でした。Win2000。

テスト方法
--------------------------------
LT2000を起動する。
LT_HERON.exeを起動する。
順番はどちらが先でも良い。

LTとの通信のテスト：
No.[1 ]の数値を[▲][▼]ボタンで大きくしておき、[最大]ボタンをクリックする。
LTがちらちらとなって、No.の数値が１に戻れば、通信はOK。

自動分割のテスト：
LTでLIMMAXを42000,30000程度にし、ZOOM ALLしておく。
LINEコマンドで、適当な大きさの多角形を描く。最後は、Cで閉じる。

LT_HERONで[自動]ボタンをクリックし、LTで描いた多角形の内側を１点指示する。
三角形に自動分割され、番号、長さが記入されていくので、終わるまでしばらく待つ。

[求積表]ボタンをクリックし、LT上で１点指示すると、表らしきものが作成される。
--------------------------------

>他のＨＰよりの情報で、こちらにきました。

LT_Heronが使える使えないに関わらず、結末は向こうにも書いてくださいね。
回答者への礼儀をお忘れなく。(^^;

ダウンロードしても、ダメです。何かしなくては、いけないのかな？なぜだろう？

まさか、解凍していない・・・というオチではないでしょうね。

解凍すると、LT_HERON.EXE、LT_HERON.TXTの２つのファイルになります。
EXEの方が、プログラムファイル。TXTは説明書きテキストファイル。

>解凍すると、LT_HERON.EXE、LT_HERON.TXTの２つのファイルになります。
>EXEの方が、プログラムファイル。TXTは説明書きテキストファイル。

それと実行方法、動作環境(実行にはＬＴが必要とか)等を
ダウンロードする画面のところに付け加えておいていただ
くとありがたいです。よろしくお願いします。

起動するまで結構障壁高いのです。

>起動するまで結構障壁高いのです。

ですね。(^^;
私も感じます。何でも最初の１歩がむずかしい。

未だ、うまくいきません。
ダウンロードすると、lthrn2000というファイルがでてきます。
その後、どのような操作をしたらいいのでしょう。
なにぶん、周りに聞いて分かる人が居ないもので・・・。
初歩的なことを質問してるとは、思うのですが、初心者なのでよろしくお願いします。

>未だ、うまくいきません。

初めまして、おえいと申します。
苦戦されておられるようですね。(^^;

>ダウンロードすると、lthrn2000というファイルがでてきます。
>その後、どのような操作をしたらいいのでしょう。

lthrn2000→lthrn200.lzhですかね(^^)
多分".lzh"はエクスプローラーから見えない設定になっている
と思います。
http://www.vector.co.jp/vpack/filearea/win/util/arc/index.html
等でlhasa32等をダウンロードしインストールします。
もしすでに上記の解凍ソフトをお持ちでしたら下に続くです。
その後、lthrn200をダブルクリック（すばやく二度マウスを
押す）してみます。
保存先を聞いて来ると思います。もし聞いてこなかった場合
デスクトップにフォルダーが出来てると思います。
その中にLT_HERON.EXEとLT_HERON.TXTが目的のソフトだと
思います。(^^)

>まさか、解凍していない・・・というオチではないでしょうね。

かもしれないようですから、お答えさせて頂きました。
これでもわからなければ、Windows関係の雑誌をちょっと見て
みる、意外とどの雑誌にも載ってますから。

>かもしれないようですから、お答えさせて頂きました。
おえいさん、分かりやすい解説、ありがとうございます。

>これでもわからなければ、Windows関係の雑誌をちょっと見て
>みる、意外とどの雑誌にも載ってますから。
CAD&CGマガジンにも解凍ソフトは毎号付いています。
使い方も出ていたような・・・。

ダイスケさん、
送付先をメールで知らせてくださったら、フロッピーで送りますけど。

初めまして！Delphi6を使ってるんですけど、超初心者です。
平仮名を漢字に変換させるコードがわからなくて、
検索してたらこちらに辿り着きました(^^)
EditのText(平仮名)をSetFocusで選択するまでは出来たんですが、
それをどう漢字に変換できるのかが分かりません。
教えていただけたら嬉しいです。よろしくお願いします<(_　_)>

>それをどう漢字に変換できるのかが分かりません。
わたしにもわかりません。
と言うより、プログラム側でひらがなを漢字にするのは無理なのでは？
「かんじ」でも、漢字、感じ、幹事、監事・・・といろいろあります。

質問の意味がちがいますか？

IME（漢字変換）の起動であれば、
Edit1.ImeMode:=imOpen;とか、imHira;とかです。

私も動作が理解できない(;^^)

>平仮名を漢字に変換させるコードがわからなくて、
Editに平仮名が入力してある状態で、ボタンをクリックすると
漢字に変換する。でいいのかな？　ダメそう〜

>Editに平仮名が入力してある状態で、ボタンをクリックすると
>漢字に変換する。
それです！やっぱり無理でしょうか？
どうしましょう。はぅ。。。まぁ、頑張ってみます！
どうもありがとうございました〜(*^ー^*)

誰でしょう（（（；＾＾）

ここで↓ＩＭＥで検索して、出てくるのが少しは糸口に．．．
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=15

>誰でしょう（（（；＾＾）
だれでしょうねぇ・・・。(^^;

>ここで↓ＩＭＥで検索して、出てくるのが少しは糸口に．．．
きれいにまとめられていますね。すごい。
利用させて頂きます。m(__)m

特定のＩＭＥなら．．．
http://www.justsystem.co.jp/tech/atok/download1.html

>特定のＩＭＥなら．．．

そこまでは・・・。(^^;

TreeViewを使ったLISPコマンド実行用外部アプリです。
ちょっと、おえいさんのアレに似ています。(^^;

あらかじめテキストファイルでLISPを登録しておきます。
TAB区切りなのでExcelでも作成可能。

LISP実行はダブルクリックで。
http://izawa.icadweb.com/ilisper.htm

>ちょっと、おえいさんのアレに似ています。(^^;

最近バイトとICAD、前述して戴いたアレの修正（なぜか受講生に
好評のため終わりません(^^;）でROMのみに終わってました。(^^;
さすがで御座います。(^^)、実にシンプルで使いやすいです。
ダブルクリックでICADにロードさせてセットしている又は
セットしたLISPを実行ですね。
こんなに簡単に出来るのがうらやましいです。(^^)
なんか私が一番うれしかったりして。(^^;
根本的なLISPの勉強中なので、LISPが出来たらすぐに実行
できます。
今回も又感謝で御座います。m(_)m

DXFファイルを書きかえる単体EXE。
作成されたDXFをAutoCADで読むとAutoCADごと落ちます。
IntelliCADでは大丈夫。SHADE体験版でもOKでした。
http://www7.ocn.ne.jp/~izawa523/lzh/sol3d.lzh

Delphiで使ったOCS座標値->WCS座標値変換。
http://izawa.icadweb.com/txt/sol3d.txt

・・・と、ここまで書いてふと気付いたのですが、
3DFACEに変えるのではなくて、POLYLINEにしておけば、
OCS座標系そのままで良かったのでは？と。(^^;

たくさんの方にお世話になり、どうもありがとうございました。m(__)m

>3DFACEに変えるのではなくて、POLYLINEにしておけば、

ちなみに、OCS（オブジェクト座標系）で現される図形。
円、円弧、2Dポリライン、ソリッド、文字列・・・など面を持つ図形。

>作成されたDXFをAutoCADで読むとAutoCADごと落ちます。
>IntelliCADでは大丈夫。SHADE体験版でもOKでした。

読めても不完全なデータなので、いろいろと問題があるようです。
なので、実用は不可！！ですね。

AutoLISP版↓は大丈夫です。
http://izawa.icadweb.com/txt/sol3d.lsp

こんにちは♪
AutoCAD LT2000と
AutoCAD LT2002 との
違いで大きなものは何かありますか？
どなたか、ご存知の方いらっしゃいますか〜？

とりあえず、ここ↓。
http://www.geocities.jp/msk2msk/2002.htm

どーもっす♪
2000から2002にわざわざアップさせるほどでもないのかな？
ちなみに私は設計が本職でないので、あまり分からんのですが・・

LT2002は所有していないので、詳しくは分かりません。
使っている人の話では、絶対バージョンアップしたほうが良いということでした。
バージョンアップ費用分の値打ちはあるかどうかの判断は、そのひと次第。

私の場合、バージョンアップの目的が自分のアプリの動作確認のためという
不純な動機なので、あまり説得力がない。(^^;

ここで関係のあるものに、、(^_-)
BTRIM「もどき」がありますね。

ITさん、どうもです。

>BTRIM「もどき」がありますね。
ブロック内のオブジェクトをトリムや延長の境界として使用できる。ですね。
あと、トリムと延長がひとつのコマンドになった。とか。
文字の基点を変えても文字が動かない。とか。

結局、DXF書換えはOCS->WCS変換がわからないので、あきらめました。

LISPで(trans)をつかうと簡単でした。(^^;
http://izawa.icadweb.com/txt/sol3d.lsp

LISPを使うという不本意な結末となってしまいました。
いろいろと教えていただいたみなさん、どうもありがとうございました。m(__)m

座標系の勉強にはなったから、良かったかな・・・と。(^^;

面白そうなので昼休みに試してみました
LISPですが...m(_ _)m
ほかの言語でも同じようなことをすれば可能だと思います

(defun c:xx ( / !last assoc2 assocl length2 vector-ocs vector-length
vector-unit vector-scalar vector-cross matrix-convert
matrix-transform en ent ocs mat pl
)
; リストの最後の要素以外
(defun !last (lst) (reverse (cdr (reverse lst))))
; assocの複数版
(defun assoc2 (c l / buf)
(if (and l (setq buf (assoc c l)))
(cons buf (assoc2 c (cdr (member buf l))))
)
)
; 複数のキーでリストを検索
(defun assocl (c l / )
(if (and c l)
(cond
((atom c) (assoc2 c l))
((listp c)
(if (equal (length c) 1)
(assoc2 (car c) l)
(append (assoc2 (car c) l) (assocl (cdr c) l))
)
)
)
)
)
;リストの要素数を数える
(defun length2 (l)
(cond
((not l) 0)
((atom l) 1)
(t (+ (length2 (car l)) (length2 (cdr l))))
)
)
; OCSのZベクトルからX・Y成分に分解
(defun vector-ocs (z / x y)
(if (not z) (setq z '(0. 0. 1.)))
(if (and (< (abs (car z)) (/ 1. 64.)) (< (abs (cadr z)) (/ 1. 64.)))
(setq x (vector-cross '(0. 1. 0.) z))
(setq x (vector-cross '(0. 0. 1.) z))
)
(mapcar 'vector-unit (list x (vector-cross z x) z))
)
; ベクトルの大きさ
(defun vector-length (v)
(sqrt (apply '+ (mapcar '(lambda (x) (* x x)) v)))
)
; ベクトルの正規化
(defun vector-unit (v)
(mapcar '(lambda (x) (/ x (vector-length v))) v)
)
; ベクトルの内積(スカラー積)
(defun vector-scalar (v1 v2)
(apply '+ (mapcar '* v1 v2))
)
; ベクトルの外積
(defun vector-cross (v1 v2 / )
(list (- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2)))
(- (* (caddr v1) (car v2)) (* (car v1) (caddr v2)))
(- (* (car v1) (cadr v2)) (* (cadr v1) (car v2)))
)
)
; 正方行列の行と列を入替
(defun matrix-convert (m / n i ret)
(setq i 0)
(if (equal (expt (setq n (length m)) 2) (length2 m))
(repeat n
(setq ret (append ret (list (mapcar '(lambda (x) (nth i x)) m))) i (1+ i))
)
)
ret
)
; 座標変換
(defun matrix-transform (pt mat)
(setq pt (append pt '(1.)))
(mapcar '(lambda (x) (vector-scalar pt x)) mat)
)
; メインルーチン
(if (and (setq en (car (entsel)))
(setq ent (entget en))
(= (cdr (assoc 0 ent)) "SOLID")
)
(progn
(setq ocs (vector-ocs (cdr (assoc 210 ent))) ; OCS(ECS)のXYZ成分
mat (append (mapcar '(lambda (x) (append x '(0.))) (matrix-convert ocs)) '((0. 0. 0. 1.))) ; 変換用のマトリクス
pl (mapcar '(lambda (x) (!last (matrix-transform x mat))) (mapcar 'cdr (assocl '(10 11 12 13) ent))) ; 頂点のリスト
)
(mapcar '(lambda (x) (entmake (list '(0 . "point") '(62 . 3) (cons 10 x) (cons 210 (caddr ocs))))) pl) ; 頂点に点を打つ
(princ "\nSOLID図形の頂点(WCS)は：")
(mapcar 'print pl) ; 頂点(WCS)の座標を出力
)
(princ "\n選択ミス!!")
)
(princ)
)

インデントが崩れちゃったm(_ _)m

>面白そうなので昼休みに試してみました

おぉ、すごい！出来るひとにはできるのね。
今日は出勤ですか？

>ほかの言語でも同じようなことをすれば可能だと思います
研究してみます。

>インデントが崩れちゃったm(_ _)m
この掲示版、こういう用途には向いていませんね。

>; OCSのZベクトルからX・Y成分に分解
私がDelphiでやっていた分は、これ↑が間違っていたようです。
正しいWCS座標に変換できました。(^^;

hanafusaさん、ありがとうございます。

>私がDelphiでやっていた分は、これ↑が間違っていたようです。

敗因は「ベクターの正規化を忘れていた」でした。(^^;

>敗因は「ベクターの正規化を忘れていた」でした。(^^;

単位ベクトルなので、その大きさは必ず１でなければならない。