[求助]：LISP中如何判断选择的对象

xiahwan

请教：
LISP中如果判断选择的对象是圆则执行COMMAND1
反之则执行COMMAND2

zxq0220

(setq s1 (entsel "\nSelect a Object :"))
(setq ent (entget (car s1)))
(setq snm (cdr (assoc 0 ent)))
(if (= snm "CIRCLE")
(command1)
(command2)
)

xiahwan

谢谢！
我想在下列代码中增加一个判断：
如果选取的对象是圆  或椭圆就直接将选取的对象颜色更改为红色不运行PEDIT命令
反之则执行PEDIT命令 再将封闭后的图形颜色更改为红色 附代码：
(defun c:WLG(/ lay os pl_sel )
   (setvar "CMDECHO" 0)
   (setq lay (getvar "clayer"))
   (setq os (getvar "OSMODE"))
    (setvar "OSMODE" 0)
   (command "color" "bylayer")
   (command "layer" "m" "OUT" "c" "r" "out" "")
(setvar "OSMODE" 1)
  (command "peditaccept" 1)
   (setq pl_sel (ssget))
  (command "pedit" "m" pl_sel "" "j" "10" "c" "")
(command"change" (entlast) "" "p" "c" 1 ""))
(princ "零件外轮廓拾取程序 ")