关于一LISP程序在ACAD各种版本上运行不同的问题

wmz

各位大侠:我现有一事不明,特请各位赐教.请看下面的程序: (defun c:hx()
(setq n -1)
(while (< n 600)
(setq n (1+ n))
(command "pline" (list 0 n) (list 600 n) ""
"pline" (list n 0) (list n 600) ""
)
)
) 以上程序在ACAD2002上运行,约2-3秒钟;在ACAD2005上运行约4-5秒钟;而在ACAD2004上运行,则我等了整整一半天,也没有运行完,不知何故?

CADghost

有这种事？