介紹一下 AutoLISP 程式

有學生問到一個 AutoLISP 程式設計的需求，
這是一個很典型的 AutoLISP 題目，非常適合用來教學，
所以，把它 po 在這邊分享。
程式裡面已經有詳細的注解，他的目的是 讓使用者在
AutoCAD 裡面選擇一些圖元，這個程式會幫他加總線段的
總長度，大家 欣賞欣賞。

cpp 代码

; file: sum-01.LSP

; (cal-dist p1 p2)
(defun cal-dist(p1 p2 / x1 x2 y1 y2 dx dy)
  (setq x1 (car p1) x2 (car p2)
    y1 (cadr p1) y2 (cadr p2))
  (setq dx (- x2 x1) dy (- y2 y1))

  (eval (sqrt (+ (* dx dx) (* dy dy))))
  ); end of cal-dist()
; -----------------------------------------------

(defun c:sum-line( / s1 l1 p1 p2)
  (princ "\nSelect some LINEs: ")
  (setq s1 (ssget))
  (setq l1 (sslength s1))

  ; for i=0 to (i < l1) do ...
  (setq i 0 l2 0 sum1 0.0)
  (while (< i l1)
    (setq e1 (ssname s1 i)); get ent. name
    (setq et1 (entget e1)); get ent. content

    (setq str1 (cdr (assoc 0 et1)) ); get ent. type, LINE or CIRCLE
    (if (eq str1 "LINE")
      (progn
    (setq p1 (cdr (assoc 10 et1)))
    (setq p2 (cdr (assoc 11 et1)))
    (setq sum1 (+ sum1 (cal-dist p1 p2)))

        (setq l2 (1+ l2))
    ); end progn
      ); end if

    (setq i (1+ i))
    ); end of while

  (princ (strcat "\nNumber of LINEs be sumed: " (itoa l2) "\n"))
  (princ (strcat "Total length= " (rtos sum1 2 6 ) "\n" ))

  (princ)
  ); end of sum-line()
; end of file

评论

7 楼 sjgau 2006-12-16  

jxb8901 写道

让我回想起了N年前的那一段时光，说来我还是通过autolisp才走进编程的大门，此后一发不可收拾。
现在FP好似又热起来了，但当时写autolisp时根本不知道她和函数式编程有什么关系，而且一直也都是把autlisp当作命令式语言来使用。
现在做编程的估计很少有人会使用autocad的，职业程序员使用autolisp的恐怕就更少了，所以楼主在这里推介autolisp，响应的人就很少。

另：楼主给的那个链接打不开

http://www.jefferypsanders.com/

我從台灣 連過去 ，很容易啊！從來沒有問題。
他也有提供 java, java script 的教學喔

AutoLISP 是我接觸的第 n 套語言，
我的語言學習順序是 fortran 4, BASIC, fortran 77, LISP
AutoLISP, pascal, LOGO, C,

6 楼 jxb8901 2006-12-16  

让我回想起了N年前的那一段时光，说来我还是通过autolisp才走进编程的大门，此后一发不可收拾。
现在FP好似又热起来了，但当时写autolisp时根本不知道她和函数式编程有什么关系，而且一直也都是把autlisp当作命令式语言来使用。
现在做编程的估计很少有人会使用autocad的，职业程序员使用autolisp的恐怕就更少了，所以楼主在这里推介autolisp，响应的人就很少。

另：楼主给的那个链接打不开

5 楼 sjgau 2006-12-13  

lighter 写道

对于AutoLISP 程式完全不懂,门外汉

沒關係，欣賞！欣賞！
集諸子百家大成，才能融會貫通。
有好處，沒壞處。

4 楼 lighter 2006-12-13  

对于AutoLISP 程式完全不懂,门外汉

3 楼 sjgau 2006-12-13  

謝謝 回覆！

2 楼 easygodg 2006-12-13  

sjgau 写道

http://www.jefferypsanders.com/autolisptut.html

上面的網頁是 AutoLISP 程式設計 在線教學，
免費

不错，很有帮助阿

1 楼 sjgau 2006-12-12  

http://www.jefferypsanders.com/autolisptut.html

上面的網頁是 AutoLISP 程式設計 在線教學，
免費