[求助]：这种动态效果是怎么做出来的。

haibinpro

想仿造做个X形的。

舟自横

這個很簡單，你可以去了解一下grdraw函數功能，加上grread完全可以達到

haibinpro

如下：

2. 
   
3. (defun C:test1(/ p0 p2)
   
4. (setq p0 (getpoint "1")
   
5. p2 (getpoint "2")
   
6. )
   
7. (grdraw p0 p2 1)
   
8. )
   
9. 
   

<br /> (defun C:test1(/ p0 p2)<br /> (setq p0 (getpoint "1")<br /> p2 (getpoint "2")<br /> )<br /> (grdraw p0 p2 1)<br /> )<br /> <br />

但是单击点一后，单击二之前没有捕获鼠标动作动态显示啊。

Dallas_whu

“舟自横”已经告诉你了，要“GRDRAW"+"GRREAD"结合使用。可参见签名下的动态标高程序。

舟自横

隨便剛寫了一個,
試一下這個的效果,可以作為參考，其他迎刃而解.
(defun c:test1 (/ p1 loop_id pt)
  (setq p1 (getpoint))
  (setq loop_id T)
  (setq PT (grread t 4 0))
  (while loop_id
    (setq PT (grread t 4 0))
    (redraw)
    (grdraw p1 (cadr pt) 2 1)
    (if        (= 3 (car PT))
      (setq loop_id nil)
    )
  )
  (redraw)
  (vl-cmdf "._line" p1 (cadr pt) "")
)

haibinpro

谢谢，试运行了下，正是这个效果。

