イメージのトップの座標の抽出

[Angelo2449]

皆さんこんにちは。
覚えていると、この質問を既に提案しましたが............。
コマンド > リスト < 画像を選択し、 :
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
輪郭ポイントの数:
x=1498734.6144、y=5044908.2097、z= 0.0000
x=1498750.7401、y=5044889.0296、z= 0.0000
Enterを押して続行します。
点に、x=1498721.9701、y=5044864.8411、z= 0.0000
点に、x=1498705.8444、y=5044884.0211、z= 0.0000
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
値の座標を多くの lisp 変数で値に進む方法は?
お問い合わせ

 

[GP.]

カットされていないイメージのために、著者はギルス・シャントーです

(defun rastercoords (img / elst v1 v2 org))
(setq elst (entget img)) は、
v1 (map '(lambda(x) (* x (cadr (assoc 13 elst))))))) (cdr (assoc 11 elst)))))))
v2 (map '(lambda(x) (* x (caddr (assoc 13 elst))))))) (cdr (assoc 12 elst)))))))
)
(マップカル)
ラムダ (p) (trans p img 0)
(リスト)
(setq org (cdr (assoc 10 elst))))))
(マップ '+ org v1)
(マップ '+ org v1 v2)
(マップ '+ org v2)
)
)
)

 

[Angelo2449]

ありがとうございますが、コードはすぐにimgを設定しています。

コマンド: rastercoords
; エラー: 不足しているトピック
コマンド:

 

[GP.]

私はそこにないお問い合わせ受賞作品(setq listav (rastercoords))) )リターン:(11.062 22.9796 0.0) (-3.20785 14.7024 0.0)

 

[Angelo2449]

感謝 gp,
反射後、別の方法で進めることにした。
私はイメージの座標を抽出したいが、これは、コマンド > リスト < としてプロパティの抽出だけをカットまたは回転させることができます。
しかし、とても難しいようです!
それから、ワンクリックで、描画にインサートされた画像の中心の座標を抽出する問題を解決します。

 (seq modaosnapx (getvar "osmode"))
(Setvar "osmode" 32) ; 交差点
(setqイメージセンターNil)
(コマンド "_regen")

(Sects)
(秒2と2)

(歌)
(==)
(setq vertex (getpoint "\nclick :")))
;;;

(歌)
(=トップ2ニル)
(setq vertex 2 (getpoint "\nclick the top image from the first :")))
;;;

(Sectq diffx (- (車変換)))))
(setq diffy (- (cadr vertedue) (cadr verteuno)))))

(setq中心のイメージ(+ (車の頂点) (/diffx 2.0)))) (+ (cadrの頂点) (/diffy 2.0)))))))))
(コマンド "_circle" イメージセンター 0.50")
(setqの円1 (entlast)
(コマンド "_change" "_last" "_p" "_layer" "yellow"))

結果は完璧ですから、 > リスト < の変数を変換するための検索が私を放棄しない場合でも大丈夫です!
お問い合わせ

 

[GP.]

上記に投稿した lisp は、回転した写真、以下ならびにそれらのカットアウトでも動作します。
(getimageclipboudaryvertex(車)))

;;imageobj - 画像のenameまたはvla-obgect
;;;リターン:
;;; wcs のクリップ境界のポイント リスト(x、y)
(defun getimageclipboudaryvertex) (imageobj / imagedat pixelpoint koef)
imageheight ポイントリスト pt10
(vl-load-com)
(=(type imageobj) 'ename) の場合
(setq imageobj (vlax-ename->vla-object imageobj))) )
)
(setq imageheight) (vla-get-imageheight Imageobj) (setq Imageheight) (vla-get-imageheight Imageobj) ) (vla-get-imageheight Imageobj ) (setq Imageheight) (vla-get-imageheight Imageobj) ) (setq imageheight (vla-get-imageheight Imageobj) ) (vla-get-image-imageheight Imageobj) ) (vla-get-image-image-image-image-image-image-image-image-image-image-image-imageobj ) )
imagedat (entget (vlax-vla-object->ename imageobj))) は、
ピクセルポイント(mapcar 'cdr)
(vl-remove-if-not)
(関数(lambda(x)) (= 14 (car x)))))))
画像処理
)
)
koef (リスト)
(/ (vla-get-imagewidth imageobj) )
(vla-get-width imageobj) )
(/imageheight(vla-get-heightimageobj)) ) )
)
pt10 (cdr (assoc 10のimagedat)))
)
(setq)
ポイントリスト
(mapcar '(lambda) )
(マップカル '*)
(mapcar '+ x '(0.5 0.5 0)) )
コフ)
)
ピクセルポイント
)
)
(setq)
ポイントリスト
(マップカル)
'(lambda(x))
(リスト(車X) (-画像高さ(キャダーX)))))))
ポイントリスト
)
)
(=(長さのポインリスト) 2) 2
(mapcar '(lambda) (x y)) )
(setq ポイントリスト)
(リスト)
(リスト(車X)(キャダーY)))
ツイート
(リスト(車Y)(キャダーX)))
ログイン
)
)
)
ポイントリスト
(CDrのポイントリスト)
)
)
(setq ポイントリスト)
(マップカル)
'(lambda (x) (rotate_0_a x (vla-get-rotation imageobj))))))
ポイントリスト
)
)
(setq ポイントリスト)
(mapcar '(lambda (x) (mapcar '+ x pt10)) ポイントリスト))
ポイントリスト
)

(defun Rot_0_a )
(リスト)
(+ (*) (cos a) (car p)) (* (- (a))) (c)))))
(+ (*) (*) (*) (*) (*) (*) (*) (*) (*))) (*) (*)) (*) (*) (*) (*)) (*) (*)) (*))) (*) (*)) (*) (*)) (*) (*)))))) (*) (*) (*)) (*) (*))) (*) (*) (*) (*) (*))))) (* (*))))) (* (*))))))) (* (* (* (* (* (*)) (*))))))))) (* (* (* (* (* (*))))))) (* (* (*))))))))) (* (* (* (* (* (* (* (* (*) (*) (*)) (* (* (*)))))))) (* (*) (* (*)))
)
)