[求助]LISP绘制图形的一些小错误

fun2k · 发表于 2004-7-26 17:00:00

LISP程序如下。
当CAD绘图窗口放大时，绘制的图形是会将圆内的线清空。
但当CAD绘图窗口缩小时，圆内的线就不会被清空。
为什么？
(defun c:f2 (/ po1 po2 po3 po4 po5 po6 po7 po8)
   (setvar "blipmode" 0)
   (setq po1 (getpoint "\n插入点："))
   (setq po2 (getpoint po1 "\n插入方向"))
   (setvar "osmode" 0)
   (setq po3 (polar po1 (angle po1 po2) 300))
   (setq po4 (polar po1 (* pi 0.5) 100))
   (setq po5 (polar po1 (* pi 1.5) 100))
   (setq po6 (polar po3 (* pi 0.5) 100))
   (setq po7 (polar po3 (* pi 1.5) 100))
   (setq po8 (polar po1 (angle po1 po2) 150))
   (command "pline" po4 "w" "0.0" "" po5 po6 po7 "c")
   (command "circle" po8 40)
   (command "trim" (entlast) "" po8 po8 "")
   (princ)
)