在一个图框中绘制五角星
绘图命令为 draw_pentagram ，命令简介，绘制可放大缩小的五角星， 可供娱乐， 有兴趣的人可以尝试一下。
各位测量的朋友，有需要找公路测测量人员的，可以联系我啊，本人现在找不到活了，谢谢了。
(defun Dcl_write (lst / dcl_file str file)
(vl-load-com)
(setq dcl_file (vl-filename-mktemp nil nil ".dcl"))
(setq file (open dcl_file "w"))
(foreach str lst (write-line str file))
(close file)
(setq id (load_dialog dcl_file))
)
页:
[1]