[LISP程序]：有感于lsp程序

saoaduan

在网站上看了那么就久，同时自己也在写。
我觉写一个程序最重要的就是  简单
用最简单的方法解决一个复杂的过程，语言的掌握多与少并不重要，关键在与对过程的的理解。

ljpnb

我来说几句，写程序思路要清晰，命令要熟悉，程序最终的操作过程要简便，越傻瓜越好，而且编写过程中，应当尽可能多考虑一些特殊情况，比如有些时候需要选择一条直线（其实可能用到的就是直线的两个端点），但如果没有直线可选时，应当可以来个空回复，紧接着就是可以选择任意两个点，这只是一个小小的情况。希望大家能互相学习、共同提高。

xyp1964

简单不是目的（不是让人看的），实用、人性化才是根本。

sdwy19691229

我觉得没有最好的程序. 好是相对的
对每个人而言.
实用就是好的.

JOSDENNIS

有使用價值才可以體現出程序的好和差. 如你光自己寫自己用再好的程序也只能在你身邊發揮出作用. 也沒有好和差的比較吧. 呵呵!!

leeyuan

程序要简单实用才好，写的过程中要对该程序的目的清晰

aeo

程序关键是要有创意，或者能解决问题

至于程序内部的好坏，写的多了，自然会好的。（多看也很关键)

比如学数学，小学的时候，你可能会考100分，现在你再去做那种题目，也100分吧，但是你感到有区别吗：现在你站的高度不一样了.

saoaduan

对于个人而言，其实一个程序的目的，仅仅在于解决一个问题。程序的特殊性很以后的发展性，其实个人认为不重要，我自己本身也写过一个复制文字内容的命令，在操作的过程中，有的文字的选择、判断到后面的循环，如果的真的考虑起来那就大有文章可做了。但是我就仅仅用了一句  repeat 10000    对我来说这已经足够了。


;;文字刷

(defun c:ta ( / ent ent0 ent_date ent0_date ywz_list gwz_list)
   (setq ent (entsel "\n请选择源文字："))
   (setq ent_date (entget (car ent)))
   (setq ywz_list (assoc 1 ent_date))
   (princ ywz_list)
   (setq ent0 (entsel "\n请选择目标文字："))
   (repeat 10000                             ;;重复10000次
     (progn
       (setq ent0_date (entget (car ent0)))
       (setq gwz_list (assoc 1 ent0_date))
       (setq ent0_date (subst ywz_list gwz_list ent0_date))
       (entmod ent0_date)
       (setq ent0 (entsel "\n请选择目标文字："))
     )
   )
   (princ)
)
(prompt  "\n******ta--文字刷******")
(princ)

狂刀

用while不更好?

onej

为何repeat 10000 ?

saoaduan

用while，我们还有去思考，怎么样这个条件才会成立，repeat 10000 对于普通的我们来说已经很够用了

david96007

最初由 saoaduan 发布
[B]用while，我们还有去思考，怎么样这个条件才会成立，repeat 10000 对于普通的我们来说已经很够用了 [/B]

话很实在！因为有好多时候，我们写的程序只是自己来用的！以前我的程序没有错误处理，后来慢慢加上了，但现在写的又没有了！原因是：以前的程序要进行初始化处理，现在我尽量不做初始化处理！以前用command比较多，现在我基本上不用了！

winabcd

我写程序大都是自己用或给周围的人用的，所以我认为实用、能达到目的就行。
大家别笑话我，我写程序从来就不进行错误处理，程序运行不了，大不了两下ESC，没什么的。没必要花那个时间和精力来写一个能处理各种情况的程序，我的程序既不发表，又不出售，达到我的目的就行。

lijiao

错误处理还是必要的，可以通盘考虑一下，设计个通用的即可。
程序的关键是创新的思维，我认为，我们写不出好的程序，不是没有手段，而是没有新的思路。

覃海洋

个位的精神我很佩服 ~
有待一天我也会向各位学习的