论坛 › A/VLISP › [LISP程序]：贡献几个自写的lisp函数

zml84 发表于 2006-9-25 15:09:42

[LISP程序]：贡献几个自写的lisp函数

附件"YYY.RAR"中共有4个lsp文件：测量绘制坐标（表格方式）.LSP、批量打印图纸.LSP、清除无用图元.lsp、YYY.LSP。

例如：YYY.LSP文件：
;;;===================================================
;;;本函数用于列表显示实体的DXF群组码。
(DEFUN C:yyy (/ el ent ct)
(while
    (= (setq el (entsel "\n请点选实体：")) nil)
)

(setq ent (entget (car el)))                ;设置 ent 为图元的数据关联表
(setq ct 0)                                ;设置 ct（计数器）为 0
(princ "\n实体DXF群组码如下:")
(repeat (length ent)                        ;重复次数为表中成员数。
    (print (nth ct ent))                ;打印当前成员后换行 。
    (setq ct (1+ ct))                        ;计数器加1。
)
(princ)
)
;;;===================================================

这几个小东东是我刚学习lisp是琢磨出来的，现在拿出来，愿与大家共享。

它山之石 发表于 2006-9-25 16:00:55

鼓励下啦

dailx 发表于 2009-8-5 11:38:10

不错

sw1169 发表于 2009-8-5 14:56:19

看一下

135135135 发表于 2009-8-10 09:30:15

楼主原创比较实用哟

cjwlyg 发表于 2009-9-2 23:21:07

程序实用谢了

xuyu 发表于 2009-9-2 23:54:50

怎么下不来啊

guohq 发表于 2009-9-3 08:24:41

下载不了

yinzhun22 发表于 2009-9-3 08:37:44

怎么下不来啊

sfjlx 发表于 2009-9-3 21:51:15

我也下载不了!明经有吗？可以发到那里吗？

myloveflyer 发表于 2009-9-4 11:07:05

支持一下!好东西!

lulurena 发表于 2009-9-7 13:25:34

批量打印图纸是很有用的！不用一个一个等待选曲了

maobangyan 发表于 2009-9-12 18:19:31

谢谢

pwhabc 发表于 2009-9-13 10:45:49

支持。

louyongzhong312 发表于 2009-9-14 01:34:43

看着还比较实用
谢谢楼主分享！

查看完整版本: [LISP程序]：贡献几个自写的lisp函数