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

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

炫翔(2363673534)于2013-06-08 15-16-34：
可以了？

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

吴琦(59246664)于2013-06-08 15-17-04：
(if (or (= KK "Yes") (= KK ""))
改成这样就行了。。。。。但是为什么呢[face35.gif]

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

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

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

炫翔(2363673534)于2013-06-08 15-18-08：
试试

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

炫翔(2363673534)于2013-06-08 15-18-12：
没调试的

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

炫翔(2363673534)于2013-06-08 15-18-30：
我在给一女孩装CAD

CCarch · 发表于 2013-6-8 15:18:47

吴琦(59246664)于2013-06-08 15-18-47：
谢谢

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

炫翔(2363673534)于2013-06-08 15-19-21：
(= KK "Yes") 改成 (= KK "Y")

CCarch · 发表于 2013-6-8 15:19:55

吴琦(59246664)于2013-06-08 15-19-55：
试过了，不行

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

炫翔(2363673534)于2013-06-08 15-20-06：
[face0.gif]

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

炫翔(2363673534)于2013-06-08 15-20-11：
提示什么

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

非(1832727311)于2013-06-08 15-20-11：
把你的源码发上来

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

炫翔(2363673534)于2013-06-08 15-20-51：
是不是选择集不存在

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

吴琦(59246664)于2013-06-08 15-21-05：
存在的

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

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

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