找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2896|回复: 10

测试LISP代码高亮(成功了,请提建议)

[复制链接]

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-4-13 12:06:09 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
[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]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-13 12:51:03 | 显示全部楼层
自定义函数呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 837个

财富等级: 财运亨通

发表于 2013-4-13 15:02:29 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 308个

财富等级: 日进斗金

发表于 2013-4-13 17:14:09 | 显示全部楼层
:o是不是转换出带颜色的格式的代码?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-4-13 19:33:31 | 显示全部楼层
XDSoft 发表于 2013-4-13 17:24
[mw_shl_code=javascript,true]

function mw_syntaxhighlighter(textareaid) {

慢慢来,很多论坛都可以,可以相互交流下,应该不是很难的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2406个

财富等级: 金玉满堂

发表于 2013-4-14 01:47:01 | 显示全部楼层
没看出高亮效果呢?难道是浏览器问题?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-14 02:40:12 | 显示全部楼层
[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]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 308个

财富等级: 日进斗金

发表于 2013-4-15 12:09:17 | 显示全部楼层
自定义函数和普通变量无法区分,不能显示高亮,xd内置函数可以指定设置,说白了就是搜索判断 函数名。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-4-15 13:32:28 | 显示全部楼层
颜色淡蓝色看看效果 红色的太。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 14:27:21 | 显示全部楼层
Zhumanquan 发表于 2013-4-15 13:32
颜色淡蓝色看看效果 红色的太。。。

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


                               
登录/注册后可看大图

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2013-4-15 14:28:15 | 显示全部楼层
XDSoft 发表于 2013-4-15 14:27
是按照LispLink 里面的配色设计的,你们谁用什么其他的编辑器,把代码高亮的截取下图贴上来参考下,谢谢! ...

哦,发现有有事情干了,系统变量的颜色。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 22:56 , Processed in 0.347325 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表