测试LISP代码高亮（成功了，请提建议）

XDSoft

[pcode=LISP,true]
(defun c:ttt()
  (setq _file "d:\\lisp.lsp")
  (if (setq file-dsec (open _file "r"))
    (progn
      (setq file-dsec2 (open "d:\\lisp-func2.txt" "w"))
      (setq str1 "'" i 1)
      (while (and (setq str (read-line file-dsec))
                  (setq str (xdrx_string_trimleft str))
                  (setq str (xdrx_string_trimright str))
             )
        (if (= 0 (rem i 6))
           (progn
              (setq str1 (strcat (xdrx_string_trimright str1) "' +"))
              (write-line str1 file-dsec2)
              (setq str1 "'")
           )
           (setq str1 (strcat str1 str " "))
        )
        (setq i (1+ i))
      )
      (close file-dsec2)
      (princ "\nok!")
    )
  )
)[/pcode]

炫翔

自定义函数呢？

hao3ren

炫翔 发表于 2013-4-13 12:51

                               
登录/注册后可看大图

自定义函数呢？

应该是在xdapi里面吧

仲文玉

:o是不是转换出带颜色的格式的代码？

炫翔

XDSoft 发表于 2013-4-13 17:24

                               
登录/注册后可看大图

[mw_shl_code=javascript,true]

