データフィールドに「オブジェクト」を素早く更新(引用平面、z quota、選択オブジェクト)

[Rachele__]

お問い合わせ
私はフォーラムで新しいです, 私は数週間あなたのために発見し、あなたはすでに多くの問題を解決してきました, ので、あなたのそれぞれの答えと可用性のために事前に感謝.


日々お世話になったことをお聞きします。
私の同僚は、土地のクォータポイントのポリ塩化ビニールからエクスポートしました, これらのポイントは、クォータのzを所有しています. クォータ z というフィールドデータでラベルを差し込み、問題がない。
問題は、私が地面のすべての点のために毎回オブジェクト(ポイント)を交換しなければならないという事実から発生します, それはほとんどです 300... 今, 私は引用された計画を持つ他の方法を持っていないので、, オフィスでは、我々はこのインペンデントを分割しました, そして、私は我々がそれを終わらせたソリューションを探しているという意味で.

このことを lisp、動的なブロックを通して解決することができるという考えは、何かが私を眠らせさせないので、平和に私の魂を置くために、このプロセスをスピードアップする方法はありますか? 将来的に同様のケースが来る場合は、この問題を解決する準備が整いました。

私は、いくつかのラベルが作られて、いくつかのラベルが作成され、証拠を掛けて作ったファイルを残します, 一部だけコピー, プランポイントの残りの部分.

ここを読んでくれてありがとう、お礼申し上げます。
日頃からお越し下さい!

 

[rpor66]

; pr2:小数 2
;%<\acobjpropオブジェクト(%<\_objid 1600972624>%)。座標 \f "%lu2%pr2%pt4">%

(defun c:addfield2ent (/ osmode sel n カウント))
(vl-load-com)
(setq ssget "\nseleziona entita': "))))
(/= sel nil の場合)
(プログ)
(setq の osmode)
(コマンド "_osnap" "_none")
(setq カウント 0)
(repeat (sslength の sel))
(sssname sel カウント)
(addfield2ent_motore n) の検索結果
(setqの計算(1+の計算))
)
(osmodeの設定)
)
)
)

(defun addfield2ent_motore (n / ent pt entobjectid インサートポイント広告 objmtext ambiente thgth)
(setq ent (get n) ) )
(setq pt (cdr (assoc 10 ent))))))
(setq entobject (vlax-ename->vla-object n))
(get-objectidx64のentobject)
インサートポイント(vlax-3d-point pt)
広告 (vla-get-activedocument (vlax-get-acad-object)))
)
(setq objmtext ;memorizza l'oggetto restituito da vla-addmtext)
(vla-addmtext)
(= 1 (vla-get-activespace 広告))
(vla-get-modelspace広告)
(vla-get-mspace 広告の場合) :vlax-true
(vla-get-modelspace広告)
(vla-get-paperspace広告)
)
)
インサートポイント
ツイート
(strcat "z: "%<\acobjprop オブジェクト(%<\\_objid "entobjectid">%).coordinates \\f \"%lu2%pr2%pt4\">%")
)
)
(vlax-put-property objmtext "attachmentpoint" ) は、 7) ; 出入口のgiustificazioneの底左
)

(defun get-objectidx64 (obj/util) ) は、
(setq ユーティリティ (vla-get-utility)
(vla-get-activedocument (vlax-get-acad-object))))
)
)
(=(type obj) 'ename) の場合
(setq obj (vlax-ename->vla-object obj)))
)
(= (type obj) 'vla-object' の場合)
(例)(vl-string-search "x64" (getvar "platform")) 0)
(vlax-invoke-method)
ユーティリティ
"getobjectidstring" は、
ログイン
Vlax-falseの特長
)
(rtos (vla-get-objectid obj) ) 2 0)
)
)
)

addfield2ent コマンドは、テキスト(textsize)の高さを設定し、座標 z を含むフィールドにエンティティティを関連付けます。
点の高さを変更すると、フィールドが更新されます。

こんにちは。

 

[Rachele__]

; pr2:小数 2
;%<\acobjpropオブジェクト(%<\_objid 1600972624>%)。座標 \f "%lu2%pr2%pt4">%

(defun c:addfield2ent (/ osmode sel n カウント))
(vl-load-com)
(setq ssget "\nseleziona entita': "))))
(/= sel nil の場合)
(プログ)
(setq の osmode)
(コマンド "_osnap" "_none")
(setq カウント 0)
(repeat (sslength の sel))
(sssname sel カウント)
(addfield2ent_motore n) の検索結果
(setqの計算(1+の計算))
)
(osmodeの設定)
)
)
)

