[原创]：Autolisp编程心得(有"心得"别忘了往里面贴,加币&分!)

dicad_pro · 发表于 2005-3-26 15:06:41

楼主的lisp水平确实不错，我也小学了点，可就是很少用过，可能设计做的太少，一般CAD加专门软件感觉就构了，不知楼主怎样想的？

chuqi26 · 发表于 2005-3-26 20:19:18

编程不用太深，够用就行

ydtufei · 发表于 2005-3-30 15:05:18

我也准备学习LISP了,向朋友们致敬

jintly · 发表于 2005-4-7 10:49:17

感谢楼主提供，已经收藏下来，慢慢学习，看来我还很渺小啊～

ccyy_gyc · 发表于 2005-4-8 19:46:07

(defun c:hqd1 ()
(acet-ui-progress "已经完成" 100)
(setq x 0)
(while (< x 100)
 (princ (strcat "\n" (itoa x)))
 (acet-ui-progress -1)
 (setq x (1+ x))
)
(acet-ui-progress)
)

这些函数在ACAD2004中可用，但在R14、2000下不能用，对应的函数是什么，有谁知道。

pchx · 发表于 2005-4-8 22:34:00

谢谢，多多学习!~

zhangze_2003 · 发表于 2005-4-10 12:01:06

我都不知道我是什么东西的

cxg7608 · 发表于 2005-5-7 13:37:12

lisp 的乐趣在于解决实际中的不便

userzhluserzhl · 发表于 2005-5-25 13:11:30

晓东空间就是好，来了后学了不少东西，谢谢大家的共享！！

firstintimate · 发表于 2005-5-26 08:45:29

我的感觉是与其说是学lisp不如说是用lisp比较妥当
lisp就是用来解决实际问题的，为学而学是没有任何意义的
虽然用lisp的时间不长，但是还是有点经验教训：
1.编程时最好先有一个思路，写成伪代码后再改为lisp比较合理，尤其程序比较大的时候
2.最初编程的时候表什么都想完善，能实现自己的思路就可以了，其他慢慢再补充
3.最初错误处理和局部变量不要添加，否则影响调试，等工作都做完了再添加不迟
4.不要闷头大干，这是很忌讳的事情，多交流才是最有效的方法，包括学习他人程序，来bbs等

ttthhh_hb · 发表于 2005-10-20 02:36:12

