【飞鸟集】心随我动--为LISP定制的动态输入,拖拉和动态信息函数(更新至20130731)

hnfsf

老师说，这个可以顶，必须顶‘

vken7az2p

真是太厉害了~谢谢您的提供分享~

masterlong

使用过程中发现问题报告

WINXP+CAD2004

1.
如果打开新图
加载并运行动态函数
关闭dwg时没有问题

如果运行一些其它程序以后
再关闭dwg时
不会影响dwg的保存
但会跳出错误信息窗口
截图如下


2.
貌似HFB_SSJIG函数本身不支持右键状态的返回？

3.
另外调用函数完成后
光标不能自动恢复成正常模式
程序中额外添加了一个(command)来解决这个问题

程序如下：


希望高大侠有空能指导一下

masterlong

我的电脑里加载的第三方函数库有

acetutil.arx ;;acet函数库
DocBar_2004.arx  ;;多文档工具
doslib16.arx  ;;doslib函数库
BladeR16.arx  ;;乱刀去教育戳
OpenDCL.16.arx  ;;opendcl运行支持

xyz002

虽然不懂，但收藏了

greatvictory

不知为什么调用个自己写的函数就失灵，篇幅缘故弄了test示意一下，要用到两个参数，当前点的位置，悬停图元的码表，返回一个字符串，在动态里显示，大概就是这么个功能，求问为啥一用函数就失灵呢？就拿贴主的演示代码，第7行保存了个当前点，42行调用了下test函数，53行后面是test的内容，求指导啊！

1. ;;;*********************************************************************;;;Example 1: shows how to display the infomation of an entity and the  
   
2. ;;;position of cursor,and its current osnap mode.                       
   
3. ;;;*********************************************************************
   
4. (defun c:Info (/ ret)
   
5.   (defun InfoCallback (dynpt / txt elist osmod NNest dat)
   
6.     (setq txt (vl-princ-to-string (mapcar 'rtos dynpt)))
   
7.     (setq p txt)
   
8.     (setq txt (strcat "The coordinate is: " txt))
   
9.     (setq elist (HFB_GetAperture))                                                ; Aperture Entities
   
10.     (setq osmod (HFB_GetOSMode))                                                ; current osnap modes
    
11.     (setq NNest (HFB_GetNested))                                                ; nested Aperture Entities
    
12.     (if        (> osmod 0)
    
13.       (progn
    
14.         (princ "\nThe osnap mode is: ")
    
15.         (princ (cdar (vl-member-if
    
16.                        '(lambda (x) (/= (logand osmod (car x)) 0))
    
17.                        '((1 . "Endpoint")
    
18.                          (2 . "Midpoint")
    
19.                          (4 . "Center")
    
20.                          (8 . "Node")
    
21.                          (16 . "Quadrant")
    
22.                          (32 . "Intersection")
    
23.                          (64 . "Insert")
    
24.                          (128 . "Perpendicular")
    
25.                          (256 . "Tangent")
    
26.                          (512 . "Nearest")
    
27.                          (1024 . "Apparent intersection")
    
28.                          (2048 . "Parallel")
    
29.                          (4096 . "Extension")
    
30.                         )
    
31.                      )
    
32.                )
    
33.         )
    
34.       )
    
35.     )
    
36. 
    
37.     ;;If there are entities nearby the cursor,then display the infomation
    
38.     ;;about the first one.
    
39.     (if        elist
    
40.       (progn
    
41.         (setq dat (entget (car elist)))
    
42.         (strcat txt "\nThe type of aperture Entity is: " (test dat p)))
    
43.       )
    
44.       txt
    
45.     )
    
46.   )
    
47. 
    
48.   (setq ret (HFB_PointMonitor "InfoCallback"))
    
49.   (prompt "\nIf you want to turn off the monitor,please use (HFB_PointMonitor) or command \"IPMOFF\".")
    
50.   (princ)
    
51. )
    
52. 
    
53. (defun test (e p)
    
54.   (strcat (cdr (assoc 1 e)) (rtos (car p) 2))
    
55. )

;;;*********************************************************************;;;Example 1: shows how to display the infomation of an entity and the  <br /> ;;;position of cursor,and its current osnap mode.                       <br /> ;;;*********************************************************************<br /> (defun c:Info (/ ret)<br />   (defun InfoCallback (dynpt / txt elist osmod NNest dat)<br />     (setq txt (vl-princ-to-string (mapcar 'rtos dynpt)))<br />     (setq p txt)<br />     (setq txt (strcat "The coordinate is: " txt))<br />     (setq elist (HFB_GetAperture))                                                ; Aperture Entities<br />     (setq osmod (HFB_GetOSMode))                                                ; current osnap modes<br />     (setq NNest (HFB_GetNested))                                                ; nested Aperture Entities<br />     (if        (> osmod 0)<br />       (progn<br />         (princ "\nThe osnap mode is: ")<br />         (princ (cdar (vl-member-if<br />                        '(lambda (x) (/= (logand osmod (car x)) 0))<br />                        '((1 . "Endpoint")<br />                          (2 . "Midpoint")<br />                          (4 . "Center")<br />                          (8 . "Node")<br />                          (16 . "Quadrant")<br />                          (32 . "Intersection")<br />                          (64 . "Insert")<br />                          (128 . "Perpendicular")<br />                          (256 . "Tangent")<br />                          (512 . "Nearest")<br />                          (1024 . "Apparent intersection")<br />                          (2048 . "Parallel")<br />                          (4096 . "Extension")<br />                         )<br />                      )<br />                )<br />         )<br />       )<br />     )<br /> <br />     ;;If there are entities nearby the cursor,then display the infomation<br />     ;;about the first one.<br />     (if        elist<br />       (progn<br />         (setq dat (entget (car elist)))<br />         (strcat txt "\nThe type of aperture Entity is: " (test dat p)))<br />       )<br />       txt<br />     )<br />   )<br /> <br />   (setq ret (HFB_PointMonitor "InfoCallback"))<br />   (prompt "\nIf you want to turn off the monitor,please use (HFB_PointMonitor) or command \"IPMOFF\".")<br />   (princ)<br /> )<br /> <br /> (defun test (e p)<br />   (strcat (cdr (assoc 1 e)) (rtos (car p) 2))<br /> )

lxg3443

论坛恢复了 高版能不能更新下最新的呀~

那夕阳已醉

赞，希望更新下新版

BaoWSE

太高深了，消化不了这些知识点！但看到版主如此无私传授宝贵经验，我得赶紧再努力学习啊

524917100

希望高飞鸟大神对高版本cad进行适配一下..