改变光标样式

newer

改变光标样式

代码示例了光标样式在 ”无“ ”点“ ”选取框“之间根据输入的关键字循环显示。

[it618postdisplay>0]

1. ;;改变光标类型
   
2. (defun c:cursortype ( / c g )
   
3.     (setq c 0)
   
4.     (princ "\nChoose [None/Point/Selection]: ")
   
5.     (while
   
6.         (or (= 5 (car (setq g (grread nil 14 c))))
   
7.             (and (= 2 (car g))
   
8.                  (member (cadr g) '(78 80 83 110 112 115))
   
9.             )
   
10.         )
    
11.         (if (= 2 (car g))
    
12.             (setq c (cadr (assoc (cadr g) '((78 1)(80 0)(83 2)(110 1)(112 0)(115 2)))))
    
13.         )
    
14.     )
    
15.     (princ)
    
16. )
    
17. 
    

;;改变光标类型<br /> (defun c:cursortype ( / c g )<br />     (setq c 0)<br />     (princ "\nChoose [None/Point/Selection]: ")<br />     (while<br />         (or (= 5 (car (setq g (grread nil 14 c))))<br />             (and (= 2 (car g))<br />                  (member (cadr g) '(78 80 83 110 112 115))<br />             )<br />         )<br />         (if (= 2 (car g))<br />             (setq c (cadr (assoc (cadr g) '((78 1)(80 0)(83 2)(110 1)(112 0)(115 2)))))<br />         )<br />     )<br />     (princ)<br /> )<br /> <br />

[/it618postdisplay]
另外一个示例：

1. (defun c:test (/ e g)
   
2.   (princ "\nPick a point: ")
   
3.   (while (= 5 (car (setq g (grread nil 12 0)))))
   
4.   (if (= 3 (car g))
   
5.     (progn
   
6.       (princ "\nUser picked ")
   
7.       (princ (cadr g))
   
8.     )
   
9.   )
   
10.   (princ "\nSelect an object: ")
    
11.   (while (= 5 (car (setq g (grread nil 12 2)))))
    
12.   (if (and
    
13.         (= 3 (car g))
    
14.         (setq e (car (nentselp (cadr g))))
    
15.       )
    
16.     (princ (strcat "\nUser selected a " (strcase (cdr (assoc 0
    
17.                                                              (entget e)
    
18.                                                       )
    
19.                                                  ) t
    
20.                                         )
    
21.            )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

(defun c:test (/ e g)<br />   (princ "\nPick a point: ")<br />   (while (= 5 (car (setq g (grread nil 12 0)))))<br />   (if (= 3 (car g))<br />     (progn<br />       (princ "\nUser picked ")<br />       (princ (cadr g))<br />     )<br />   )<br />   (princ "\nSelect an object: ")<br />   (while (= 5 (car (setq g (grread nil 12 2)))))<br />   (if (and<br />         (= 3 (car g))<br />         (setq e (car (nentselp (cadr g))))<br />       )<br />     (princ (strcat "\nUser selected a " (strcase (cdr (assoc 0<br />                                                              (entget e)<br />                                                       )<br />                                                  ) t<br />                                         )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br />

HLCAD

感谢版主提供的源码!!!

yoyoho

感谢 N 版 分享程序,3q!

819534890

快乐地回复

bonny123

组合起来的么

xinxirong

大地对地风格计划韩国化工工会规划搞好更换关怀国家

/db_自贡黄明儒_

感谢版主提供的源码!!!

hn10183051

感谢版主提供的源码!!

jf867687

感谢版主提供的源码!!!

露水2

不知道能不能通过鼠标样式设置输入法

zdqwy19

iiiiiiiiiiiiiiiiiiiiii

xvjiex

感谢楼主分享改变光标样式！

weizx2000

谢谢分享谢谢分享

xvjiex

感谢楼主分享改变光标样式！