lisp中getkword输入默认_增强对象修订云线,增加设置选项及快速恢复默认值

初学,看到有增强的云线,开始想加一个设置选项,后来还加了一个默认设置,最后变成了命令行分级.基本改成CAD的命令行风格,还没有学习DCL,对命令行的模式感受比较深刻.献丑

;;  yx.lsp lanjqka 20130914

;;  增强对象修订云线,增加设置选项及快速恢复默认值

;;  yx

(defun c:yx (/)

(vl-load-com)

(setq variation_cmdecho (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(if stringcommandline

(setq stringcommandline (:yx:_Make_select))

(setq stringcommandline "Reset")

);用于首次加载预设参数

(while (/= stringcommandline "Exit");退出条件

(cond

((= stringcommandline "Reset");命令行选项 初始设置

(setq objectstyle "Circle");对象类型

(setq chordlengthmin1 500.0);正数

(setq chordlengthmin2 -24.0);负数

(setq chordlengthmin0 chordlengthmin2);chordlengthmin1 或者 chordlengthmin2

(setq dividenumber (- chordlengthmin2));负数修正

(setq chordlengthmax0 500.0);负数

(print "OK!");完成标记