最初由 ccyy_gyc 发布
[B](defun c:hqd1 ()
(acet-ui-progress "已经完成" 100)
(setq x 0)
(while (< x 100)
 (princ (strcat "\n" (itoa x)))
 (acet-ui-progress -1)
 (setq x (1+ x))
)
... [/B]

要装 ET扩展工具才能用。

whfdchst · 发表于 2005-10-20 10:52:18

想学LISP,不知从哪儿下手.

似水无痕 · 发表于 2005-10-23 13:23:07

我这里有一个小程序，也是在晓东里下载的，虽然简单，可是觉得这种输入方法值得借鉴，还希望高手不要笑话：

;;;==== ARCTEXT.LSP ==== rev: 12/13/87 ====================================
;;; As the name implies, this routine will let you write text on an arc.
;;; All your input from each run will become default values for
;;; subsequent runs, so you can undo (type "U") and rerun (type "AT"),
;;; changing values for character height, radius, or included angle
;;; until spacing looks good. Any text style should work, but make sure
;;; it is loaded with a height of 0.
;;;
;;; This routine is offered as "shareware". Feel free to use it and copy
;;; it for others. Please do not delete this header. If you find that it
;;; has been particularly useful and would like to encourage the author in
;;; similar endeavors, please send $19.00 to ......... Rich Perlman
;;; 2409 Amity Avenue
;;; Gastonia, NC 28054
;;; For custom programming, call ... (704) 867-1314
;;;----------------------------------------------------------------------------
(defun c:at ()
(setvar "cmdecho" 0)
(setq st (gtst "\n Enter string" st "")
ht (gtrl "\n Character height" ht (getvar "textsize"))
cp (gtpt "\n Center of arc" cp (list 0.0 0.0))
ra (gtrl "\n Radius" ra 0.0)
fd (gtrl "\n Included angle" fd 180.0)
sl (strlen st)
fa (/ (* fd pi) -180.0)
ai (/ fa (- sl 1))
a0 (/ (- pi fa) 2.0)
nn 0
ss1 (ssadd)
)
(while (< nn sl)
(setq ap (+ a0 (* nn ai))
pt (polar cp ap ra)
tr (- (/ (* 180.0 ap) pi) 90.0)
nn (+ nn 1)
)
(command "text" "m" pt ht tr (substr st nn 1))
(setq ss1 (ssadd (entlast) ss1))
)
(setq st st)
)
;---- GETSTRING WITH DEFAULT PROMPT ---------------------------------------
(defun gtst (prmpt currval dflt / fullstrg)
(if (equal currval nil)
(setq currval dflt)
)
(setq
response (getstring t (prompt (strcat prmpt " <" currval ">: ")))
)
(if (equal response "")
(setq currval currval)
response
)
)
;---- GETREAL WITH DEFAULT PROMPT -----------------------------------------
(defun gtrl (prmpt currval dflt / response)
(if (equal currval nil)
(setq currval dflt)
)
(setq response (getstring (prompt
(strcat prmpt " <" (rtos currval) ">: ")
)
)
)
(if (equal response "")
(setq currval currval)
(atof response)
)
)
;---- GETPOINT WITH DEFAULT PROMPT ----------------------------------------
(defun gtpt (prmpt currval dflt / response)
(if (equal currval nil)
(setq currval dflt)
)
(setq response (getpoint (strcat prmpt
" <"
(rtos (car currval))
","
(rtos (cadr currval))
">: "
)
)
)
(if (equal response nil)
(setq currval currval)
response
)
)
;============================================================================
(setq
z "ArcText.LSP by Rich Perlman, (704) 867-1314. Type AT to begin."
)

;;;====  ARCTEXT.LSP  ====  rev: 12/13/87  ==================================== 
                                        ;;;      As the name implies, this routine will let you write text on an arc. 
                                        ;;;      All your input from each run will become default values for 
                                        ;;;      subsequent runs, so you can undo (type "U") and rerun (type "AT"), 
                                        ;;;      changing values for character height, radius, or included angle 
                                        ;;;      until spacing looks good.  Any text style should work, but make sure 
                                        ;;;      it is loaded with a height of 0. 
                                        ;;; 
                                        ;;;      This routine is offered as "shareware".  Feel free to use it and copy 
                                        ;;;      it for others.  Please do not delete this header.  If you find that it 
                                        ;;;      has been particularly useful and would like to encourage the author in 
                                        ;;;      similar endeavors, please send $19.00 to .........  Rich Perlman 
                                        ;;;                                                          2409 Amity Avenue 
                                        ;;;                                                          Gastonia, NC 28054 
                                        ;;;                       For custom programming, call ...  (704) 867-1314 
                                        ;;;---------------------------------------------------------------------------- 
(defun c:at () 
  (setvar "cmdecho" 0) 
  (setq        st  (gtst "\n    Enter string" st "") 
        ht  (gtrl "\n    Character height" ht (getvar "textsize")) 
        cp  (gtpt "\n    Center of arc" cp (list 0.0 0.0)) 
        ra  (gtrl "\n    Radius" ra 0.0) 
        fd  (gtrl "\n    Included angle" fd 180.0) 
        sl  (strlen st) 
        fa  (/ (* fd pi) -180.0) 
        ai  (/ fa (- sl 1)) 
        a0  (/ (- pi fa) 2.0) 
        nn  0 
        ss1 (ssadd) 
  ) 
  (while (< nn sl) 
    (setq ap (+ a0 (* nn ai)) 
          pt (polar cp ap ra) 
          tr (- (/ (* 180.0 ap) pi) 90.0) 
          nn (+ nn 1) 
    ) 
    (command "text" "m" pt ht tr (substr st nn 1)) 
    (setq ss1 (ssadd (entlast) ss1)) 
  ) 
  (setq st st) 
) 
                                        ;----  GETSTRING WITH DEFAULT PROMPT  --------------------------------------- 
(defun gtst (prmpt currval dflt / fullstrg) 
  (if (equal currval nil) 
    (setq currval dflt) 
  ) 
  (setq 
    response (getstring t (prompt (strcat prmpt " <" currval ">: "))) 
  ) 
  (if (equal response "") 
    (setq currval currval) 
    response 
  ) 
) 
                                        ;----  GETREAL WITH DEFAULT PROMPT  ----------------------------------------- 
(defun gtrl (prmpt currval dflt / response) 
  (if (equal currval nil) 
    (setq currval dflt) 
  ) 
  (setq        response (getstring (prompt 
                              (strcat prmpt " <" (rtos currval) ">: ") 
                            ) 
                 ) 
  ) 
  (if (equal response "") 
    (setq currval currval) 
    (atof response) 
  ) 
) 
                                        ;----  GETPOINT WITH DEFAULT PROMPT  ---------------------------------------- 
(defun gtpt (prmpt currval dflt / response) 
  (if (equal currval nil) 
    (setq currval dflt) 
  ) 
  (setq        response (getpoint (strcat prmpt 
                                   " <" 
                                   (rtos (car currval)) 
                                   "," 
                                   (rtos (cadr currval)) 
                                   ">: " 
                           ) 
                 ) 
  ) 
  (if (equal response nil) 
    (setq currval currval) 
    response 
  ) 
) 
                                        ;============================================================================ 
(setq 
  z "ArcText.LSP by Rich Perlman, (704) 867-1314.  Type AT to begin." 
)

yin_12345678 · 发表于 2006-5-2 20:54:10

哪里可以下载dcl

hutusky · 发表于 2007-5-22 07:48:05

谢谢分享~~~~~~~~~~~~

账号		自动登录	找回密码
密码			立即注册