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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

例如：YYY.LSP文件：
[PHP];;;===================================================
;;;本函数用于列表显示实体的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)
)
;;;===================================================
[/PHP]
这几个小东东是我刚学习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函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子