sistemazione に 3d

[Sergy70]

全てにこんにちは。2次元レリーフを表すデザインがあります。
リリーフ中のポイントは、クロスとポイントコードとクォータを含む属性によって表されます。
属性からデータを回復することで、すべてのポイントを「z」軸に移動する必要があります。
私は「エンターゲ」を試してみましたが、私は、高度ポイントに私をもたらすリスペス内で適用できるようにするためのクォータを見つけません。

あなたは私に表示を与えることができますか?

お問い合わせ

 

[rpor66]

ritorna valore タグ - parametri: nome entità, タグ
(defun fntestotag(n タグ / Seatt tipo e ループ valore))
(setq e (entget n)) )
(setq シート (cdr (assoc 66 e)))))
(setq の tipo (cdr (assoc 0 e))))))
(と(=シート1)(=先斗"インサート")))
(プログ)
(setq n (entnext n) ) )
(setq e (entget n)) )
(setq ループ nil)
(/= ループ "seqend")
(setq ntag (cdr (assoc 2 e)))))))
(setq txt (cdr (assoc 1 e))))))
(=タグntag)
(setq valore txt)
)
(setq n (entnext n) ) )
(setq e (entget n)) )
(setq ループ (cdr (assoc 0 e)))
)
)
)
ヴァレオ
)

リストア・デグリ・アトリビューティ・バイシビリ (タグ . valore) - parametri: nome entità
(defun fnlistatag(n / Seatt tipo eループリストア obblocco v ntag txt))
(setq e (entget n)) )
(setq シート (cdr (assoc 66 e)))))
(setq の tipo (cdr (assoc 0 e))))))
(と(=シート1)(=先斗"インサート")))
(プログ)
(setq n (entnext n) ) )
(setq e (entget n)) )
(setq ループ nil)
(/= ループ "seqend")
(setq ntag (cdr (assoc 2 e)))))))
(setq txt (cdr (assoc 1 e))))))
(setq obblocco (vlax-ename->vla-object n))))
(setq v (vlax-get-property obblocco 'visible))))
(例:vlax-true)
(setq lista (リストに追加))
)
(setq n (entnext n) ) )
(setq e (entget n)) )
(setq ループ (cdr (assoc 0 e)))
)
)
)
リストア
)

例:

(setq quotaz (atof (fntestotag nametag)))))) は、変換された属性の値を数値値に取得します。

または

(setq リスト (fnlistatag 名前))) ブロックのすべての属性のリストを取得します。
type (("txt" ) . "tie-in") ("quotaz" . "10.52") ("nro" . "44")
(setq quotaz (tof (nth 1 list))))) は 2 番目のサブリストの値を取得します。
quota の値が comma を decimal として使用している場合、 デフォルトでは、

ご挨拶