[求助]：[求助]：如何使这段有趣的lisp代码实用起来？

ycao

用 lsp dcl 实现进度条
在 dcl 加一个细长的 image 这个是水平的，同理可以做垂直的。
: image {
key = "image_1";
color = 255;
width = 25;
height = 1.2;
}

lsp 里初始进度条的信息：

;引用或修改此程序请保护全部注释部分
;进度条工具
;作者：懒虫
;最初开发目的：用于 WL辅助设计 工具，一个利用AutoCAD输入结构计算模型的工具。
;读取进度条的尺寸
(setq ImaW (dimx_tile "image_1")
Imah (dimy_tile "image_1")
)
;对 image_1 做点处理，增加立体感(也可以用于其他地方)
(start_image "image_1")
(vector_image 0 0 0 Imah 253)
(vector_image 1 0 1 (- Imah 2) 251)
(vector_image 0 0 Imaw 0 253)
(vector_image 1 1 (- Imaw 2) 1 251)
(vector_image (- Imaw 1) 1 (- Imaw 1) (- Imah 1) 7)
(vector_image (- Imaw 2) 2 (- Imaw 2) (- Imah 2) 253)
(vector_image 1 (- Imah 1) (- Imaw 1) (- Imah 1) 7)
(vector_image 2 (- Imah 2) (- Imaw 2) (- Imah 2) 253)
(end_image)
;设初始值
(setq oldn 1)
;子程序
(defun Do_Ima_ad (i l / n)
(start_image "image_1")
(if (= i 0)
(progn (setq oldn 1) (fill_image 2 2 (- ImaW 4) (- Imah 4) 255))
)
(setq i (min i l))
(setq n (fix (* (- ImaW 4) (/ i 1.0 l)))
n (+ n 1)
)
(while (< oldn n)
(setq oldn (1+ oldn))
(if (< (rem oldn 7) 5)
(vector_image oldn 3 oldn (- Imah 3) 176)
)
)
(end_image)
)
;注意：应用时建议将 oldn 等设为内部变量，并避免冲突
;例如，(defun tryjindutiao (/ oldn ImaW Imah) ……)