[求助]：两个选择:输入数值或选物体

LADESIGNER

以下该如何实现

command: 选择要加粗的曲线(PLINE,LINE,ARC,CIRCLE,PLINE)
command:线宽/参照已加粗曲线
                输入一个数值或选择物体

目前我只能这样:
   (INITGET 4 "R")
(PROMPT"选择要加粗的曲线:")
((SETQ EN(SSGET"\N选择要加粗的曲线:"))
(IF EN(SETQ WID(GETREAL"\N线宽/参照粗线(R)")))
     (COND ......

ll_j

ssget不可同时使用关键字，所以你的思路是对的，程序应该这样：

2. (PROMPT"选择要加粗的曲线:")
   
3. (SETQ EN(SSGET"\N选择要加粗的曲线:")
   
4. (if en
   
5.   (progn
   
6.     (INITGET 1 "R")
   
7.     (setq wid (getdist "\n输入线宽或 [选择参照粗线(R)]: ")
   
8.     ...

(PROMPT"选择要加粗的曲线:")<br /> (SETQ EN(SSGET"\N选择要加粗的曲线:")<br /> (if en<br />   (progn<br />     (INITGET 1 "R") <br />     (setq wid (getdist "\n输入线宽或 [选择参照粗线(R)]: ")<br />     ...

LADESIGNER

谢谢,看来只能这样了.

aeo

用grread可以做出一个很好的来.
动动脑筋:)

xyp1964

[php]
(defun c:test (/)
  ;;程序内容
  ;;……
  (setq        txt5 (@ukword 1
                      "A B"
                      "\n请选择处理方式：A-线宽/B-参照已加粗曲线"
                      txt5
             )
  )
  (cond
    ((= txt5 "A")(sub1)
     (= txt5 "B")(sub2)
     )
    )
  ;;程序内容
  ;;……
)

(defun @ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)
(defun sub1()
  ;;……
  ;;……
  )
(defun sub2()
  ;;……
  ;;……
  )
[/php]