如何把ai_propchk定义成快捷键？

archt

如题

XDSoft

最初由 archt 发布
[B]如题 [/B]

去 “下载中心”下载 AutoHook ,保证让你爱不释手。

archt

不是使用的问题，快捷键比较符合习惯，而且易于外出使用。

e2002

关于快捷键,请看看联机帮助中的"自定义参考/菜单/快捷键" (Accelerator Keys)
不过许多ai_xxxx函数没有说明文档,只好自己去探索了,特别是a2k2中又有很多扩展...:9

archt

感谢2位的回答，我提出的问题是在R14里面需要解决的。
但是2位都是答非所问！

另外快捷键不是加速键，F3取消／打开捕捉 是加速键，把c定义成copy是快捷键。

难道这个问题真的没有人能解决吗？

LUCAS

最初由 archt 发布
[B]感谢2位的回答，我提出的问题是在R14里面需要解决的。
但是2位都是答非所问！

另外快捷键不是加速键，F3取消／打开捕捉 是加速键，把c定义成copy是快捷键。

难道这个问题真的没有人能解决吗？ [/B]

发问的那位大哥,你问题没有说清楚!!!!!!!!!!!!
AUTOCAD原版说明可不是快捷键


您可以利用下列方法缩写各种 AutoCAD 常用指令：在档案 acad.pgp 的指令别名节中，定义这些指令的别名。您可以替任一 AutoCAD 指令、设备驱动程序指令、或外部指令定义别名。
下列两个以逗点分隔的字段，用于定义 acad.pgp 档案中的指令别名：

缩写，*指令

缩写

这是您在「指令」提示下输入的指令缩写。

指令

这是您要缩写的 AutoCAD 指令。您必须在指令名称之前输入星号 (*)，才能指出该行为指令别名。

如果您可以用透通方式输入某一指令，您就可以用同样的方式输入它的别名。当您输入该指令别名时，AutoCAD 会在「指令」提示下显示指令完整名称，并执行该指令。
下列各项是指令别名节的一部份，这些项目与标准 acad.pgp 档案中的项目类似。

A,*ARC
C,*CIRCLE

CP,*COPY
AI, *AI_PROPCHK

指令别名节可以包含具有以特殊负号（-）为前缀的各种指令，如下列各指令。这项特性能让您建立可以存取指令行版本的某些指令。

BH, *-BHATCH

BD, *-BOUNDARY

注意您无法在指令脚本中使用指令别名。同时也建议您不要在菜单档案中使用指令别名。

前生

2. 
   
3. ;;;acad.lsp部分
   
4. (VMON)
   
