如何返回重新输入

jackechang

第二个问题呢?

我想等我把程序做完整后再传上来叫你们精缩好吗.

caoyin

(command "_.BHATCH" "_S" "" "")

jackechang

谢谢caoyin大哥的指教,还有一个问题,我在程序中设置了图层,为什么每次运行命令时在命令行中都会出现"**图层已存在"的提示,好烦呀,请问要加什么语句可以让它不出现呢.

caoyin

如果

(tblobjname "layer" "层名")

返回 非nil 的的值说明图层存在

jackechang

caoyin大哥，按你的语句加入后，还是会在命令行中出现“绘图图层已存在”的提示呀。还有别的什么办法吗

caoyin

(if (not (tblobjname "layer" "层名"))

  ....

)

jackechang

不懂，也许是我没表达清楚吧。我只是想让AUTOLISP命令执行后不要在命令行出现我在程序中设定的“绘图”图层的“绘图图层已存在”信息。CAOYIN大哥可以给出详细的语句吗？谢谢

caoyin

(if (not (tblobjname "layer" "图层1"));;判断“图层1”是否存在。如果存在返回nil，反正返回T。返回T则执行红色代码
  (entmake '((0 . "LAYER")
             (100 . "AcDbSymbolTableRecord")
             (100 . "AcDbLayerTableRecord")
             (2 . "图层1")
             (70 . 0)
            )
  )
)

;;如还不懂，请贴出你的代码

jackechang

caoyin大哥,帮忙简化下列程序段好吗?

(if (= ty "y")
    (progn
     (while (not (member d '(20 22.4 25 28 31.5 35.5 40 45 50 56 63 71 80 90 100 112 125)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)

(if (= ty "z")
    (progn
     (while (not (member d '(50 56 63 71 75 80 90 100 112 125 132 140 150 160 180 200 224 250 280 315 355 400 500 630)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)

(if (= ty "a")
    (progn
     (while (not (member d '(75 80 85 90 95 100 106 112 118 125 132 140 150 160 180 200 224 250 280 315 355 400 450 500                               560 630 710 800)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)
 

(if (= ty "b")
    (progn
     (while (not (member d '(125 132 140 150 160 170 180 200 224 250 280 315 355 400 450 500 560 600 630 710 750 800 900                               1000 1120)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)

(if (= ty "c")
    (progn
     (while (not (member d '(200 212 224 236 250 265 280 300 315 335 355 400 450 500 560 600 630 710 750 800 900 1000 1120                              1250 1400 1600 2000)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)

(if (= ty "d")
    (progn
     (while (not (member d '(335 355 375 400 425 450 475 500 560 600 630 710 750 800 900 1000 1060 1120 1250 1400 1500 1600                              1800 2000)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)

 
(if (= ty "e")
    (progn
     (while (not (member d '(500 530 560 600 630 670 710 750 800 900 1000 1120 1250 1400 1500 1600 1800 2000 2240 2500)))
             (progn
              (alert "\n 输入的带轮分度园直径非
                      \n 标准  请重新输入标准值")
              (setq d (getreal "\n 请输入带轮分度圆直径d:"))            
             )
      )
    )
)