cad_ 发表于 2011-5-24 11:23:47

求助 阶梯轴程序

一段画轴的程序如何能让画完一段轴继续返回参数输入对话框继续输入参数直到取消

ZZXXQQ 发表于 2011-5-24 11:37:49


(defun C:ss ()
(setq re 2)
(while (> re 0)
(if (> (setq dcl_id (load_dialog "DCLFILE")) 0) (progn
   (if (new_dialog filename dcl_id) (progn
   ;add program ......
    (action_tile "cancel" "(done_dialog 0)")
        (action_tile "assept" "(done_dialog 1)")
    (setq re (start_dialog))
   )
    (alert "Unable to display dialog box")
   )
   (unload_dialog index_value)
)
   (alert "Unable to load dialog box")
)
(if (= re 1) (draw))
)
(princ)
)

cad_ 发表于 2011-5-24 12:04:06

回复 ZZXXQQ 的帖子

谢谢啊   这个怎么加进去呢   我是新手不怎么会

ZZXXQQ 发表于 2011-5-24 12:58:25

Defun sub-program : draw
Write dcl-file.

kuji6686 发表于 2012-4-19 12:26:02

我也想学习，最近一直在做二次开发
页: [1]
查看完整版本: 求助 阶梯轴程序