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

fun2k

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)
)

cqnj023

放多大会有剪切效果？我调试时无论怎么缩放都不会剪切，应该是(command "trim" (entlast) "" po8 po8 "")中响应trim的参数po8不合适所致，应该需要对象以及点的组合表，就象entsel返回的表一样。

fun2k

放大窗口到2000x2000左右有剪切效果



如附件flash