【转帖】请高手看下这段代码！
 

请高手看下这段代码！
www.dimcax.com
请高手看下这段代码！
(defun c:sht_gen ( )
(setvar "cmdecho" 0)
(setq spacer_limit 500)
(setq ag_width (getreal "\nenter width of ag sheet:"))
(setq ag_progress (getreal "\nenter progress of ag sheet:"))
(setq ag_lbcorner
(getpoint
"\nplease enter or select left bottom corner of ag sheet:"
)
)
(setq fsr_width (- ag_width 10))
(setq fsr_progress (- ag_progress 10))
(setq fsr_lbcorner (mapcar '+ ag_lbcorner '(5 5 0)))
(setq spacer_width (- fsr_width 10))
(if (>
spacer_limit
(- fsr_progress 25)
)
(setq clamping_len 20)
(setq clamping_len 25)
)
(setq spacer_progress (- fsr_progress (+ clamping_len 5)))
(setq spacer_lbcorner
(mapcar '+ fsr_lbcorner (list clamping_len 5 0))
)
(command "rectang" ag_lbcorner (mapcar '+ ag_lbcorner (list ag_progress ag_width 0)))
(command "rectang" (mapcar '+ fsr_lbcorner (list fsr_progress fsr_width 0)) fsr_lbcorner)
(command "rectang" spacer_lbcorner (mapcar '+ spacer_lbcorner (list spacer_progress spacer_width 0)))
(setvar "cmdecho" 1)
)
我想用上面这段代码画三个大小不同的矩形，但是画出来的矩形确实相同的。盼高手指出问题所在？谢谢了！

关闭补捉再试

谢谢！果然是捕捉在捣乱！

在lisp编程中，通常捕捉要关闭，（command"osmode" 0)
等程序结束前开启