[日积月累]：让CAD在启动中自动加载lisp程序的方法（续）

szcoolcat

前些时发了一个"让CAD在启动中自动加载lisp程序的方法",看到能帮助有同样问题的人，很高兴。我现在一直还是用R14，知道2000以上版有启动组可以加，所以这种方法只是针对R14的用户。因为要用天正3嘛。
另外再告诉一种使用lisp中自动加载的方法。因为平时用的lisp程序有很多，本人就有几十条，如果一一这么加载也很麻烦。我用的一种方法是将十条左右的lisp程序合并成一个大的lisp文件，这样自动加载这一个lisp文件的话，里面的命令就都可以使用了。当然建议不要加得太多，十条左右就可以了。
下面是我用的一个lisp文件：
;;;  Written by szcoolcat in NOV 2004
;;;NO.1  COMMAND NAME: add.lsp    Function:将所选数字相加
;;;NO.2  COMMAND NAME: QE.lsp     Function:连接多义线
;;;NO.3  COMMAND NAME: ref.lsp    Function:清除垃圾
;;;NO.4  COMMAND NAME: 12.lsp     Function:显示图纸路径
;;;NO.5  COMMAND NAME: pgp        Function:在CAD中编辑pgp文件

;;;NO.6  COMMAND NAME: rq.lsp     Function:显示出日期
;;;NO.7  COMMAND NAME: pd.lsp     Function:坡度、水平距离画线
;;;NO.8  COMMAND NAME: stpo.lsp   Function:画楼梯剖面

[B];;;NO.1  COMMAND NAME: add.lsp    Function:将所选数字相加[/B]
(defun c:add (/ unit ssel no1 no2 count)
    (princ "\nSelect numbers to add:  ")
    (setq ssel (ssget) no2 0 count 0)
        (if ssel........（这之后节省篇幅省略）

[B];;;NO.2  COMMAND NAME: QE.lsp   Function:连接多义线[/B]
(defun po( / pl en pts ver mark i mk pln pln1 key epln opt1  ptl
             d1 d2 p1 p2 lastp ud ppts pent z)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (command "undo" "c" "all").......
后面的就是每个lisp命令的源代码，但要和前面的NO数字对上就OK了。

注意上面;;;NO.1-----NO.8,这样，每条lisp命令看得又明白，相当于加了个解释，再用以前我讲的方法调这一个lisp程序，那么这其中的lisp命令就都能用了。呵呵，希望我能讲得比较明白，大家不明白得我再跟贴!!!

mage

我想要你的lisp程序啊，呵呵

zzhnewid

这种方法不错，前面用列表简介，后面的也分界，很清楚，方便查询和使用，谢谢

xuexicad

怎么使用？？？

szcoolcat

改天我把自已的lisp程序都编好给大家下，不过主要是针对R14的，且是建筑专业的，呵。楼上什么不明白没写清。希望大家给点鼓励，觉得好跟个帖，thank you!!!!!

林杉

怎么在启动组里也不行呢?我按上面的方法做了,可在启动CAD时,还是不行的.

ps122

对呀，把lsp程序也传上来啊

Ramann

这种方法不错

li809

还是不懂，请教详细些

hksunnye

楼主能把你的lisp都发上来么？那样就好了！偶特喜欢你的集中使用法！偶也收集了一堆lisp，欧和你交换如何?偶得邮箱：hn99999@126.com.你给我法国来我把我的送过去!!

li809

共享不要忘了大家
baoshun01@163.com