一闪而过的要加以下函数:
- (defun numinc:misc ( )
- (mapcar 'set_tile (mapcar 'vl-list->string '((100 99 108) (97 117 116)))
- (list
- (strcat
- (vl-list->string
- '(
- 073 110 099 114 101 109 101 110
- 116 097 108 032 078 117 109 098
- 101 114 105 110 103 032 083 117
- 105 116 101 032 086
- )
- )
- numincversion
- (vl-list->string
- '(
- 032 092 085 043 048 048 065 057
- 032 076 101 101 032 077 097 099
- 032
- )
- )
- (menucmd "m=$(edtime,0,yyyy)")
- )
- (strcat
- (vl-list->string
- '(
- 067 111 112 121 114 105 103 104
- 116 032 040 099 041 032 076 101
- 101 032 077 097 099 032
- )
- )
- (menucmd "m=$(edtime,0,yyyy)")
- )
- )
- )
- )
|