在一个图框中绘制五角星

ashleytgg

绘图命令为 draw_pentagram ，
命令简介，绘制可放大缩小的五角星， 可供娱乐， 有兴趣的人可以尝试一下。

   各位测量的朋友，有需要找公路测测量人员的，可以联系我啊，本人现在找不到活了，谢谢了。

ashleytgg

2. (defun Dcl_write (lst / dcl_file str file)
   
3.   (vl-load-com)
   
4.   (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))
   
5.   (setq file (open dcl_file "w"))
   
6.   (foreach str lst (write-line str file))
   
7.   (close file)
   
8.   (setq id (load_dialog dcl_file))
   
9. )
   

(defun Dcl_write (lst / dcl_file str file)<br />   (vl-load-com)<br />   (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))<br />   (setq file (open dcl_file "w"))<br />   (foreach str lst (write-line str file))<br />   (close file)<br />   (setq id (load_dialog dcl_file))<br /> )<br />