高手近来帮下忙

wxd563844

在lisp里怎样编写这样一个提示怎么编写啊,我是个新手```各位大歌帮下忙!!!!\

(defun c:qq ()

(command "putp" "c")

下面要输入地物代码..我要他显示在屏幕上供选择

比如:1是1411101

2是1211101

liu_kunlun

？？？

nuist

(defun C:qq (/ ss rname)
    (setq rname (strcase (getstring "\n(1)简单房(2)在建房(3)破坏房(4)棚房<1>: ")))
    (if (or (= rname "") (= rname "1"))               ;如果未输入，则默认1
      (setq rname "141200")
    )
    (if (= rname "2")
      (setq rname "141300")
    )
    (if (= rname "3")
      (setq rname "141400")
    )
    (if (= rname "4")
      (setq rname "141500")
    )
    (princ "\n请选择要加属性的多边形或线段: ")
    (if (setq ss (ssget '((0 . "LINE,*POLYLINE,ARC"))))
      (command "putp" "c" rname ss "")
    )
  (princ)
)

jay86chan

putp是什么命令啊？

faradayzq

nuist发表于2009-11-22 12:08:00(defun C:qq (/ ss rname)    (setq rname (strcase (getstring \"\n(1)简单房(2)在建房(3)破坏房(4)棚房<1>: \")))    (if (or (= rname \"\") (= rname

那么多if可用cond代替加快运行速度