求助:矩形以中心绘制

mcxiangxin

想请教一下:我编了一个程序.能实现矩形以中心点绘制.但有没有办法可以让矩形在绘制过程中能实现动态显示出来呢?

firstinti

grread

luyu9635

能发 上来学习一下嘛

ZZXXQQ

;这样行吗?

3. (defun c:tt ()
4. (setvar "CMDECHO" 0)
5. (command ".UNDO" "BE")
6. (command "rectang" "-1,-1" "1,1")
7. (command "-block" "bre" "0,0" "l" "")
8. (setq pt (getpoint "\nInsert Point :"))
9. (command "-insert" "bre" pt PAUSE "0")
10. (command "explode" "l")
11. (command "-purge" "b" "*" "n")
12. (command ".UNDO" "E")
13. (setvar "CMDECHO" 1)
14. )

(defun c:tt () (setvar "CMDECHO" 0) (command ".UNDO" "BE") (command "rectang" "-1,-1" "1,1") (command "-block" "bre" "0,0" "l" "") (setq pt (getpoint "\nInsert Point :")) (command "-insert" "bre" pt PAUSE "0") (command "explode" "l") (command "-purge" "b" "*" "n") (command ".UNDO" "E") (setvar "CMDECHO" 1) )