[求助]颜色控制有问题

鱼的微笑

我用entmake函数想通过对话框窗口输入的颜色对其进行控制，有点问题，望高手赐教。 :boxed_column{ ；在DCL文件中对输入对话框的定义
label="填充颜色";
:list_box{
key="color";}
} (defun takeout () ；LSP文件中定义的用于接收输入的函数
(setq yanse (get_tile "color"))
) ;lsp文件中对输入对话框的初始化
(setq colorlist (list "Black" "Red" "Yellow" "Green" "Cyan" "Blue" "Magenta" "White"
)
)
(start_list "color" 1)
(mapcar 'add_list colorlist)
(end_list) ；lsp文件中创建图元函数 entmakex (list (cons 0 "circle")

(cons 62 yanse) （cons 10 4.0 4.0 0.0） （cons 40 1.0）
) 在entmake函数中我尝试过用cond函数控制颜色但也不行 很急迫的需要解决这个问题！！！大家赐教

alin

(entmakex (list (cons 0 "circle")
(cons 62 (atoi yanse))
(list 10 4.0 4.0 0.0)
(cons 40 1.0)
)
)

鱼的微笑

谢谢alin版主


       


解决了