各种rel中的grdraw和GRVEC
我想知道为什么这在某些版本中有效，而在其他版本中无效（2004年及以后）(setq ll '(1 1) lr '(20 1) ur '(20 10) ul '(1 10))
;;;INTEGER BIT FLAG
(setq f 15)
;;;INITIATE THE BOX
(grdraw ll lr 1 1)
(grdraw lr ur 2 1)
(grdraw ur ul 3 1)
(grdraw ul ll 4 1)
(while
(progn
(initget "1 2 3 4")
(setq e (getkword (strcat "\nToggle Edge Visibility 1/2/3/4 <" (itoa f) ">: "))))
(setq v (expt 2 (1- (atoi e))))
(if (= (logand f v) v)
(setq f (- f v))
(setq f (+ f v)))
(grdraw ll lr 1 0)
(grdraw ll lr 1 (if (= (logand f 1) 1) 1 0))
(grdraw lr ur 2 0)
(grdraw lr ur 2 (if (= (logand f 2) 2) 1 0))
(grdraw ur ul 3 0)
(grdraw ur ul 3 (if (= (logand f 4) 4) 1 0))
(grdraw ul ll 4 0)
(grdraw ul ll 4 (if (= (logand f 8) 8) 1 0))
; (redraw)
; (grvecs (list (* (if (= (logand f 1) 1) -1 1) 1) ll lr
; (* (if (= (logand f 2) 2) -1 1) 2) lr ur
; (* (if (= (logand f 3) 3) -1 1) 3) ur ul
; (* (if (= (logand f 4) 4) -1 1) 4) ul ll))
)
我只想使用线条颜色作为输入来切换实线和虚线
-大卫
页:
[1]