你用lisp程序给我画一个图标

好的，我可以用Lisp程序帮您绘制一个简单的图标，以下是代码示例：

(defun draw-icon (file-path)
  (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq ms (vla-get-ModelSpace doc))
  (setq pt1 (vlax-3d-point '(0 0 0)))
  (setq pt2 (vlax-3d-point '(10 0 0)))
  (setq pt3 (vlax-3d-point '(10 10 0)))
  (setq pt4 (vlax-3d-point '(0 10 0)))
  (setq poly (vla-addpolyline ms 4))
  (vla-addvertex poly pt1)
  (vla-addvertex poly pt2)
  (vla-addvertex poly pt3)
  (vla-addvertex poly pt4)
  (vla-setclosed poly :vlax-true)
  (vla-put-Layer poly "ICON")
  (setq img (vla-get-ActiveViewport doc))
  (vla-export img file-path "PNG")
  (princ "Icon saved successfully.")
)

这个函数会在 AutoCAD 中绘制一个 10x10 的矩形，并将其导出为 PNG 格式的图标文件。您只需要调用这个函数并传入要保存的文件路径即可，例如：

(draw-icon "C:/icon.png")

请注意，这个函数假设您已经将 AutoCAD 的对象模型加载到了 Lisp 会话中。如果您还没有加载对象模型，请使用以下代码加载：

(vl-load-com)

希望这个例子对您有所帮助。