5. (defun bt (#str /)
   
6.   (grtext -1 (strcat "_当前命令为: " #str "__金戈__"))
   
7.   (princ)
   
8. )                                        ;
   
9. 
   
10. ;;;;2222
    
11. (DEFUN C:2P ()
    
12.   (bt "两点圆")
    
13.   (COMMAND "CIRCLE" "2P")
    
14. )
    
15. (DEFUN C:3P () (COMMAND "CIRCLE" "3P"))
    
16. 
    
17. ;;;Aaaa
    
18. (Defun C:Dal ()
    
19.   (SETLAY "DIM" 1 "CONTINUOUS")
    
20.   (Command "Dim1" "Ali")
    
21. )
    
22. (Defun C:Ad () (Command "Attdef"))
    
23. (Defun C:Ae () (Command "Attedit"))
    
24. (Defun C:Ap () (Command "Aperture"))
    
25. (Defun C:App () (Command "Appload"))
    
26. (Defun C:Ar () (Command "Array"))
    
27. (Defun C:At () (Command "Attext"))
    
28. (Defun C:Att () (Command "Attdisp"))
    
29. (Defun C:Ax () (Command "Axis"))
    
30. 
    
31. ;;;Bbcc
    
32. (Defun C:B () (Command "Block"))
    
33. (Defun C:Ba () (Command "Base"))
    
34. (Defun C:Bm () (Command "Blipmode"))
    
35. (Defun C:C ()
    
36.   (Bt "Circle")
    
37.   (SETLAY "1" 4 "CONTINUOUS")
    
38.   (Command "Circle")
    
39. )
    
40. (Defun C:Cf () (Command "Chamfer"))
    
41. (Defun C:Cg () (Command "Change"))
    
42. (Defun C:Cgl () (Command "Change" "L" ""))
    
43. (Defun C:Con () (Command "Dim1" "Con"))
    
44. (Defun C:Cp ()
    
45.   (Bt "Copy")
    
46.   (Command "Copy")
    
47.   (Princ)
    
48. )
    
49. 
    
50. ;;;Dddd
    
51. (Defun C:D () (Command "Dist"))
    
52. (Defun C:Dd ()                                ; (/ Ss1 Ent Ent1 Ent2)
    
53.   (Setq Ss1 (Entsel "\n 请选择目标实体:..."))
    
54.   (If Ss1
    
55.     (Progn
    
56.       (Setq Ent (Entget (Car Ss1)))
    
57.       (Setq Ent1 (Cdr (Assoc 0 Ent))
    
58.             Ent2 (Cdr (Assoc -1 Ent))
    
59.       )
    
60.       (Cond
    
61.         ((Or (= "DIMENSION" Ent1) (= "TEXT" Ent1) (= "MTEXT" Ent1))
    
62.          (Command "Ddedit" Ent2)
    
63.         )
    
64.         ((= "INSERT" Ent1) (Command "Ddatte" Ent2))
    
65.         (Prompt
    
66.          (Strcat "\N 您选中的实体是" Ent1 ",不能用文本编辑...")
    
67.         )
    
68.       )                                        ;Cond
    
69.     )                                        ;Progn
    
70.     (Prompt "\n 没有选择的可编辑的实体!..")
    
71.   )
    
72.   ;;If
    
73.   (Princ)
    
74. )
    

<br /> ;;;acad.lsp部分<br /> (VMON)<br /> (defun bt (#str /)<br />   (grtext -1 (strcat "_当前命令为: " #str "__金戈__"))<br />   (princ)<br /> )                                        ;<br /> <br /> ;;;;2222<br /> (DEFUN C:2P ()<br />   (bt "两点圆")<br />   (COMMAND "CIRCLE" "2P")<br /> )<br /> (DEFUN C:3P () (COMMAND "CIRCLE" "3P"))<br /> <br /> ;;;Aaaa<br /> (Defun C:Dal ()<br />   (SETLAY "DIM" 1 "CONTINUOUS")<br />   (Command "Dim1" "Ali")<br /> )<br /> (Defun C:Ad () (Command "Attdef"))<br /> (Defun C:Ae () (Command "Attedit"))<br /> (Defun C:Ap () (Command "Aperture"))<br /> (Defun C:App () (Command "Appload"))<br /> (Defun C:Ar () (Command "Array"))<br /> (Defun C:At () (Command "Attext"))<br /> (Defun C:Att () (Command "Attdisp"))<br /> (Defun C:Ax () (Command "Axis"))<br /> <br /> ;;;Bbcc <br /> (Defun C:B () (Command "Block"))<br /> (Defun C:Ba () (Command "Base"))<br /> (Defun C:Bm () (Command "Blipmode"))<br /> (Defun C:C ()<br />   (Bt "Circle")<br />   (SETLAY "1" 4 "CONTINUOUS")<br />   (Command "Circle")<br /> )<br /> (Defun C:Cf () (Command "Chamfer"))<br /> (Defun C:Cg () (Command "Change"))<br /> (Defun C:Cgl () (Command "Change" "L" ""))<br /> (Defun C:Con () (Command "Dim1" "Con"))<br /> (Defun C:Cp ()<br />   (Bt "Copy")<br />   (Command "Copy")<br />   (Princ)<br /> )<br /> <br /> ;;;Dddd<br /> (Defun C:D () (Command "Dist"))<br /> (Defun C:Dd ()                                ; (/ Ss1 Ent Ent1 Ent2)<br />   (Setq Ss1 (Entsel "\n 请选择目标实体:..."))<br />   (If Ss1<br />     (Progn<br />       (Setq Ent (Entget (Car Ss1)))<br />       (Setq Ent1 (Cdr (Assoc 0 Ent))<br />             Ent2 (Cdr (Assoc -1 Ent))<br />       )<br />       (Cond<br />         ((Or (= "DIMENSION" Ent1) (= "TEXT" Ent1) (= "MTEXT" Ent1))<br />          (Command "Ddedit" Ent2)<br />         )<br />         ((= "INSERT" Ent1) (Command "Ddatte" Ent2))<br />         (Prompt<br />          (Strcat "\N 您选中的实体是" Ent1 ",不能用文本编辑...")<br />         )<br />       )                                        ;Cond<br />     )                                        ;Progn<br />     (Prompt "\n 没有选择的可编辑的实体!..")<br />   )<br />   ;;If<br />   (Princ)<br /> )<br />