[LISP程序]：本人想学习lisp语言,请问有最简单的lisp程序吗

monkey8805

本人想学习lisp语言,请问有最简单的lisp程序吗
有的话,最好多给几个,我想按照前辈们的格式,或者思路开始学习
谢谢

gysjy

以下是一个绘制箭头线的程序：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:jt (/ p1 p2 ang p3)          ;绘制箭头线的lisp
   
5.   (setvar "orthomode" 0)              ;取消正交模式
   
6.   (setvar "osmode" 0)                 ;取消捕捉模式
   
7.   (setvar "plinewid" 0)               ;设置初始宽度为0
   
8.   (setq p1 (getpoint "箭头起点:"))    ;赋予第一点     
   
9.   (setq p2 (getpoint "箭头终点:" p1)  ;赋予第二点
   
10.         ang (angle p2 p1)             ;求出两点间的方向角
    
11.         p3 (polar p2 ang 300)         ;设置第三点在p1、p2连线上，且距第二点为300
    
12.   )
    
13.   (command "pline" p1 p2 "w" "0" "100" p3 "")
    
14.   ;绘制了一个箭头线，箭头头部长300，宽100
    
15.   (princ)                             ;使程序"安静"地退出
    
16. )
    
17. 
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:jt (/ p1 p2 ang p3)          ;绘制箭头线的lisp<br />   (setvar "orthomode" 0)              ;取消正交模式<br />   (setvar "osmode" 0)                 ;取消捕捉模式<br />   (setvar "plinewid" 0)               ;设置初始宽度为0<br />   (setq p1 (getpoint "箭头起点:"))    ;赋予第一点     <br />   (setq p2 (getpoint "箭头终点:" p1)  ;赋予第二点<br />         ang (angle p2 p1)             ;求出两点间的方向角<br />         p3 (polar p2 ang 300)         ;设置第三点在p1、p2连线上，且距第二点为300<br />   )<br />   (command "pline" p1 p2 "w" "0" "100" p3 "")<br />   ;绘制了一个箭头线，箭头头部长300，宽100<br />   (princ)                             ;使程序"安静"地退出<br /> )<br /> <br />   [/FONT]<br />

malongwen

; 0  实体类型      5 实体索引名        67                  8  层名
; 90 控制点数     70 0开口 1封闭       43                 38 高度
; 39 厚度         40 起点线宽          41 末点线宽        
; 10 点位
; 42 弧段弓弦比 = 弓高/(弦长/2)


(Defun C:fanxiang ()
       (While (Progn (SetQ pen (Car (EntSel "\n指定一条LWPolyline: ")))
                     (/= "LWPOLYLINE" (Cdr (Assoc 0 (EntGet pen))))
              )
              (Alert "所指对象不是 LWPolyLine，请重新指定...")
       )                                              ;指定LWPolyLine
       (SetQ pe (EntGet pen)                         ;取出对象数据表
             pel (Member '(100 . "AcDbPolyline") pe) ;取出其中的有关数据
             pln (Cdr (Assoc 90 pel))                 ;取出控制点数量
       )
       (SetQ pan 6         ;数据读取序号初值
             wpl '()       ;自建的点位数据表
             mm '()
             i 0
             j 0
       )
       (Repeat pln
               (SetQ plp (Nth pan pel)       ;取出控制点点位
                     wpl (Cons plp wpl) ;将数据加到WPL表中
               )
               (SetQ pan (+ 4 pan))                ;序号步进
       )
       (Repeat pln
               (SetQ wpli (Nth i wpl)       ;取出控制点点位
                     mm (Cons wpli mm) ;将数据加到mm表中
                     mm (cons (cons 40 0.0) mm)
                     mm (cons (cons 41 0.0) mm)
                     mm (cons (cons 42 0.0) mm)
                )
               (SetQ i (+ 1 i))                ;序号步进
       )
       (setq mm (cons '(210 0.0 0.0 1.0) mm))
       (setq m (reverse mm))
       (setq kk (assoc 39 pe))
       (setq ff (reverse pe))
       (setq hh (member kk ff))
       (setq le (length hh))
       (Repeat le
               (SetQ bb (Nth j hh)
                     m (Cons bb m)
                )
               (SetQ j (+ 1 j))                ;序号步进
       )      
       (setq pe m)
       (entmod pe)
       (princ)
)

雨箭风刀

来个简单的：
(defun c:hello ()
  (alert "hello,lisp")
)

zml84

推荐一些：： http://zml84.blog.sohu.com/entry/3933137/#entry

lch007

看了还是不太理解！

KERRYWM

给你一个简单的。
(DEFUN C:AA()
  (ALERT "hOW ARE YOU?")
  (PRINC "FINE, THANK YOU")
)

mayubao2008

有点看不懂啊