改为：(defun c:test1 (/ p1 loop_id)后
实际测试了一下，

命令: rec

指定第一个角点或 [基准(B)/高(H)/中心点(C)] <对话框(DI)>: 0,0

指定第二个角点或 [整个基准(F)/一半基准(H)] <整个基准(F)>: 10,10

命令: test1 T

命令: !pt
(3 (9.96601 9.91595 0.0))
因此，(cadr pt)返回第二个元素，也就是坐标点，因选取点返回3，
故点选后
(car PT) 返回的3令跳出循环。
(redraw)用于重画当前视图。

grread 函数返回一个表，其中第一个元素说明输入类型的代码，第二个元素既可能是整数，又可能是点，这取决于输入的类型。其返回值列表如下：

grread 函数的返回值

第一个元素        第二个元素
值        输入类型        值        说明
2        键盘输入        各种        字符代码
3        选定点        三维点        点坐标

有个疑问，有可能实现选取pt点时采用捕捉吗？
比如，下面这个程序。

2. 
   
3. (DEFUN C:test2(/ temppt1 loop_id pt)
   
4.         (setq loop_id T)
   
5.         (setq PT (grread t 4 0))
   
6.         (prompt "\n 水平辅助线")
   
7.         (while loop_id
   
8.                 (setq PT (grread t 4 0))
   
9.                 (redraw)
   
10.                 (grdraw (polar (cadr pt) pi 5000) (polar (cadr pt) 0 5000) 2 1)               
    
11.                 (if (= 3 (car PT))
    
12.                 (setq loop_id nil)
    
13.                 )               
    
14.         )
    
15.         (setq temppt1 (cadr pt))
    
16.         (vl-cmdf "XLINE" "H" temppt1 "")
    
17.         (redraw)       
    
18. )
    

<br /> (DEFUN C:test2(/ temppt1 loop_id pt)<br />         (setq loop_id T)<br />         (setq PT (grread t 4 0))<br />         (prompt "\n 水平辅助线")<br />         (while loop_id<br />                 (setq PT (grread t 4 0))<br />                 (redraw)<br />                 (grdraw (polar (cadr pt) pi 5000) (polar (cadr pt) 0 5000) 2 1)                <br />                 (if (= 3 (car PT))<br />                 (setq loop_id nil)<br />                 )                <br />         )<br />         (setq temppt1 (cadr pt))<br />         (vl-cmdf "XLINE" "H" temppt1 "")<br />         (redraw)        <br /> )<br />

xyz518mm

应该是可行的,我自己试了一下,完成下面的练习
不知道这样算是吗?
但有各疑问就是 grread 之前不支援 INITGET 命令操作
我用了下面的方法但还是觉得不好用有方法改变吗
[PHP]
(defun C:repkey ()
(print "选取物件/右键输入/K键输入")
(setq key (grread))
(anskey key)
)
   
(defun anskey ( key /)
(cond
((= (car key) 3) (print "滑鼠点到点位置"))
((= (CAR key) 2)
(SETQ bigwd (STRCASE (CHR (CADR key))))
(IF (= bigwd "K")
(PRINT "按键K输入")
(PROGN
    (PRINT "未支援此关键命令,请重新输入命令")
    (C:repkey)
)
)
)
((= (CAR key) 25) (print "滑鼠按到右键"))
(t
(print "您的输入,没有任何反应!!!")
)
)
)
[/PHP]

fsxm

6楼的加上捕捉后的代码:

2. 
   
3. (DEFUN C:test2 (/ temppt1 loop_id pt)
   
4.   (setq loop_id T)
   
5.   (setq PT (grread t 4 0))
   
6.   (prompt "\n 水平辅助线")
   
7.   (while loop_id
   
8.     (setq PT (grread t 4 0))
   
9.     (setq p (grreadosnap (cadr pt)))        ;<这行是捕捉>[url]http://www.xdcad.net/forum/showthread.php?threadid=595948[/url]
   
10.     ;;(redraw)
    
11.     (grdraw (polar p pi 5000)
    
12.             (polar p 0 5000)
    
13.             2
    
14.             1
    
15.     )
    
16.     (if        (= 3 (car PT))
    
17.       (setq loop_id nil)
    
18.     )
    
19.   )
    
20.   (setq temppt1 p)
    
21.   (vl-cmdf "XLINE" "H" temppt1 "")
    
22.   (redraw)
    
23. )
    

<br /> (DEFUN C:test2 (/ temppt1 loop_id pt)<br />   (setq loop_id T)<br />   (setq PT (grread t 4 0))<br />   (prompt "\n 水平辅助线")<br />   (while loop_id<br />     (setq PT (grread t 4 0))<br />     (setq p (grreadosnap (cadr pt)))        ;<这行是捕捉>[url]http://www.xdcad.net/forum/showthread.php?threadid=595948[/url]<br />     ;;(redraw)<br />     (grdraw (polar p pi 5000)<br />             (polar p 0 5000)<br />             2<br />             1<br />     )<br />     (if        (= 3 (car PT))<br />       (setq loop_id nil)<br />     )<br />   )<br />   (setq temppt1 p)<br />   (vl-cmdf "XLINE" "H" temppt1 "")<br />   (redraw)<br /> )<br />

haibinpro

加载grreadosnap.fas后可以使用，
如果能处理成捕捉象限点，交点等有对应的捕捉图标就更好了，
现在的情况是都只能显示端点捕捉图标，且无法透明使用捕捉设置。
这样如果没有选择圆心捕捉，命令执行后必须退出设置为圆心捕捉再执行命令。

fsxm

见例子中的:
((equal gr '(2 6))                ;F3可设置捕捉值
  (command "_+dsettings" 2)
)
你在可以在你的程序加一些代码就可以设置捕捉值了

"对应的捕捉图标"这个东东想过
不过做起来很烦琐就没去做了
~那位老大有兴趣的做吧

haibinpro

动画上传不成功，
原因是：
系统检测到你在该主题上个帖子传过的附件大小没有接近论坛附件大小限值500kb

如果要继续传附件，请用WINRAR 3.0以上版本重新处理（包括上个附件）成多卷压缩文件，

每个附件大小设置为500kb，编辑上面的帖子，重新依次上传附件，谢谢！

所以下午我会将动画传到qq群上。

是一个用ggg制作gif动画的例子。