2013-06-08 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch · 发表于 2013-6-8 15:21:21

吴琦(59246664)于2013-06-08 15-21-21：
这样就行了

炫翔 · 发表于 2013-6-8 15:21:58

炫翔(2363673534)于2013-06-08 15-21-58：
(or (= KK "Yes") (= KK "")) 这样是说:输入Y或者没有输入

炫翔 · 发表于 2013-6-8 15:22:18

炫翔(2363673534)于2013-06-08 15-22-18：
想要不是空的，就要赋值

CCarch · 发表于 2013-6-8 15:22:35

吴琦(59246664)于2013-06-08 15-22-35：
(defun C:XX (/ ss KK)
(Setvar "Cmdecho" 0)
(setq ss (ssget "X" '((8 . "ZZ-*"))))
(SETQ KK (GETSTRING "是否确定[是(Y)/否(N)"))
  (if (= KK "Y")
  (command "erase" ss "")
  (exit)
)
(princ "\n-----建筑底图已删，请清理图纸后再贴新建筑底图------")
(Setvar "Cmdecho" 1)
(PRINC)
)

CCarch · 发表于 2013-6-8 15:22:50

吴琦(59246664)于2013-06-08 15-22-50：
你给的这种方式也行，但Y区别大小写

非ing · 发表于 2013-6-8 15:23:07

非(1832727311)于2013-06-08 15-23-07：
学编程肯定猜不到一个星期吧

炫翔 · 发表于 2013-6-8 15:23:15

炫翔(2363673534)于2013-06-08 15-23-15：
(initget 1 "Yes No")
(setq KK (getkword "是否确定[是(Y)/否(N)]："))
(IF(= KK NIL)(SETQ KK "Y"))

CCarch · 发表于 2013-6-8 15:24:38

吴琦(59246664)于2013-06-08 15-24-38：
非，我学了三年了[face97.gif]

非ing · 发表于 2013-6-8 15:24:56

非(1832727311)于2013-06-08 15-24-56：
lisp不到一个星期

非ing · 发表于 2013-6-8 15:25:00

非(1832727311)于2013-06-08 15-25-00：
[face13.gif]

CCarch · 发表于 2013-6-8 15:25:04

吴琦(59246664)于2013-06-08 15-25-04：
三年。。。。

非ing · 发表于 2013-6-8 15:25:11

非(1832727311)于2013-06-08 15-25-11：
[face27.gif]

非ing · 发表于 2013-6-8 15:25:14

非(1832727311)于2013-06-08 15-25-14：
好吧

CCarch · 发表于 2013-6-8 15:25:17

吴琦(59246664)于2013-06-08 15-25-17：
我是最笨的学生，哈哈

CCarch · 发表于 2013-6-8 15:25:39

吴琦(59246664)于2013-06-08 15-25-39：
这个程序本来是没有一点问题的，不知道为什么加载了一个板王就不行了

账号		自动登录	找回密码
密码			立即注册