(defun addfield2ent_motore (n / ent pt entobjectid インサートポイント広告 objmtext ambiente thgth)
(setq ent (get n) ) )
(setq pt (cdr (assoc 10 ent))))))
(setq entobject (vlax-ename->vla-object n))
(get-objectidx64のentobject)
インサートポイント(vlax-3d-point pt)
広告 (vla-get-activedocument (vlax-get-acad-object)))
)
(setq objmtext ;memorizza l'oggetto restituito da vla-addmtext)
(vla-addmtext)
(= 1 (vla-get-activespace 広告))
(vla-get-modelspace広告)
(vla-get-mspace 広告の場合) :vlax-true
(vla-get-modelspace広告)
(vla-get-paperspace広告)
)
)
インサートポイント
ツイート
(strcat "z: "%<\acobjprop オブジェクト(%<\\_objid "entobjectid">%).coordinates \\f \"%lu2%pr2%pt4\">%")
)
)
(vlax-put-property objmtext "attachmentpoint" ) は、 7) ; 出入口のgiustificazioneの底左
)

(defun get-objectidx64 (obj/util) ) は、
(setq ユーティリティ (vla-get-utility)
(vla-get-activedocument (vlax-get-acad-object))))
)
)
(=(type obj) 'ename) の場合
(setq obj (vlax-ename->vla-object obj)))
)
(= (type obj) 'vla-object' の場合)
(例)(vl-string-search "x64" (getvar "platform")) 0)
(vlax-invoke-method)
ユーティリティ
"getobjectidstring" は、
ログイン
Vlax-falseの特長
)
(rtos (vla-get-objectid obj) ) 2 0)
)
)
)

addfield2ent コマンドは、テキスト(textsize)の高さを設定し、座標 z を含むフィールドにエンティティティを関連付けます。
点の高さを変更すると、フィールドが更新されます。

こんにちは。

お問い合わせ お問い合わせ

私はそれがどのように動作するかを正確に理解できませんでした。
-.lspファイルを書いたテキストで作成しました
-アプリロードでインポート
- フォロー addfield2ent ディレクティブ コマンドバーで私に与えます: データフィールドに lisp 変数を入力しようとしました。, lisp が読み込まれているかどうかを調べずに, 私は lisp を与えました (催眠 "quotaz") と、 と addfield2ent。私はまた理解しませんでした "テキストの高さ(テキストサイズ)を設定します。 テキストボックスに入力してデータフィールドを入力すると、 lisp または単にコード内でこれを行う必要がありますか?

問題が多すぎる場合は、どうすればよいですか?


ありがとうございました。

 

[rpor66]

行 (setq sel (ssget "\nselect entity":") を置換します。
(prompt "\n select entity": "
(setq の sel (ssget))))

コマンドからテキスト高さを変更するには、テキストサイズを書く

お問い合わせ

 

[Rachele__]

お問い合わせ

すべてがうまくいくので、素晴らしいです。 文字通り 3 コマンドで全プランを引用しました。
私は、それが来て、私が変更したリスペスが、他の誰かにサービスを提供する必要があるので、添付ファイルを残します。

お問い合わせ

 

[rpor66]

(defun addfield2ent_motore (n / ent tipo pt proprieta entobjectid インサートポイント広告 objmtext ambiente thgth)
(setq ent (get n) ) )
(setq pt (cdr (assoc 10 ent))))))
(setq tipo (cdr (assoc 0 ent))))))
(コンド)
(= tipo "point") (setq proprieta "coordinates"))
(= tipo "line") (setq proprieta "startpoint"))
(= tipo "circle") (setq proprieta "center"))
(= tipo "insert") (setq proprieta "insertionpoint")))
)

(setq entobject (vlax-ename->vla-object n))
(get-objectidx64のentobject)
インサートポイント(vlax-3d-point pt)
広告 (vla-get-activedocument (vlax-get-acad-object)))
)
(setq objmtext ;memorizza l'oggetto restituito da vla-addmtext)
(vla-addmtext)
(= 1 (vla-get-activespace 広告))
(vla-get-modelspace広告)
(vla-get-mspace 広告の場合) :vlax-true
(vla-get-modelspace広告)
(vla-get-paperspace広告)
)
)
インサートポイント
ツイート
(strated "z: "%<\acobjprop オブジェクト(%<\\_objid "entobjectid ">%)" proprieta "\f \"%lu2%pr2%pt4\">%")
)
)
(vlax-put-property objmtext "attachmentpoint" ) は、 7) ; 出入口のgiustificazioneの底左
)

そのため、変更は、異なる種類のエンティティティで作業することができます。