[求助]：选择对象时如何设置参数

56561615165323

如果在等待输入时没问题，等待选择就不会了，请教高手
chamfer命令是这样的，它是如何做的？
(“修剪”模式) 当前倒角距离 1 = 0.0000，距离 2 = 0.0000
选择第一条直线或 [放弃(U)/多段线(P)/距离(D)/角度(A)/修剪(T)/方式(E)/多个(M)]:

LADESIGNER

看看INITGET函数就明白了.

ubzbh

请参考：
  (initget "U P D A T E M")
  (setq  zype  (getkword
               "\n选择第一条直线或 [放弃(U)/多段线(P)/距离(D)/角度(A)/修剪(T)/方式(E)/多个(M)]: "
             )
  )
  (if zype
    (cond
      ((= zype "U")
       (princ "放弃")
      )
      ((= zype "P")
       (princ "多段线")
      )
      ((= zype "D")
       (princ "距离")
      )
      ((= zype "A")
       (princ "角度")
      )
      ((= zype "T")
       (princ "修剪")
      )
      ((= zype "E")
       (princ "方式")
      )
      ((= zype "M")
       (princ "多个")
      )
    )
  )

56561615165323

楼上2位可能没注意我的这句话：
如果在等待输入时没问题，等待选择就不会了

雨箭风刀

initget + entsel
或 + getpoint

56561615165323

initget + getpoint 当然可以，这就是我说的“如果在等待输入时没问题”，可是initget + entsel没那么简单吧，要不您也试试？

本人现在就是用initget + getpoint 做的，感觉不爽
[PHP]
  (while temp
    (prompt (strcat "\nWidth = "
                    (rtos rail_rw_cyn)
                    " , Scale = "
                    (rtos dwg_scl_cyn)
            )
    )
    (initget "Width Scale")
    (setq xx (getpoint "\nWidth/ Scale <Select objects> "))
    (cond
      ((= xx "Width")
       (setq
         xx (getreal (strcat "\nWidth = <" (rtos rail_rw_cyn) ">:"))
       )
       (if xx
         (setq rail_rw_cyn xx)
       )
      )
      ((= xx "Scale")
       (setq
         xx (getreal (strcat "\nScale = <" (rtos dwg_scl_cyn) ">:"))
       )
       (if xx
         (setq dwg_scl_cyn xx)
       )
      )
      (T
       (setq sset (ssget)
             temp nil
       )
      )
    )
  )
[/PHP]

jbgs

有点难度，高手们上

雨箭风刀

最初由 56561615165323 发布
[B]initget + getpoint 当然可以，这就是我说的“如果在等待输入时没问题”，可是initget + entsel没那么简单吧，要不您也试试？

本人现在就是用initget + getpoint 做的，感觉不爽
[PHP]
  (while temp
    (pro... [/B]

1. 
   
2. (initget "A B")
   
3. (entsel "\n 输入选项:[谁说entsel(A)/不可能的???(B)/选择实体:]")
   

复制代码