Yuri Weblog

SWマンよ飛べ

in SolidWorks on 2005/02/23

Animatorを使って。
ポイントは全てが距離、角度合致、そしてイーズイン、イーズアウト。

ライトウェイト

in SolidWorks on 2005/02/21

更新が必要だと赤いらしい。
変わったなら教えてくれって。

［ツール］→［アプリケーションオプション］の「表示タブ」。
「アクティブ」「有効」「背景」って何よ？？
ってことでまずは設定を全て外してみる。

そしてこんなアセンブリを作成。
一番右のは「有効」をはずしてあります。

そしてワイヤーフレーム表示。

見にくいんですけど。
「シルエット」なんて項目いるんだろうか？
とりあえず「アクティブ」にチェックを入れてみる。

次は「背景」

「有効」でない部品は「背景」かよ！？
そして最後に「有効」
「アクティブ」とどう違うんだ？？

は、激しくわかりずらい！
「有効」は「有効」だが、
「非編集部品」とかにしてくれ！

No Comments

U2さんブログ

in たわごと on 2005/02/18

AutoCAD系ブログって、muraさんと米国Autodesk blogしか知らなかったのだが、U2さんのを発見しました。
今、何しているの？

No Comments

変換マトリクス

in LISP on 2005/02/17

UCSが設定してある図面において、
赤い線をLISPでブロックにすることを考える。
まずは普通にentgetしてブロックにし、insertしてみる。

(defun c:test(/ E_DATA)
;;線のエンティティデータE_DATA
(setq E_DATA (entget (car (entsel "\n線を選択:"))))
;;ブロック名B_NAME
(setq B_NAME "テストォ")
(entmake
(list
'(0 . "BLOCK")
'(100 . "AcDbEntity")
'(67 . 0)
(cons 8 (getvar "clayer"))
'(100 . "AcDbBlockBegin")
'(70 . 2)
'(10 0.0 0.0 0.0)
(cons 2 B_NAME)
'(1 . "")
)
)
;;属性
(entmake E_DATA)
;;ブロック宣言終わり
(entmake
(list
'(0 . "ENDBLK")
(cons 8 (getvar "clayer"))
)
)
)

すると、あ～ら不思議、UCSが設定されてるので、とんでもない傾きに。

つまり、WCSでの傾きを求めなければならない。

こんな点の変換を行う必要がある・・・ってどうすればいいんじゃ！
いや～な予感がしつつ、マトリクス変換とかいうのを使わにゃ面倒だ。
ってかマトリクス変換って方が面倒に感じる私だが、がんばるしかない。

(defun y_ucsrotate(
PT	;座標
B_PT	;挿入点
/
)
(y_pt+ (y_matrix (y_pt- PT B_PT) (y_ucsmatrix)) B_PT)
)
(defun y_matrix(
PT	;座標
MT	;変換マトリクス
/
)
(mapcar
'(lambda (x)
(+
(* (nth x (nth 0 MT))(nth 0 PT))
(* (nth x (nth 1 MT))(nth 1 PT))
(if (= (length PT) 3)
(* (nth x (nth 2 MT))(nth 2 PT))
0.0
)
(nth x (nth 3 MT))
)
)
(if (= (length PT) 3)
'(0 1 2)
'(0 1)
)
)
)
(defun y_ucsmatrix(
/
)
(list
(trans '(1 0 0) 0 1 T)
(trans '(0 1 0) 0 1 T)
(trans '(0 0 1) 0 1 T)
'(0 0 0)
)
)

UCSは設定したままでね。
(y_ucsrotate 変換したい座標ブロックの原点)
これで変換先のWCSの座標が求められる（はず）。
試しに、
(command “circle” (trans (y_ucsrotate (trans (getpoint) 1 0) (trans (getpoint) 1 0)) 0 1) “500”)
とかしてみると、変換されてるのがわかる。
誰か行列教えてくれ～。

5 Comments