function mw_syntaxhighlighter(textareaid) {

慢慢来，很多论坛都可以，可以相互交流下，应该不是很难的

nore

没看出高亮效果呢？难道是浏览器问题？

XDSoft

[pcode=lisp,true]
apply defun defun-q defun-q-list-ref eval lambda progn trace untrace
acad_strlsort append assoc car foreach last length list member nth
vl-consp vl-every vl-list* vl-list-length vl-member-if-not vl-position vl-remove vl-remove-if vl-remove-if-not vl-sort list vl-sort-i list strcase strcat strlen subst vl-prin1-to-string vl-string-elt vl-string-left-trim vl-string-mismatch vl-string-position vl-string-search vl-string-subst vl-string-translate vl-string-trim wcmatch atom atoms-family boundp not
         numberp quote set setq type vl-symbol-value vl-symbolp angtof
ascii atof atoi chr cvunit itoa rtos trans tablet  graphscr grdraw grtext menucmd menugroup prin1 princ print
redraw terpri textpage textscr vports close findfile open read-char read-line
vl-file-copy vl-file-delete vl-file-directory-p vl-file-rename vl-file-size
vl-filename-base vl-filename-directory vl-filename-extension vl-filename-mktemp write-char
textbox  acad_colordlg acad_helpdlg getcfg getcname getenv getvar help setenv setfunhelp setvar ver vl-cmdf
vlax-remove-cmd entsel getangle
getdist getfiled getint getkword getorient
getreal getstring initget nentsel nentselp
regapp xdroom xdsize
entdel entget entlast entmake entmakex
entnext entupd handent vlax-dump-object vlax-erased-p
vlax-method-applicable-p vlax-object-released-p vlax-read-enabled-p vlax-release-object vlax-typeinfo-available-p
ssadd ssdel ssget ssgetfirst
ssmemb ssname ssnamex sssetfirst
dictadd dictnext dictremove dictrename dictsearch
namedobjdict setview snvalid tblnext tblobjname
vlax-ldata-delete vlax-ldata-get vlax-ldata-list vlax-ldata-put vlax-ldata-test
alloc expand gc mem
done_dialog load_dialog new_dialog start_dialog term_dialog
action_tile get_attr get_tile
set_tile action_tile get_attr get_tile mode_tile
add_list end_list start_list
dimx_tile dimy_tile end_image fill_image slide_image
vector_image client_data_tile
vlr-added-p vlr-beep-reaction vlr-current-reaction-name vlr-data vlr-data-set
vlr-docmanager-reactor vlr-dwg-reactor vlr-dxf-reactor vlr-editor-reactor vlr-linker-reactor
vlr-mouse-reactor vlr-notification vlr-object-reactor vlr-command-reactor vlr-owner-add
vlr-owners vlr-pers vlr-pers-list vlr-pers-p vlr-pers-release
vlr-reaction-set vlr-reactions vlr-reactors vlr-remove vlr-remove-all
vlr-sysvar-reactor vlr-toolbar-reactor vlr-trace-reaction vlr-type vlr-types
vlr-wblock-reactor vlr-window-reactor vlr-xref-reactor
vl-doc-export vl-doc-import vl-doc-ref vl-doc-set vl-exit-with-error
vl-list-exported-functions vl-list-loaded-vlx vl-unload-vlx vl-vlx-loaded-p
vl-bb-ref vl-bb-set vl-load-all vl-propagate
vl-registry-descendents vl-registry-read vl-registry-write vlax-product-key
vla-activate
vla-add3dface vla-add3dmesh vla-add3Dpoly vla-addarc vla-addattribute
vla-addcircle vla-addcone vla-addcustomobject vla-addcylinder vla-adddim3pointangular
vla-adddimangular vla-adddimdiametric vla-adddimordinate vla-adddimradial vla-adddimrotated
vla-addellipticalcone vla-addellipticalcylinder vla-addextrudedsolid vla-addextrudedsolidalongpath vla-addhatch
vla-addlightweightpolyline vla-addline vla-addmenuitem vla-addminsertblock vla-addmline
vla-addobject vla-addpoint vla-addpolyfacemesh vla-addpolyline vla-addpviewport
vla-addray vla-addregion vla-addrevolvedsolid vla-addseparator vla-addshape
vla-addsphere vla-addspline vla-addsubmenu vla-addtext vla-addtolerance
vla-addtorus vla-addtrace vla-addvertex vla-addwedge vla-addxline
vla-anglefromxaxis vla-angletoreal vla-angletostring vla-appendinnerloop vla-appenditems
vla-appendvertex vla-arraypolar vla-arrayrectangular vla-attachexternalreference vla-attachtoolbartoflyout
vla-bind vla-boolean vla-checkinterference vla-clear vla-clipboundary
vla-copy vla-copyfrom vla-copyobjects vla-copyprofile vla-createtypedarray
vla-deleteconfiguration vla-deletefitpoint vla-deleteprofile vla-detach vla-display
vla-distancetoreal vla-dock vla-elevateorder vla-endundomark vla-erase
vla-evaluate vla-explode vla-export vla-exportprofile vla-float
vla-getallprofilenames vla-getangle vla-getattributes vla-getbitmaps vla-getboundingbox
vla-getcanonicalmedianames vla-getconstantattributes vla-getcontrolpoint vla-getcorner vla-getcustomscale
vla-getentity vla-getextensiondictionary vla-getfitpoint vla-getfont vla-getgridspacing
vla-getinteger vla-getinterfaceobject vla-getinvisibleedge vla-getkeyword vla-getlocalemedianame
vla-getname vla-getobject vla-getorientation vla-getpapermargins vla-getpapersize
vla-getplotstyletablenames vla-getpoint vla-getprojectfilepath vla-getreal vla-getremotefile
vla-getstring vla-getsubentity vla-getucsmatrix vla-getvariable vla-getweight
vla-getxdata vla-getxrecorddata vla-handletoobject vla-highlight vla-import
vla-initializeuserinput vla-insertblock vla-insertinmenubar vla-insertloopat vla-insertmenuinmenubar
vla-isremotefile vla-isurl vla-launchbrowserdialog vla-listarx vla-load
vla-loaddvb vla-loadshapefile vla-mirror vla-mirror3D vla-move
vla-objectIDtoobject vla-offset vla-open vla-plottodevice vla-plottofile
vla-prompt vla-purgeall vla-purgefitdata vla-putremotefile vla-quit
vla-refreshplotdeviceinfo vla-regen vla-reload vla-remove vla-removefrommenubar
vla-rename vla-renameprofile vla-replace vla-resetprofile vla-reverse
vla-rotate3D vla-runmacro vla-save vla-saveas vla-scaleentity
vla-select vla-selectatpoint vla-selectbypolygon vla-selectonscreen vla-sendcommand
vla-setbulge vla-setcontrolpoint vla-setcustomscale vla-setfitpoint vla-setfont
vla-setinvisibleedge vla-setlayoutstoplot vla-setpattern vla-setprojectfilepath vla-setsnapspacing
vla-setview vla-setweight vla-setwidth vla-setwindowtoplot vla-setxdata
vla-slicesolid vla-split vla-startbatchmode vla-startundomark vla-transformby
vla-unload vla-unloadarx vla-unloaddvb vla-update vla-wblock
vla-zoomcenter vla-zoomextents vla-zoompickwindow vla-zoomprevious vla-zoomscaled
vla-get-active vla-get-activedimstyle vla-get-activedocument vla-get-activelayer vla-get-activelayout
vla-get-activeprofile vla-get-activepviewport vla-get-activeselectionset vla-get-activespace vla-get-activetextstyle
vla-get-activeviewport vla-get-alignment vla-get-application vla-get-arclength vla-get-area
vla-get-center vla-get-check vla-get-closed vla-get-color vla-get-count
vla-get-diameter vla-get-display vla-get-enable vla-get-endangle vla-get-endpoint
vla-get-fontfile vla-get-fullname vla-get-handle vla-get-height vla-get-index
vla-get-isxref vla-get-key vla-get-label vla-get-layer vla-get-layout
vla-get-left vla-get-length vla-get-linetype vla-get-linetypes vla-get-menus
vla-get-name vla-get-objectID vla-get-objectname vla-get-paperspace vla-get-path
vla-get-plotstylename vla-get-plottype vla-get-profiles vla-get-radius vla-get-readonly
vla-get-selection vla-get-selectionsets vla-get-startangle vla-get-startpoint vla-get-stylename
vla-get-textalignmentpoint vla-get-textcolor vla-get-textfont vla-get-textfontsize vla-get-textfontstyle
vla-get-textstring vla-get-textstyle vla-get-textstyles vla-get-thickness vla-get-toolbars
vla-get-user vla-get-utility vla-get-viewports vla-get-views vla-get-viewtoplot
vla-get-volume vla-get-weights vla-get-width
vla-put-activedocument vla-put-activelayer vla-put-activelayout vla-put-activelinetype vla-put-activeprofile
vla-put-activespace vla-put-activetextstyle vla-put-activeucs vla-put-activeviewport vla-put-alignment
vla-put-center vla-put-check vla-put-closed vla-put-color vla-put-description
vla-put-enable vla-put-endangle vla-put-endpoint vla-put-fontfile vla-put-height
vla-put-label vla-put-layer vla-put-left vla-put-linetype vla-put-mspace
vla-put-path vla-put-plotstylename vla-put-plottype vla-put-radius vla-put-rotation
vla-put-startpoint vla-put-stylename vla-put-tagstring vla-put-textalignmentpoint vla-put-textcolor
vla-put-textfontsize vla-put-textfontstyle vla-put-textrotation vla-put-textstring vla-put-textstyle write-line close cons[/pcode]

仲文玉

自定义函数和普通变量无法区分，不能显示高亮，xd内置函数可以指定设置，说白了就是搜索判断 函数名。。。

zhuquanmao

颜色淡蓝色看看效果 红色的太。。。

XDSoft

Zhumanquan 发表于 2013-4-15 13:32

                               
登录/注册后可看大图

颜色淡蓝色看看效果 红色的太。。。

是按照LispLink 里面的配色设计的，你们谁用什么其他的编辑器，把代码高亮的截取下图贴上来参考下，谢谢！

                               
登录/注册后可看大图

XDSoft

XDSoft 发表于 2013-4-15 14:27

                               
登录/注册后可看大图

是按照LispLink 里面的配色设计的，你们谁用什么其他的编辑器，把代码高亮的截取下图贴上来参考下，谢谢！ ...

哦，发现有有事情干了，系统变量的颜色。