-
-
2我在长沙工作,想进修,请兄弟们推荐一二(最好详细一点)
-
0;;主程序 (defun c:qxys( / r an ps pe pc dis1) (setvar "cmdecho" 0) (command "layer" "m" "曲线要素" "c" 1 "" "") (command "style" "样式1" "simplex,hztxt" "0" ".7" "0" "n" "n" "n") (command "units" 2 3 2 4 "" "") (command "graphscr") (if (setq ent (car (entsel "\n请选择圆弧:"))) (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC") (pr
-
0请问一个各路大神,其中的T是什么意思?不知道它的用法,请帮忙解答一下。
-
6或者说关于《SICP》的
-
1
-
1文本文件没问题: #!/usr/bin/sbcl --script (defun p-cat (fp) (with-open-file (str fp :direction :input) (do ((line (read-line str nil 'eof) (read-line str nil 'eof))) ((eql line 'eof)) (format t "~A~%" line)))) (p-cat "./4.lisp") # ./4.lisp #!/usr/bin/sbcl --script (cl:in-package "CL-USER") (defun power (x n) (cond ((= n 0) 1) 。。。。。 ;(h-cat "./lc.gds") ;(in-package #:cl-glut) 但二进制文件: #!/usr/bin/sbcl --script (defun h-cat (fp) (with-open-file (str fp :direction :input) (do ((bt (read-char str nil 'eof) (read-
-
11我准备用51单片机搭建一个LISP机,虽然LISP的构造并不适用于冯诺依曼机器,但是针对LISP优化的机子是可以实现的,有一些MIT的LISP系统技术文档(好久以前的老东西了,但翻出来还是有用) LISP是以表达式为基础的,所以程序内存中的一个地址就是列表项的开头或结尾,对函数的调用是一个指向函数头的指针,而变量就是内存指针. 希望能有一些建议!
-
5在网上找了半天lisp的中文支持答案,都是改emacs-23.2\site-lisp\lispbox.el,就没看到!没办法,自己找,最后在lispbox-0.7/emacs-23.2/share/emacs/23.2/site-lisp/subdirs.el 的最后加上安装教程里的(setq slime-net-coding-system 'utf-8-unix)就可以了。希望可以让需要的人少耽误时间。
-
2;组合多线段 (defun c:pej( / pet ss) 02. (setq pet (getvar "PEDITACCEPT")) 03. (setvar "PEDITACCEPT" 1) 04. (while (setq ss (ssget '((0 . "ARC,*LINE")))) 05. (command "_pedit" (ssname ss 0) "j" ss "" "") 06. ) 07. (setvar "PEDITACCEPT" pet) 08. (princ) 09.)
-
2以前公司CAD,有人专门做LISP这块,然后做了一个很好用的东西,就是按"N"键会出现一个对话框,里面存了很多常用的图块,双击调用就行了,请教一下这个怎么做的,有什么教程吗?谢谢各位了
-
6标注所有线段(加载后只需框选所有线段便可得标注这些线段): (defun c:LLL () (COMMAND "UCS" "") (setvar "cmdecho" 1) (SETVAR "OSMODE" 0) (setq AcadObject (vlax-get-acad-object) AcadDocument (vla-get-ActiveDocument Acadobject) mSpace (vla-get-ModelSpace Acaddocument) ) ;;选取需要测量的样条曲线、圆弧、直线、椭圆 (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE")))) (setq i 0) ;;获取系统参数textsize (setq shh (getvar "textsize")) (setq str_hh (strcat "\n文字高度 <" (rtos shh 2) ">: ")) (setq hh (getdist str_hh)) (while hh (
-
0win7 64bit (define size 2) size 错误如标题,怎么设置? 看的书是sicp
-
2最近写程序需要对dwg格式的图进行处理,如果要后台调用AutoCAD应该怎么办?AutoCAD好像不能被后台调用。。。
-
0尊敬的程序师,有没有谁写过cad一键标注基于一点的高程和偏距,
-
3大家怎么食用200行以上的代码
-
4如题:我想学Lisp,完全0程序基础,应该如何开始? 本人是一枚野鸡画图猿,想在闲暇时学学程序语言,
-
1sbcl 库好少怎么办,求教,总不能一点一点造轮子吧
-
8新人想学习lisp该怎么入门?
-
0(defun c:hq() (setq pa (getpoint "输入左下点:")) ;输入左下桩坐标 (setq r1 (getreal "\n 桩基半径:")) ;
-
4lisp 初学者 遇到问题 求解决 比如 有个集合 ‘(((1)(2))(5)(3)((8)3) (printe '(((1)(2))(5)(3)((8)3))) 如何使用 自定
-
2;(setf pos-1-png (concatenate 'string (nth (move-png-pos) appli-service-list) "_fcs.png")) ;从list中获取icon名 (defvar ap
-
27现在正在学习实用common lisp教程,但是没有一个好用的开发环境,从前没有学习编程,所以有些笨拙。现在使用的是lispworks,但是三十天试用期快过了,希望大家能给一个windows好用的开发软件包,拜托大家了
-
4我在网上下的我不知道怎么安装啊,网上说“可以通过运行lispbox.bat (Windows) / lispbox.sh (Linux) / Emacs (OS X)开始Lispbox使用。”我不明白这是
-
3common lisp在现在值得去学习吗?感觉活跃的人很少呀,而且是不是过时了呢?现在还有木有在用?好迷茫。
-
27吧务勿删,我给大家介绍一个贴吧机器人,只要和她对话,大概两分钟后她就会回复您的贴子,很有趣,
-
2
-
5
-
0请问画1/4的命令怎么写 (command “arc”“c”p1 p2 p3) 这个怎么解释?是什么类型的?
-
4
-
0let不是不直接计算结果么,为什么可以用来人为规定计算顺序
-
17如题
-
5
-
6在sourceforge 搜 clisp 就有。 一共30M没图形界面的。 不用在emacs里玩lisp了
-
3代码一共有80多行,勉强能够使用 效率什么的估计就不行了,各种逻辑判断都比较简陋,要是有BUG请提出来 2楼代码
-
2我最喜欢lisp里面有关列表的东西,然后就是宏defmacro。
-
2有在上海的玩LISP的大神吗?想合作开发几个小工具,报酬丰厚啊
-
2到处都有人在默默的发财,只是所有的门对我都是关闭的,而且我没有钥匙,也不会开锁。
-
5用lisp写象棋的程序,有没有?
-
2(defun c:xhd(/ dwd r) (setq dwd(getpoint “inter dingweidian”)) (serq r 0.5) (setq pt1 (dwd(/ pi 2.0) 1)) (setq pt2 (pt1(/ pi 2.0) 0.5))
-
5(define fac ( (lambda (f) (lambda (n) (lambda (result) (if (= n 1) result (((f f) (- n 1)) (* n result)))) )) (lambda (f) (lambda (n) (lambd
-
0调用命令后给一个弧上点的坐标不可以,还是要选择圆弧或圆。
-
2冷清
-
0求助!!!!】如何屏蔽按ESC中途结束lsp程序时,提示【应用程序错误: 控制台中断】这个错误提示???