明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2131|回复: 8

[源码] GRREAD函数小例子源码

[复制链接]
发表于 2015-1-18 14:07:42 | 显示全部楼层 |阅读模式
昨天在QQ群,帮童鞋改了个grread函数的小程序,
觉得对新手有一定帮助,帮发到此,让新手多一点点学习资料。
GRREAD需要关键字时,自行增加相应代码值。
  1. (defun c:tt ()
  2.   (princ "\n点选已检查过的点")
  3.   (setq 跟踪 T)
  4.   (while 跟踪
  5.     (setq 代码值 (grread t 4 3))
  6.     (setq 代码 (car 代码值))
  7.     (setq 值 (cadr 代码值))
  8.     (cond
  9.       ((= 5 代码)      ;跟踪鼠标位置
  10.        (progn
  11.    (redraw)
  12.    (setq 看线端点1 (polar 值 (/ (* 3 pi) 4) 1060))
  13.    (setq 看线端点2 (polar 值 (/ (* 7 pi) 4) 1060))
  14.    (grvecs (list 2 看线端点1 看线端点2)) ;生成看线
  15.        )
  16.       )
  17.       ((= 3 代码)      ;点左键
  18.        (command "pline" 看线端点1 "w" "100" "100" 看线端点2 "")
  19.       )
  20.       ((= 11 代码)      ;点右键
  21.        (setq 跟踪 nil)      ;退出跟踪
  22.        (redraw)        ;清除看线
  23.       )
  24.       ((= 25 代码)      ;点右键
  25.        (setq 跟踪 nil)      ;退出跟踪
  26.        (redraw)        ;清除看线
  27.       )
  28.     )
  29.   )
  30. )
发表于 2015-1-18 14:50:29 | 显示全部楼层
中文写变量,太可怕

点评

我变量也是中文的,哈哈  发表于 2015-1-19 20:37
发表于 2015-1-18 15:00:17 | 显示全部楼层
鱼与熊掌 发表于 2015-1-18 14:50
中文写变量,太可怕

是鱼还是熊掌?哈哈~
发表于 2015-1-18 15:54:28 | 显示全部楼层
顶上去,越是简单的函数实例,新人越容易理解
发表于 2015-1-18 22:17:14 | 显示全部楼层
有特色!个性@
 楼主| 发表于 2015-1-19 20:13:32 | 显示全部楼层
中文代码完全是为了新童鞋更容易看懂,而且变量也不多
发表于 2015-1-19 20:24:34 | 显示全部楼层
哈哈~赞~
发表于 2015-1-20 08:57:47 | 显示全部楼层
不推荐用中文变量,对于以后开发大程序还是要改回来。
发表于 2015-1-23 23:01:54 | 显示全部楼层
顶一个,还真没有这样试过,赞一个
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-14 05:18 , Processed in 0.162651 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表