|
|
各位大侠:我现有一事不明,特请各位赐教.请看下面的程序:
(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上运行,则我等了整整一半天,也没有运行完,不知何故? |
|
置顶卡
