補強されたコンクリートの装甲支柱を引くためにlisp

[gigio_2020]

おはようございます。
zwcad または autocad の c.a. のチョナーのための装甲針を引くために lisp を準備しています。
実際には、ユーザーは2つのポイントを尋ねられ、lispは2つのポイントのxの違いに等しい長さのpline(添付ファイルで緑色)を返し、ハーフまたは(y1+y2)/2に置かれ、エクステンションを表すクォータとバーのブランドを表すライティング。 ポイントから抽出した座標からコマンド(pline等)を実行すると問題があります。 常にオブジェクトを正しく配置せず、常に水平にする必要があります。 変数の定義が間違っていた場合(実物が文字列やその逆と見なされた場合)です。
dwg ファイルと lisp を添付します。 誰かを助けることができますか?
お問い合わせ

 

[Cristallo]

私はリストをチェックしていませんが、私の習慣のために、私は操作の始まりに戻ります(すべての計算と機能のために)これらの指示

(setq 古いosmode)
("smode" 0 をセット)

そして、あなたが他のすべての操作を終了するとき(死者を閉じる前に)

(「モード」の oldosmode をセット)

これにより、ポイントをヘッドライト機能に切り替える前に、スナップを削除できます。アクティブスナップを頻繁に使用している場合、計算を介して機能に渡したポイントを歪めます。
すべてのリストの最初は、スナップのセットアップを保存します。
その後、スナップをゼロにします(それらをオフにするために同等)
あなたのすべてのことを...
最後の文字列は、無効化前に持っていたスナップを復元します。

これらの追加でそれがより良いかどうかを確認する

 

[Cristallo]

スピードを上げます。 . . .

 

[Betoniera]

c.a のための鉄を引くと引用します。.a は lisp でできる最も有用なプログラムの 1 つです。
被写体に関する議論を重ね、プログラムを準備しました。
g.p. アイロンに応じてサイジングを自動的に更新するコードも書かれています。
gigio_2020のリストは、プログラミングを続行しないが、行を描画する制限があります。
実際には、ポリラインのような針を描き、個々の特性を抽出し、n、直径、合計の長さを書き出す必要があります。
お問い合わせ