【Gu_xl】【源码分享】自定义带捕捉的grread函数

Gu_xl · 发表于 2011-12-15 09:46:45

本帖最后由 Gu_xl 于 2013-6-25 10:51 编辑

最近论坛里不少人在讨论如何解决Grread函数的捕捉问题，grread函数不能捕捉，想要使用上捕捉，非常麻烦，高飞兄的那个arx动态函数很好的解决了这个问题！但是我这里是用lisp方法对grread函数重新自定义，构造出一个和grread函数一样功能的函数，同时它支持捕捉、支持正交，并支持在grread运行中进行捕捉、正交的开和关，这样Grread实现捕捉工作就变得简单了！
申明一下，这个函数核心源码并非我原创，是借鉴了前辈们的智慧结晶，核心源码是谁的，我现在也高不清楚了，有可能是CAB的，在此基础上，我加以改进后形成的成果，在此对前辈们表示感谢！
源码:

游客，本帖隐藏的内容需要发帖数高于 10 才可浏览，你当前发帖数只有 0

该贴已经同步到 Gu_xl的微博

cabinsummer · 发表于 2011-12-15 11:51:37

国外早有grread的捕捉，国内见到最早的应该是ZML版主

lisperado · 发表于 2020-4-19 17:03:18

有朋友苹果版ACAD由于没有DCL对话框, 输入密码时就容易暴露！
搜索后，刚巧有网友示范如何覆盖密码。。李麦大神也有发布思维应该不难。
但如果显示在图元我的问题是如何完美在任何立体视界居中就好象UCS icon 标志 (X,Y,Z)永远都对着荧幕正常显示！

如动画：

如果不要命令之类如(command "text" ...) (command "

LAN" "v")
我尝试entmake但有些视角却不行

有没有大神已经有发布过类似居中函数？

基本上如果在正常WCS以下方法应该是可行的...

(entmakex (list '(0 . "TEXT")
(cons 40 (vs 30))
'(72 . 1)'(50 0)
(cons 10 (getvar 'viewctr) )
(cons 1 str)
(cons 11 (getvar 'viewctr) )
(cons 210 (getvar 'viewdir) )
)
)

但如果图元已转换UCS空间，（先别说viewtwist等变量已一改变就更有难度了！）
好像缺少什么？
(getvar 'viewdir)
(trans (getvar 'viewctr) 2 0)
ucsxdir, ucsydir, ucsbase?

MUSIC-DIE · 发表于 2021-7-19 00:25:15

快速缩放鼠标中键， 211行会报错 (GRVECS (APPLY 'APPEND lst)) 可能是来不及绘制

ahwx0814 · 发表于 2011-12-15 10:00:45

强人
我的lisp学习就是在参考G版的源代码中逐渐成长起来的！
在此感谢G版的无私奉献

Gu_xl · 发表于 2011-12-15 11:19:46

大量物体做动态本来就费劲！大量物体时肯定要使用高飞兄的那个函数才给力！

chg · 发表于 2011-12-15 12:47:43

，原来这个问题这么复杂，看着代码都头晕

仲文玉 · 发表于 2011-12-15 13:42:04

g版高明，支持了

chpmould · 发表于 2011-12-15 20:07:33

很好的GRREAD例子,这个一定支持

kwok · 发表于 2011-12-15 20:37:59

慢慢看.......

LLXXZZ · 发表于 2011-12-16 12:46:51

这个帖子要顶起来才对....

pxt2001 · 发表于 2011-12-18 03:21:08

楼主牛人，

账号		自动登录	找回密码
密码			注册

[【Gu_xl】] 【Gu_xl】【源码分享】自定义带捕捉的grread函数

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

相关帖子

浏览过的版块