求助！！！

lovelilin · 发表于 2004-6-7 12:43:00

请问各位大侠下面两个是什么意思？
" viewctr " 和" viewsize "
再就是下面这段程式中间一段有点不不解:
(defun C:rf()
   (setvar "cmdecho" 0)
   (setq viewctr (getvar "viewctr"))
   (setq viewsize (getvar "viewsize"))
   (setq corner1 (list (+ (/ viewsize 1.2) )(car viewctr)
   (+ (/ viewsize 2) (cadr viewctr) )))
   (setq corner2 (list (- (car viewctr) (/ viewsize 1.2)) (- (cadr Viewctr) (/ viewsize 2) )))
(ssget "C" corner1 corner2)
   (command "erase" "P" "")
   (command "undo" "")
   (princ))

meflying · 发表于 2004-6-7 12:48:00

帮助文件中有介绍

求助！！！

发表回复

精选推荐

浏览过的版块