選択したエリアの合計

[brizzo1982]

buongiorno a tutti. :redface:
sto cercando una funzione lisp che mi permetta di calcolare la somma delle aree degli oggetti (polilinee, cerchi, regioni, ellissi, ecc..) che seleziono.

esiste qualcosa in giro???..ho provato a cercare ma invano..

 

[PlannerRoad]

c'è l'opzione aggiungi nel comando area:

comando: area
specificare primo angolo o [Oggetto/aggiungi area/sottrai area] <oggetto>: a

 

[brizzo1982]

effettivamente non c'avevo pensato...!
grazie mille!

..efficiente come sempre!

 

[tir]

sto cercando una funzione lisp

(defun c:ca ()
(setvar "cmdecho" 0)
(setq gr(ssget))
(setq area 0 perimetro 0)
(setq i 0)
(repeat (sslength gr)
(setq e0(ssname gr i))
(command "_area" "_o" e0)
(setq area(+ area (getvar "area")))
(setq perimetro(+ perimetro (getvar "perimeter")))
(setq i(1+ i))
)
(princ "\n area totale: ")(princ area)(princ " mq")
(princ "\n perimetro totale: ")(princ perimetro)
(princ)
)
(princ "\n <copyright: ing. claudio granuzzo> digitare ca per lanciare il
programma!")

 

[brizzo1982]

(defun c:ca ()
(setvar "cmdecho" 0)
(setq gr(ssget))
(setq area 0 perimetro 0)
(setq i 0)
(repeat (sslength gr)
(setq e0(ssname gr i))
(command "_area" "_o" e0)
(setq area(+ area (getvar "area")))
(setq perimetro(+ perimetro (getvar "perimeter")))
(setq i(1+ i))
)
(princ "\n area totale: ")(princ area)(princ " mq")
(princ "\n perimetro totale: ")(princ perimetro)
(princ)
)
(princ "\n <copyright: ing. claudio granuzzo> digitare ca per lanciare il
programma!")

ecco!!! questa è proprio la funzione che cercavo!!
grazie mille! :finger:

 

[liber]

こんにちは、私は非常に便利なing lispを見つけました。 クラウディオ・グラヌッツォ
しかし、私は広大な領域と実際には測定しなければならない問題を持っています
選択の下の行で、またはおそらく選択を追加する
私は自分自身にこの結果を与える

区域の計算で無視されるpolylineaの幅。
総面積: 3.73755+007 広さ総周囲: 95479.8
コマンド: エリア
最初の角度を指定するか、 [Oggetto/Aggiungi area/soTtrai area] <oggetto>: : :

代わりに、私は結果を持っているしたいと思います "下の行の正常, 上記の総面積ので、, 私は混乱をもたらす

オブジェクトを選択します:</oggetto>面積 = 37375472.5003, 周囲 = 95479.7725区域の計算で無視されるpolylineaの幅。

お問い合わせ

 

[Cristallo]

代わりに、私は結果を持っているしたいと思います "下の行の正常, 上記の総面積ので、, 私は混乱をもたらす

(defunc c:ca)
(setvar「cmdecho」) 0)
(setq gr(ssget)) ) )
(setq 区域 0 の周囲 0)
(Sectq i 0)
(repeat (sslength gr)) (repeat (repeat) (sslength gr))) (repeat (repeat) (repeat (sslength gr)))) (repeat (repeat) (repeat(sslength gr)))) (repeat(repeat) (repeat(sssslength gr))))) (repeat(repeat) (repeat(repeat) (repeat(slength gr))))) (repeat(repeat(repeat(repeat)))))) (repeat(repeat(repeat(repeat))))))))))) (repeat(repeat(repeat(s(s(s(s(repeat()))))))))))))))))))))))))))))) (repeat(repeat(repeat(repeat(s(s(s(s
(setq e0(sname gr i))) )
(コマンド "_area" "_o" e0)
(seqエリア(+エリア)))
(setq区域(rtos区域2 2)))
(setq周囲(+周囲)))
(seq i(1+) (i))
)
(princ "\n 総面積: ")(princ" sqm")
(princ "\n 総周囲: ")(princ perimeter)
(プライアンス)
)
(プライアンス) <copyright: claudio="" granuzzo="" ing.=""> タイプ ca を起動する
プログラム!</copyright:>

私はちょうどあなたが rtos 関数を持っているラインを追加, 決定書形式の文字列として表現を強制します.
ご挨拶

 

[liber]

(defunc c:ca)
(setvar「cmdecho」) 0)
(setq gr(ssget)) ) )
(setq 区域 0 の周囲 0)
(Sectq i 0)
(repeat (sslength gr)) (repeat (repeat) (sslength gr))) (repeat (repeat) (repeat (sslength gr)))) (repeat (repeat) (repeat(sslength gr)))) (repeat(repeat) (repeat(sssslength gr))))) (repeat(repeat) (repeat(repeat) (repeat(slength gr))))) (repeat(repeat(repeat(repeat)))))) (repeat(repeat(repeat(repeat))))))))))) (repeat(repeat(repeat(s(s(s(s(repeat()))))))))))))))))))))))))))))) (repeat(repeat(repeat(repeat(s(s(s(s
(setq e0(sname gr i))) )
(コマンド "_area" "_o" e0)
(seqエリア(+エリア)))
(setq区域(rtos区域2 2)))
(setq周囲(+周囲)))
(seq i(1+) (i))
)
(princ "\n 総面積: ")(princ" sqm")
(princ "\n 総周囲: ")(princ perimeter)
(プライアンス)
)
(プライアンス) <copyright: claudio="" granuzzo="" ing.=""> タイプ ca を起動する
プログラム!</copyright:>

私はちょうどあなたが rtos 関数を持っているラインを追加, 決定書形式の文字列として表現を強制します.
ご挨拶

多くのおかげでエンジニアgranuzzo

 

[Cristallo]

多くのおかげでエンジニアgranuzzo

解放、私は大きくない。 しかし、リストが彼のように、私は署名を変更しなかった

 

[Betoniera]

私は私が選択するオブジェクト(polilines、円、地域、楕円など)の領域の合計を計算することを可能にするリスペック関数を探しています。お問い合わせ
私はa3.lspプログラムを送信します, 領域を計算することに加えて、:
- 測定単位を変えることができます
- 選択された領域の可変的な傾斜でretinoを描画できます。 同じ領域で2回クリックすると、2つのレティーニが異なる傾斜で表示されます。
- テキストとレティーノの高さは異なる場合があります。
a3.lspをアップロードし、a3でプログラムを開始
ツイート

 

[liber]

解放、私は大きくない。 しかし、リストが彼のように、私は署名を変更しなかった

bhè は lisp を変更するために、まったく高速な言語を知っている必要がありますが、私は小さなコマンドで変更しました タクシー お問い合わせ ログイン コマンドが重複するので わたしの神様。 私はキーボードのあまりにも多くの使用を作るために必要です

 

[liber]

私は私が選択するオブジェクト(polilines、円、地域、楕円など)の領域の合計を計算することを可能にするリスペック関数を探しています。お問い合わせ
私はa3.lspプログラムを送信します, 領域を計算することに加えて、:
- 測定単位を変えることができます
- 選択された領域の可変的な傾斜でretinoを描画できます。 同じ領域で2回クリックすると、2つのレティーニが異なる傾斜で表示されます。
- テキストとレティーノの高さは異なる場合があります。
a3.lspをアップロードし、a3でプログラムを開始
ツイートView attachment 67738

おもしろいです。

 

[giampaolo adagio1]

解放、私は大きくない。 しかし、リストが彼のように、私は署名を変更しなかった

おはようございます。おはようございますが、お詫びエリアに不規則なエリアを分割し、作成したエリアの分岐面積の計算でテーブルを作ることができますか?

 

[GP.]

...私は、私が偽りの領域に不規則な領域を分割し、作成した領域の組み込まれた領域の計算を持つテーブルを作成することを可能にするリスペックはありますか?

多くの表面を発揮する必要がありますか?

 

[giampaolo adagio1]

多くの表面を発揮する必要がありますか?

いいえ。私はストランドされたセクションに容積計算の掘削領域を実証する必要があります

 

[GP.]

掘削エリアを証明する必要があります。 お問い合わせ

ポリラインは閉鎖していますか? ガウスで得られる表は大丈夫ですか?

 

[giampaolo adagio1]

ポリラインは閉鎖していますか? ガウスで得られる表は大丈夫ですか?

ログイン

 

[giampaolo adagio1]

私は日経を持っています。 残念ながら、道路設計の場合には、道路設計ではなく、ダムの違いでのみ小学校の面積を計算するオプション。 私はおそらくそれを行う方法を理解していませんでした。

 

[giampaolo adagio1]

ログイン

si fa?

 

[GP.]

私はあなたを助けることができません, 私は唯一のツールからデータをダウンロードするためにそれを使用, その後、私は、オートカドで「ギラ」トポグラフィプログラムを使用します.

"トップ" 表面には、リスペスをダウンロードできます お問い合わせしかし、あなたは記録する必要があります。

誰かがこのフォーラムにそれを添付するように要求した場合に答えを事前に: いいえ