[求助]"non"参数为什么有时稳定有时不稳定

timmy521

大家好,我向各位老师请教一个问题,下面程序中,"non"怎么有时能用,有时不能用,这是为什么啊.是不是哪个系统参数没有设好,哪有大虾知道啊!!!!1 我的是pccad2004 

 

 

 

;; 五角星
(defun c:test670 ()
  (cmdla0)
  (xyp-MkLaCo "五角星" 1)
  (setq d (UREAL 7 "" "半径" d))
  (while (setq p0 (getpoint "\n中心点: "))
    (setq s00 (entlast)
   p1  (polar p0 (xyp-ang2rad 18) d)
   p2  (polar p1 0 d)
   p3  (polar p0 (* pi 0.5) d)
   p4  (polar p0 (xyp-ang2rad 306) d)
   p5  (polar p0 (xyp-ang2rad 234) d)
   p6  (inters p1 p2 p3 p4 nil)
   p7  (inters p1 p5 p3 p4 nil)
    )
    (command "pline" "non" p6 "non" p1 "non" p7 "")
    (setq s1 (entlast))
    (command "array" s1 "" "p" "non" p0 5 360 "y")
    (setq ss (xyp-SSelEntnext s00))
    (command "region" ss "")
  )
  (cmdla1)
)