[LISP程序]：请教一个IF语句问题

lyc3029 · 发表于 2005-9-2 13:45:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(if (= nu1 1) (setq c a) ((command "EXPLODE" a "") (setq c (ssget "p"))) )
这样好像不能实现
我的原意是当NU1=1 执行 (setq c a)
当NU不=1时时执行
(command "EXPLODE" a "")
(setq c (ssget "p"))
好像行不通,请大侠指点一下,感激不尽!

蓝云 · 发表于 2005-9-2 14:00:41

(if (= nu1 1)
(setq c a)
(progn
(command "EXPLODE" a "")
(setq c (ssget "p"))
)
)

lyc3029 · 发表于 2005-9-2 14:17:12

感谢,
(princ "\noa,测量实体面积！")
(defun c:oa (/ ss1 ss a n d x m b va nu1 c e f g nu)
(princ "\n请选择你要测量的实体!")
(setvar "cmdecho" 0)
(setq a (ssget))
(setq n (sslength a))
(setq e (ssname a 0))
(setq f (entget e))(setq g (assoc 0 f))
(setq va1 (cdr g))
(setq nu1 0)
(if (= "LINE" va1 ) (setq nu1 (+ nu1 1)))
(if (= nu1 1) (setq c a) (progn (command "EXPLODE" a "") (setq c (ssget "p"))) )
(setq nu 0)
(setq x (ssname c 0))
(setq m (entget x))(setq b (assoc 0 m))
(setq va (cdr b))
(if (= "LINE" va ) (setq nu (+ nu 1)))
(if (= nu 0) (command "pedit" c "j" "all" "" "") (command "pedit" c "y" "j" "all" "" ""))
(setq ss1 (ssget "l"))
(setq ss (ssname ss1 0))
(command "area" "o" ss)
(setq d (getvar "area"))
(princ "\n该实体的面积:")
(princ d)
(princ)
)
我编得这个程序,为什么运用时,会出现"OA 未知命令“OA”。按 F1 查看帮助。' 结果倒没什么问题!
不懂

蓝云 · 发表于 2005-9-2 15:14:15

(command "EXPLODE" a "") 改为 (command "EXPLODE" a)

lyc3029 · 发表于 2005-9-2 17:09:45

呵呵,感谢楼上

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：请教一个IF语句问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子