defun

删除坐标相同文本对象 按照原y坐标排序

;; (defun c:tb2(/ selobjs oldcmdecho) ;定义命令txtal，局部变量selobjs,oldcmdecho; (setq oldcmdecho (getvar
·2015-10-30 13:09

将选定的文本对象左对齐、右对齐或对中

;; (defun c:TXTAL(/ selobjs oldcmdecho) ;定义命令txtal，局部变量selobjs,oldcmdecho; (setq oldcmdecho (getvar
·2015-10-30 13:08

对象水平对齐，并且按照竖直方向排列

;; (defun c:tb2(/ selobjs oldcmdecho) ;定义命令txtal，局部变量selobjs,oldcmdecho; (setq oldcmdecho (getvar
·2015-10-30 13:08

绘制方框云线标注

(defun c:tt2 () ( (progn (command "_rectang" pause pause) ;绘制长方形 (setq en1 (entlast
·2015-10-30 13:07

AutoCAD visual lisp实例：函数绘制

 1 (defun c:mysin ()  2   (setq    x  
·2015-10-30 11:28

emacs之切换h/cpp配置

emacsConfig/switch-file-setting.el 1 (defun switch-c () 2 (global-set-key (kbd "<C-return
·2015-10-23 08:29

lisp（判断回文数）

(defun re(n) (setf len (length n)) (if (oddp len) (setf mid (/ (1+ len) 2)) (setf mid (/ len
·2015-10-21 10:37

emacs 新手笔记（三） —— 为 emacs 做一点简单的定制

下面的 lisp 代码主要实现几个按键绑定和窗口最大化等简单的配置： 1 ;; 窗口最大化 2 (defun my-maximized () 3
·2015-07-25 17:00

Emacs查看按键与其对应函数之间的关系

例如:C-n对应M-xnext-line，任何一个elisp的命令函数(带有interactive的defun)，都可以和一个按键绑定。有的时候，知道一个命令，M-xsome-comma
bigstone2012·2015-04-14 08:39

Emacs Tips

1、slime用“C-o”下开新行，在配置文件slime.el中加入：（walker放在了Keybindings那一段）;;自定义快捷键 ;下开新行 (defun start-newline-next 
RQSLT·2015-01-07 11:59

Emacs Tips

1、slime用“C-o”下开新行，在配置文件slime.el中加入：（walker放在了Keybindings那一段）;;自定义快捷键 ;下开新行 (defun start-newline-next 
RQSLT·2015-01-07 11:59

emacs设置

emacs在使用过程中窗体的大小每次要点鼠标很麻烦，将一下内容配置到.emacs 中可以默认最大化窗口 ;;最大化 (defun my-maximized () (interactive)
robbieFENG·2014-12-12 09:00

SICP exercise 1.7 1.8

exercise1.8：commonlisp实现如下(defun cuberoot (xx)   
代码强国·2014-07-16 15:00

transalete tool

(defun translate (word &key (en-to-cn t))   "translate english and chinese only.   
shallbyetoo·2014-02-28 17:00

问题记录：CLISP 的 ext:shell 语句在终端启动的环境正常，在 slime 中异常

这样一段代码：(defun dot->png (fname thunk)   (with-open-file (*standard-output*    fname    :direction :output
FreeBlues·2014-01-31 12:00

xfce4 dev tools的一些说明

xfce4 dev tools实际上基本是封装了一些autoconf的宏函数 比如XDT_I18N： AC_DEFUN([XDT_I18N], [ dnl Substitute GETTEXT_PACKAGE
·2013-07-21 10:00

emacs调用SVN进行更新、提交、比较

然后把下面的代码加入到.emacs文件： (defun svn-update() "Svn update" (interactive) (let
wondery·2013-03-21 14:00

lisp-基本输入,输出,read,print

" "hello" SSSSSSSS SSSSSSSS (defun say-hello() (print "what's your name?
deepfuture·2013-02-09 22:00

lisp-基本输入,输出,read,print

" "hello" SSSSSSSS SSSSSSSS (defun say-hello() (print "what's your name?
deepfuture·2013-02-09 22:00

lisp-求最大和最小数,if的使用

* (defun maxnum(x y) (if (> x y) x y)) STYLE-WARNING: redefining COMMON-LISP-USER::MAXNUM in DEFUN
deepfuture·2013-02-08 17:00

lisp-求最大和最小数,if的使用

* (defun maxnum(x y) (if (> x y) x y)) STYLE-WARNING: redefining COMMON-LISP-USER::MAXNUM in DEFUN
deepfuture·2013-02-08 17:00

lisp-猜数字升级版

0[2] (defun mystart() (defparameter *small* 1)(defparameter *big* 100)(guess-number)) 0[3] (mystart)
deepfuture·2013-01-30 18:00

lisp-猜数字升级版

0[2] (defun mystart() (defparameter *small* 1)(defparameter *big* 100)(guess-number)) 0[3] (mystart)
deepfuture·2013-01-30 18:00

lisp-猜数字算法与全局函数、变量

* (defvar *big* 100) *BIG* * (defvar *small* 1) *SMALL* 50 0] (defun smaller() (setf *big
deepfuture·2013-01-30 17:00

lisp-猜数字算法与全局函数、变量

* (defvar *big* 100) *BIG* * (defvar *small* 1) *SMALL* 50 0] (defun smaller() (setf *big
deepfuture·2013-01-30 17:00

zebra探秘（一）

一、DEFUN宏定义/*DEFUNforvtycommandinterafce.Littlebithacky;-).
lcn8575·2013-01-25 20:46

zebra探秘（一）

一、DEFUN宏定义/*DEFUNforvtycommandinterafce.Littlebithacky;-).
lcn8575·2013-01-25 20:46

CLisp 23：运行时修改函数的实现

运行时修改函数的实现，对LISP来说并不是稀奇事，用defun重新定义一个即可。这里介绍一个具体的、高级的做法，可以加深理解LISP函数的本质。
dragonzht·2012-12-16 15:38

Lisp.编译（Compilation）

如果你仅仅是在toplevel中键入了一个defun表达式，[1]>(defunfoo(x)(+x1)) FOO 很多实现都会创建一个解释的函数。
cnweike·2012-10-31 21:00

lisp函数（二）apply/mapcar

一：local functionFunctions defined via defun or setf of symbol-function are global functions.局部函数可以由labels
ryuali2010·2012-08-01 02:00

Lisp的作用域和生存期（scope and extent in lisp)

让我们看一个简单的例子：(defuncopy-cell(x)(cons(carx)(cdrx)))变量x的作用域是defun形式的体。除非在defun的body之中引
xiaojianpitt·2012-07-29 15:00

string substitution

)(end-1)) (defunbref(bufn) (svref(buf-vecbuf) (modn(length(buf-vecbuf))))) ;;;扩展setf方法，注意下面调用的方式 (defun
ryuali2010·2012-07-28 00:00

lisp 函数（一）

一：定义新函数1：(defun name (parameter*)"optional documentation string"Body-form*)Name: 可以是任何包含字典字符和连字符（不是下划线
ryuali2010·2012-07-19 16:00

lisp 中REQL基本操作

REQL里，调试器缓冲区将会消失，而REQL将显示下面CL-USER> (hello-world); Evaluation aborted on #.C-c C-c 将启动 slime-compile-defun
ryuali2010·2012-07-18 18:00

Lisp语言：函数的定义，调用以及参数的传递

函数的定义在Lisp中函数的定义使用下面的格式：(defunfunction1() (format*query-io*"infunction1~%"))其中defun是函数定义的关键字，function1
keyboardOTA·2012-06-07 18:00

在Ecl中使用中文

打开Ecl输入代码： > (defun 你好 () (print "世界")) 你好 > (你好) "世界" "世界
seagate·2012-05-26 17:00

GCL笔记02-CD数据库1

下面我们就可以定义一个函数，函数的参数是CD信息，返回一个列表：defun定义函数的格式为：(defun函数名(参数*)(函数体*))这里的make-cd函数有四个参数，函数体是用list生成含有四个关键字的列表
兰穆达·2012-05-24 06:00

ELisp编程七:创建函数

defun原型https://www.gnu.org/software/emacs/manual/html_node/eintr/defun.html里面介绍的defun并不全，可能文档过于老旧了吧。
sheismylife·2012-04-19 13:00

Yari With Helm

;;;###autoload (defun yari-helm (&optional rehash) (interactive (list current-prefix-arg))
斌-黄·2012-04-15 15:00

EMACS配置（.emacs）

//非常方便的编译快捷键(setq compile-command "make -j 3 cd=true d=true")(defun mark-one-key-compile ()  "先保存文件，然后编译
天使的白骨·2012-03-08 18:00

/home/tony/.emacs.d/themes/color-theme-tango.el

Created by [email protected] (defun color-theme-tango () "A color theme based on Tango Palette
greybeard·2011-11-28 23:00

emacs安装php-mode

/chuqq_elisp") (load "php-mode")   (defun python-run()  (interactive) &
chuqingq·2011-11-24 23:00

《实用Common Lisp编程》第三章，update 函数补遗

细心的人应该会发现，在第三章的最后，作者只将where函数改成了宏，而update函数仍然是带有重复代码： (defun update (selector-fn &key title
huangz·2011-11-01 20:00

lisp初体验-Practical Common Lisp笔记-11.单元测试

（为什么要单元测试可以看 这里） 先举个测试的例子： (defun test-+ () (a
iyuan·2011-09-16 15:00

Lisp.定义函数

多数人通过defun来学习怎样定义函数。下面的表达式定义了一个叫做double的函数，这个函数返回它参数的两倍。
airinsoul·2011-09-13 23:00

Emacs快速定位到(自定义目录)

;;定义变量 (defconst my-projects-path "~/My-Projects" "My projects dir") ;;定义函数 (defun
wsql·2011-07-28 01:00

我的emacs配置

(setq-default make-backup-files nil)  ;;;;自动补齐策略    (defun my-indent-or-complete ()       (
lexdene·2011-07-08 10:42

lisp初体验-Practical Common Lisp笔记-7.函数

定义一个新的函数 在Lisp中，通过宏defun以下面的结构来定义函数： (defun name (parameter*) "Optional documentation string
iyuan·2011-06-30 18:00

lisp 小代码1

  (defun double (x) (+ x x )) (defun ^ (&rest lst) (let ((sum (car lst)))
ipython·2011-06-09 11:00

[autoLisp] 生成随机点

在AUTOCAD中，生成随机点 ;;from internet (defun random () (setq seed (if seed (rem (+ (* seed
qjchen·2011-02-14 20:00
上一页 1 2 3 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他