ポリリナの認識

[Angelo2449]

皆さんこんにちは。
私はポリリナの選択をチェックしたいと私はこれを書いた:

 (= ed1 nil )
(setq ed1 (entsel "\nseleziona la polilinea エステルナ : ")))
;;;

(setq ed11 (entget (entlast))))))
(setq ed111 (cdr (assoc 0 ed11))))))

(princ "\n")
(e-mail:[email protected])
(プライン ed111)
(princ "\n")

(/= ed111 "lwpolyline") (/= ed111 "polyline"))
(progn)
(「ノン・ハイ・セルシオナ・ポリリナ!」)
(vl-exit-with-error "uscita dal プログラマー")
;;progn
;;if

誤りのないコードは、間違った選択を認識するが、パスをしない」
これは結果です。
外部のポリラインを選んで下さい:
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
お問い合わせ

 

[Cristallo]

最初と11は、entlastでそれを取る必要はありませんが、その名前によって(entlastは最終選択ではなく、作成された最後のエンティティティです)。
あなたが行うように、常に作成されたエンティティティをピックアップ(予見)はポリラインです。

第二に教育やlwpline - ビーズは、値がlwplineであってもビーズとは異なるため、常に真を返します。
またはaと管理を交換して正しいようになります。 実際には、値が異なる場合にのみ条件がtrueを返す 小便 小便 lwpline から pline まで 代わりに、値が lwpline または pline の状態であり、何もオンにしないので、alrt をアクティブにしません。

(setq ed1 nil ed11 nil ed111 nil) の
(= ed1 nil )
(setq ed1 (entsel "\nseleziona la polilinea エステルナ : ")))
;;;

(setq ed11 (entget (car ed1))))))
(setq ed111 (cdr (assoc 0 ed11))))))

(princ "\n")
(e-mail:[email protected])
(プライン ed111)
(princ "\n")

(with (/= ed111 "lwpolyline") (/= ed111 "polyline"))
(progn)
(「ノン・ハイ・セルシオナ・ポリリナ!」)
(vl-exit-with-error "uscita dal プログラマー")
;;progn
;;if

 

[Angelo2449]

パーフェクト!
ありがとうございます。

 

[Angelo2449]

クリスタル、私はまだ質問を持っています、
ポリリニア:

 (コマンド "_pline" spigextsinup spigextdesup spigextdesdown spigextsindown spigextsinup ")
(setq pl1 (内部))

この他のコードで後で:

 (if) (tof heightambientedes) (tof heightambientesin))
(プログ)
(コマンド "_extend" pl1 "" )
(プライアンス)
;;;
;;;

> pl1 < までwallinsopra (provided line) を拡張したいのですが、この原因のエラーは、私を啓発し、ありがとうございます。
エンジェル。

 

[Cristallo]

よく覚えていると、継承コマンドで拡張できないので、通過できないビデオピックを求めるからです。
幾何学的に交差点を見つける必要があります(私は、lisp関数が交差していると思います)、そして見つかったポイントにポイントします。

 

[Angelo2449]

そのため、まず暫定行を > pl1 < に描画し、インターズコマンドを介した交差点を見つけ、暫定行をキャンセルし、見つかった点まで新しい行を追跡する必要があります。
ここで良いのですが、私はまた、> pl1 <と比較してラインをトランク付けする必要があります、私はコマンド「_breack」のフィクションを願っています!
お問い合わせ

 

[Cristallo]

インター関数の構文を見る
行の必要はありません。, それを定義するポイントだけ. また、継続交差点(flag onseg)を検索することもできます。 助けを借りてチェックしてください。