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

CCarch · 发表于 2013-6-8 15:06:26

吴琦(59246664)于2013-06-08 15-06-26：
就直接退出了

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

炫翔(2363673534)于2013-06-08 15-06-29：
看看 X X 后面是啥

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

吴琦(59246664)于2013-06-08 15-06-55：
X X 代表啥，没懂

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

炫翔(2363673534)于2013-06-08 15-07-18：
代表好查看

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

炫翔(2363673534)于2013-06-08 15-07-30：
做个记号

CCarch · 发表于 2013-6-8 15:08:07

吴琦(59246664)于2013-06-08 15-08-07：
[qqimg]{92ECC6E3-EAF8-33E7-0FB2-C74544FC3AB0}.jpg[/qqimg]

CCarch · 发表于 2013-6-8 15:08:07

吴琦(59246664)于2013-06-08 15-08-07：
是这样么

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

炫翔(2363673534)于2013-06-08 15-08-16：
对

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

炫翔(2363673534)于2013-06-08 15-08-52：
我现在在一妹妹的电脑上，没法给你调试

CCarch · 发表于 2013-6-8 15:08:57

吴琦(59246664)于2013-06-08 15-08-57：
命令: jzqs
是否确定[是(Y)/否(N)]：y (nil nil )
命令:

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

炫翔(2363673534)于2013-06-08 15-09-08：
你把代码贴到这里来吧

CCarch · 发表于 2013-6-8 15:09:31

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

CCarch · 发表于 2013-6-8 15:09:42

吴琦(59246664)于2013-06-08 15-09-42：
代码以前正常的

CCarch · 发表于 2013-6-8 15:09:48

吴琦(59246664)于2013-06-08 15-09-48：
加载了个破程序就不行了

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

炫翔(2363673534)于2013-06-08 15-09-59：
[face13.gif]是这样 PRINC (LIST "X" "X" KK))

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