2013-05-05 QQ群：LISP/VLISP交流(143438137) 聊天记录：放到共享吧

CCarch

孤狼(2247570310)于2013-05-05 17-54-58：
只是命令一下

CCarch

孤狼(2247570310)于2013-05-05 17-55-28：
(defun  c:flange88()
  (setq what_next 2)
  (setq index_value (load_dialog "flange88.DCL"))
  (setq ab 1)
  (while (>= what_next 2)
  (if(null (new_dialog "flange88" index_value ))
  (exit)
    )
    (action_tile "accept" "(getdata)(done_dialog 1)")
  (action_tile "cancel" "(done_dialog o)")
  (setq what_next (start_dialog))
  (cond
    ((= what_next 1)
     (setq pt5 (getpoint "\n 请输入一个点："))
     (setq pt pt5)
     (draw)
     )
    ((= what_next 0)
     (prompt "\n user cancelled dialog")
      )))
  (unload_dialog index_value)
  (princ)
   )

CCarch

关中往事(13425218)于2013-05-05 17-57-04：
(defun getdata ()
          (setq m_d (atof (get_tile "key_D")))
          (setq m_b (atof (get_tile "key_B")))
          (setq m_l (atof (get_tile "key_L")))
          (setq m_k (atof (get_tile "key_K")))
          (setq n (atof (get_tile "key_n")))
          (setq m_d1 (atof (get_tile "key_d1")))
          (setq c (atof (get_tile "key_C")))
          (setq m_f (atof (get_tile "key_f")))
)

CCarch

孤狼(2247570310)于2013-05-05 17-58-55：
这个程序没错吧

CCarch

孤狼(2247570310)于2013-05-05 17-59-04：
是啊

CCarch

关中往事(13425218)于2013-05-05 17-59-52：
[qqimg]{FF643D7F-1840-A39B-C96E-75294ED992A1}.jpg[/qqimg]为啥循环、

CCarch

孤狼(2247570310)于2013-05-05 18-00-27：
书上的例子就是这样的

CCarch

孤狼(2247570310)于2013-05-05 18-00-31：
我也纳闷了

CCarch

牵ぶ伱の佑手(379002274)于2013-05-05 18-00-49：
看下what_next的值

CCarch

孤狼(2247570310)于2013-05-05 18-01-31：
是1

CCarch

孤狼(2247570310)于2013-05-05 18-02-29：
然后到画图是，无法获取数值，在autocad界面出现参数类型错误了

CCarch

牵ぶ伱の佑手(379002274)于2013-05-05 18-02-34：
是1那怎么成

CCarch

关中往事(13425218)于2013-05-05 18-02-47：
[qqimg]{8E407D2C-0220-74BC-1AA8-1362370734ED}.jpg[/qqimg]

CCarch

鈈洅╋━羡慕(703734609)于2013-05-05 18-03-08：
[face13.gif]

CCarch

牵ぶ伱の佑手(379002274)于2013-05-05 18-09-45：
自已的怎么看都知道哪里有问题：
帮我看下
diaa1:dialog{
label="图片";
:image{
key="im_key";
color=-2;
width=50;
aspect_ratio=1;
}
ok_cancer;
}