用grread代替getkword

feng582304

我觉得用grread动态模拟，如果做得精细一点的话，完成代替getkword和自定义菜单，而且还可以做得很友好哦！
（纯属个人突发奇想……）

2. ;---------------------------------------------------------------;
   
3. ;动态选项  (feng:jn:grread)  返回选项'(梁 柱 门 窗)  ;
   
4. ;---------------------------------------------------------------;
   
5. (defun feng:jn:grread ( po / p1 ang z l c m class *ERROR* size )
   
6.   (defun *ERROR* (msg)
   
7.     (redraw)
   
8.     )
   
9.   (princ "\n梁-L\t柱-Z\t窗-C\t门-M:")
   
10.   (while (/= (car (setq p1 (grread t 12 1))) 3)
    
11.     (setq size (/ (getvar "viewsize") 8000))
    
12.     (if (= (car p1) 5)
    
13.       (progn
    
14.   (setq ang (angle po (setq p1 (last p1)))
    
15.         z (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (150 150 0) (150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))
    
16.         l (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))
    
17.         c (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (150 150 0) (-150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))
    
18.         m (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (-150 -150 0) (-150 150 0) (0 -150 0) (0 -150 0) (150 150 0) (150 150 0) (150 -150 0)))
    
19.         )
    
20.   (redraw)
    
21.   (GRVECS (list 6 (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(-1000 0 0) po)
    
22.           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(1000 0 0) po)
    
23.           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(0 -1000 0) po)
    
24.           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(0 1000 0) po)
    
25.           )
    
26.     )
    
27.   (cond
    
28.     ((<= 0 ang (/ pi 2)) (GRVECS (cons 1 l)) (setq class "梁"))
    
29.     ((< (/ pi 2) ang pi) (GRVECS (cons 2 z)) (setq class "柱"))
    
30.     ((<= pi ang (* pi 1.5)) (GRVECS (cons 3 c)) (setq class "窗"))
    
31.     ((< (* pi 1.5) ang (* 2 pi)) (GRVECS (cons 4 m)) (setq class "门"))
    
32.     )
    
33.   )
    
34.       )
    
35.     )
    
36.   (REDRAW)
    
37.   class
    
38.   )

;---------------------------------------------------------------;<br /> ;动态选项  (feng:jn:grread)  返回选项'(梁 柱 门 窗)  ;<br /> ;---------------------------------------------------------------;<br /> (defun feng:jn:grread ( po / p1 ang z l c m class *ERROR* size )<br />   (defun *ERROR* (msg)<br />     (redraw)<br />     )<br />   (princ "\n梁-L\t柱-Z\t窗-C\t门-M:")<br />   (while (/= (car (setq p1 (grread t 12 1))) 3)<br />     (setq size (/ (getvar "viewsize") 8000))<br />     (if (= (car p1) 5)<br />       (progn<br />   (setq ang (angle po (setq p1 (last p1)))<br />         z (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (150 150 0) (150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))<br />         l (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))<br />         c (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (150 150 0) (-150 150 0) (-150 -150 0) (-150 -150 0) (150 -150 0)))<br />         m (MAPCAR '(LAMBDA (x) (MAPCAR '+ (MAPCAR '(LAMBDA (y) (* size y)) x) p1)) '((-150 150 0) (-150 -150 0) (-150 150 0) (0 -150 0) (0 -150 0) (150 150 0) (150 150 0) (150 -150 0)))<br />         )<br />   (redraw)<br />   (GRVECS (list 6 (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(-1000 0 0) po)<br />           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(1000 0 0) po)<br />           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(0 -1000 0) po)<br />           (MAPCAR '(LAMBDA (x y) (+ (* x size) y)) '(0 1000 0) po)<br />           )<br />     )<br />   (cond<br />     ((<= 0 ang (/ pi 2)) (GRVECS (cons 1 l)) (setq class "梁"))<br />     ((< (/ pi 2) ang pi) (GRVECS (cons 2 z)) (setq class "柱"))<br />     ((<= pi ang (* pi 1.5)) (GRVECS (cons 3 c)) (setq class "窗"))<br />     ((< (* pi 1.5) ang (* 2 pi)) (GRVECS (cons 4 m)) (setq class "门"))<br />     )<br />   )<br />       )<br />     )<br />   (REDRAW)<br />   class<br />   )

cabinsummer

参见我的帖子＂动态基准符号＂

LLXXZZ

grread 比较吃内存吧？！

skynoon

对于grread一直没吃透

feng582304

cabinsummer 发表于 2012-3-6 05:27
参见我的帖子＂动态基准符号＂

我的出发点：在执行命令时不用老去看命令行的提示，直接在屏幕上选，就像自定义快捷菜单一样，而且界面还以更随意一些。
我想请教一下版主，如果全用GRVECS模拟出来的话，能不能做出来，因为我觉得创建一个实体对象，然后循环去修改属性的话，真的就像LLXXZZ所说的，比较吃内存。我做了一个grread模拟阵列，对象一多就有点卡的迹像。

cabinsummer

feng582304 发表于 2012-3-6 23:27
我的出发点：在执行命令时不用老去看命令行的提示，直接在屏幕上选，就像自定义快捷菜单一样，而且界面还 ...

GRVECS不能被选择

江湖远人

初学，收藏了

dengyaochao

刚学习，收藏一下