使用选项创建文本

clint0577 · 发表于 2022-7-6 07:12:09

我正在做一个例程，这是我第一次尝试使用COND和IF，我遇到了一个如何结束例程的问题。到最后，我有

(IF (EQ YR "N.F.H.A.")
(COMMAND "MTEXT" "_non" pt1 "J" "MC" "S" "STANDARD" "H" TH "W" TW L1 L2 "")

我需要它跳过
如果该语句为true，则继续。我确信这是一个简单的解决方法，我只是没有看到它。提前谢谢。

这是一切

copy

(DEFUN c:LF ()
(SETQ CL (GETVAR "CLAYER"))
(command "layer" "M" "FLOOD" "C" "70" "" "L" "BORDER2" "" "S" "FLOOD" "")
(command ".osnap" "NONE")
(setq DS (getvar 'dimscale))
(SETQ TW (* DS 1.3))
(SETQ TH (* DS 0.07))
(setq pt1 (getpoint "\nPick Insertion Point: "))
(SETQ L1 (STRCAT "APPROX. LOCATION"))
(if (eq (setq ZN (getstring  T "\nFlood Zone A, AE or X?: <X> ")) "")
(setq zn "X"))
(COND ((EQ ZN "A")  (setq YR "100"))
     ((EQ ZN "AE")  (SETQ yr "100"))
(t (IF (EQ (setq YR (getstring  T "\n500 or NFHA? <NFHA> : ")) "")
(SETQ YR "N.F.H.A."))))
(COND ((EQ YR "100")  (SETQ L2 (STRCAT "ZONE " ZN " " YR "YR")))
     ((EQ YR "500")  (SETQ L2 (STRCAT "ZONE " ZN " " YR "YR")))
(T (SETQ L2 (STRCAT "ZONE " ZN " " YR ))))
;===============================PAST THIS POINT IS WHERE I'M HAVING THE ISSUE=======================================================
(IF (EQ YR "N.F.H.A.")
(COMMAND "MTEXT" "_non" pt1 "J" "MC" "S" "STANDARD" "H" TH "W" TW L1 L2 "")
(setq L3 (getstring t "\nType Flood Panel Number: "))
(setq FD (getstring t "\nType Flood Panel Date "MM/DD/YY": "  ))
(SETQ L4 (STRCAT "DATE " FD))
(COMMAND "MTEXT" "_non" pt1 "J" "MC" "S" "STANDARD" "H" TH "W" TW L1 L2 L3 L4 ""))
(COMMAND "CLAYER" CL)
)