lionguns 发表于 2015-1-18 14:07:42

GRREAD函数小例子源码

昨天在QQ群，帮童鞋改了个grread函数的小程序，
觉得对新手有一定帮助，帮发到此，让新手多一点点学习资料。
GRREAD需要关键字时，自行增加相应代码值。(defun c:tt ()
(princ "\n点选已检查过的点")
(setq 跟踪 T)
(while 跟踪
    (setq 代码值 (grread t 4 3))
    (setq 代码 (car 代码值))
    (setq 值 (cadr 代码值))
    (cond
      ((= 5 代码)      ;跟踪鼠标位置
       (progn
   (redraw)
   (setq 看线端点1 (polar 值 (/ (* 3 pi) 4) 1060))
   (setq 看线端点2 (polar 值 (/ (* 7 pi) 4) 1060))
   (grvecs (list 2 看线端点1 看线端点2)) ;生成看线
       )
      )
      ((= 3 代码)      ;点左键
       (command "pline" 看线端点1 "w" "100" "100" 看线端点2 "")
      )
      ((= 11 代码)      ;点右键
       (setq 跟踪 nil)      ;退出跟踪
       (redraw)      ;清除看线
      )
      ((= 25 代码)      ;点右键
       (setq 跟踪 nil)      ;退出跟踪
       (redraw)      ;清除看线
      )
    )
)
)

鱼与熊掌 发表于 2015-1-18 14:50:29

中文写变量，太可怕

sutai 发表于 2015-1-18 15:00:17

鱼与熊掌 发表于 2015-1-18 14:50 static/image/common/back.gif
中文写变量，太可怕

是鱼还是熊掌？哈哈~

qiguangyao 发表于 2015-1-18 15:54:28

顶上去，越是简单的函数实例，新人越容易理解

434939575 发表于 2015-1-18 22:17:14

有特色！个性@

lionguns 发表于 2015-1-19 20:13:32

中文代码完全是为了新童鞋更容易看懂，而且变量也不多

冰之绝恋 发表于 2015-1-19 20:24:34

哈哈~赞~

fl202 发表于 2015-1-20 08:57:47

不推荐用中文变量，对于以后开发大程序还是要改回来。

xufansw 发表于 2015-1-23 23:01:54

顶一个，还真没有这样试过，赞一个
页: [1]
查看完整版本: GRREAD函数小例子源码