[下载]：贴一个Urtraedit的Autolisp语法文件。

haibinpro

从官网
ftp://www.ultraedit.com/wf/autolisp.txt
下载不了，
googel到的另一个链接
http://www.tiha.de/ultraedit/wordfiles/autolisp.txt
。

2. 
   
3. /L20"AutoLISP" Line Comment = ; File Extensions = LSP MNL
   
4. /Delimiters = ()"
   
5. /Indent Strings = "("
   
6. /Unindent Strings = ")"
   
7. /Function String = "(defun "
   
8. /C1"loop control"
   
9. cond
   
10. foreach
    
11. if
    
12. progn
    
13. repeat
    
14. while
    
15. /C2 "constants"
    
16. *error*
    
17. alert
    
18. exit
    
19. nil
    
20. NIL
    
21. pi
    
22. quit
    
23. setq setvar
    
24. t
    
25. T
    
26. /C3"math"
    
27. *
    
28. +
    
29. -
    
30. // /
    
31. // /=
    
32. 1+
    
33. 1-
    
34. < <=
    
35. =
    
36. > >=
    
37. abs and angle angtof angtos atan atof atoi
    
38. boundp
    
39. cos
    
40. distance
    
41. eq equal exp expt
    
42. fix float
    
43. log logand logior lsh
    
44. max min minusp
    
45. not null
    
46. or
    
47. sqrt
    
48. zerop
    
49. ~
    
50. /C4"list manipulation"
    
51. append
    
52. caddr cadr cal car cdddr cdr cons
    
53. length list listp
    
54. member
    
55. nth
    
56. reverse
    
57. subst
    
58. /C5"less-used"
    
59. acad_colordlg acad_helpdlg acad_strlsort action_tile add_list ads alloc apply arx arxload ascii atom atoms-family autoarxload autoload autoxload
    
60. boole
    
61. client_data_tile close command cvunit
    
62. dictadd dictnext dictremove dictrename dictsearch dimxtile dimytile done_dialog
    
63. end_image end_list eval expand
    
64. fill_image findfile
    
65. gc gcd get_attr get_tile getangle getcfg getcorner getdist getenv getfiled getint getkword getorient getpoint getreal getstring getvar graphscr grclear grdraw grread
    
66. grtext grvecs
    
67. handent help
    
68. initget inters
    
69. lambda last load load_dialog
    
70. mapcar mem menucmd menugroup mode_tile
    
71. namedobjdict new_dialog numberp
    
72. open osnap
    
73. pause polar prin1 princ print prompt
    
74. quote
    
75. read read-char read-line redraw regapp rem rtos
    
76. set set_tile setcfg setfunhelp setview sin slide_image snvalid start_app start_dialog start_image start_list
    
77. tablet term_dialog terpri textbox textpage textscr trace trans type
    
78. unload_dialog untrace
    
79. vector_image ver vmon vports
    
80. wcmatch write-char write-line
    
81. xdroom xdsize xload xunload
    
82. /C6"entity/table access, string manipulation"
    
83. assoc
    
84. chr
    
85. distof
    
86. entdel entget entlast entmake entmakex entmod entnext entsel entupd
    
87. itoa
    
88. nentsel nentselp
    
89. ssadd ssdel ssget ssgetfirst sslength ssmemb ssname ssnamex sssetfirst strcase strcat strlen substr
    
90. tblnext tblobjname tblsearch
    

<br /> /L20"AutoLISP" Line Comment = ; File Extensions = LSP MNL<br /> /Delimiters = ()"<br /> /Indent Strings = "("<br /> /Unindent Strings = ")"<br /> /Function String = "(defun "<br /> /C1"loop control"<br /> cond<br /> foreach<br /> if<br /> progn<br /> repeat<br /> while<br /> /C2 "constants"<br /> *error*<br /> alert<br /> exit<br /> nil<br /> NIL<br /> pi<br /> quit<br /> setq setvar<br /> t<br /> T<br /> /C3"math"<br /> *<br /> +<br /> -<br /> // /<br /> // /=<br /> 1+<br /> 1-<br /> < <=<br /> =<br /> > >=<br /> abs and angle angtof angtos atan atof atoi <br /> boundp<br /> cos<br /> distance<br /> eq equal exp expt<br /> fix float<br /> log logand logior lsh<br /> max min minusp<br /> not null<br /> or<br /> sqrt<br /> zerop<br /> ~<br /> /C4"list manipulation"<br /> append <br /> caddr cadr cal car cdddr cdr cons<br /> length list listp<br /> member<br /> nth<br /> reverse<br /> subst<br /> /C5"less-used"<br /> acad_colordlg acad_helpdlg acad_strlsort action_tile add_list ads alloc apply arx arxload ascii atom atoms-family autoarxload autoload autoxload<br /> boole<br /> client_data_tile close command cvunit<br /> dictadd dictnext dictremove dictrename dictsearch dimxtile dimytile done_dialog<br /> end_image end_list eval expand<br /> fill_image findfile<br /> gc gcd get_attr get_tile getangle getcfg getcorner getdist getenv getfiled getint getkword getorient getpoint getreal getstring getvar graphscr grclear grdraw grread<br /> grtext grvecs <br /> handent help<br /> initget inters<br /> lambda last load load_dialog<br /> mapcar mem menucmd menugroup mode_tile <br /> namedobjdict new_dialog numberp<br /> open osnap<br /> pause polar prin1 princ print prompt <br /> quote<br /> read read-char read-line redraw regapp rem rtos <br /> set set_tile setcfg setfunhelp setview sin slide_image snvalid start_app start_dialog start_image start_list <br /> tablet term_dialog terpri textbox textpage textscr trace trans type<br /> unload_dialog untrace <br /> vector_image ver vmon vports<br /> wcmatch write-char write-line<br /> xdroom xdsize xload xunload<br /> /C6"entity/table access, string manipulation"<br /> assoc<br /> chr<br /> distof<br /> entdel entget entlast entmake entmakex entmod entnext entsel entupd<br /> itoa <br /> nentsel nentselp<br /> ssadd ssdel ssget ssgetfirst sslength ssmemb ssname ssnamex sssetfirst strcase strcat strlen substr<br /> tblnext tblobjname tblsearch<br />

以上内容附在 wordfile.txt 文件的最后即可（附上后即刻有效，不用重启ue）。

视图-查看方式（语法加亮类型）-autolisp
即可调用。

语法加亮效果很一般， ; 前面没有做空格的判断。
不过可以试一下。

ue语法文件下载参考路径：
http://www.ultraedit.com/index.p ... mp;pid=40#wordfiles

WHGF

楼主，东西做的不错，在Uedit32中编辑Lisp可以显示彩色的文法了.....
谢谢！

caddog

可惜没有VL函数而且不知为何显示有点混乱