しばらくの間困難

[Angelo2449]

皆さんこんにちは。
このコードは使えません。

 (setq pt4 (list (car pt4) (cadr pt4) 0.0)))
(setq pt5 (list (car pt5) (cadr pt5) 0.0))))
(setq ラトニル)

(予定)
(または(/ = ラト pt4) (/ = ラト pt5))
(setq lato (getpoint "\ nclicca lo spigoloスーペリア sinistro o dell'apertura per posizione Gelosia"))

(pr "n")
(prc "pt4 > > > > > > > >")
(pt.4)
(pr "n")
(c "pt5" > > > > > > >")
(pt. 5)
(pr "n")
(prc "lato > > > > > > >"))
(ラト・パトリック)
(pr "n")

; しばらくの間

pt4 または pt5 は実際には横に等しいが、プログラムは続行しません。

[ブリープ]
PT5 > > > > 126.007 167.462 0.0)
(B)

助けを借りて早めにありがとう。

 

[Cristallo]

トラブルや

または式を評価し、t(true)を返す ふりがな 条件が尊重されます。
10 の中央に 1 つだけが尊重されている場合は、true を返します。
あなたへ サイド 2つの異なる値(pt4とpt5)で、それらのいずれかが常に異なるので、または常に真であり、したがって、Wilwは無限に続いています。

 

[Angelo2449]

さて、その条件は、PT4 や pt5 に等しい場合は、その確認に何をすべきか、条件が満たされ、プログラムが続行することができますか?
お問い合わせ

 

[Cristallo]

私はそれを別のように置かなければならないことに従って、nilの側面およびそれから条件を置いて下さい
(=サイドニル)
(setq 側 (getpoint "\jealousy position で開口部の左上または右下))))
)

そのため、常にポイント入力を待機し、任意の入力を防ぐことができます。