分享lisp程序

zhihaomeng

下面的程序可以将CAD中的文字的三维坐标以文本文件的格式导出！

(defun C:dd ()
(setq ss2 (ssget '((0 . "MTEXT"))))
  (setq n 0)                      ;;;;将索引号初始为0.
(setq shitigeshu (sslength ss2)) ;;;返加选择集中实体个数。
(repeat shitigeshu
(setq stb (entget (ssname ss2 n))) ;;;返回选择集中指定索引号的列表
(setq mc (assoc 1 stb)) ;;;;在列表中找与关键字相同的元素，点对表，文字内容
(setq nr (cdr mc)) ;;;反回点对表中的第二个元素，文字内容。
(setq zblb (assoc 10 stb)) ;;;返回坐标列表。
(setq xzb (nth 1 zblb)) ;;;;返回X坐标。
(setq xzbzh (rtos xzb)) ;;;将X坐标转换为字符串。
(setq yzb (nth 2 zblb)) ;;;;返回y坐标
(setq yzbzh (rtos yzb)) ;;;;;将y坐标转换为字符串。
(setq zzb (nth 3 zblb)) ;;;;;返回z坐标。
(setq zzbzh (rtos zzb)) ;;;;;;将z坐标转换为字符串。
(setq hecheng (strcat nr " "  xzbzh " " yzbzh " " zzbzh))
(setq wj (open "e:/new.txt" "a"))
(write-line hecheng wj)
(setq n (+ 1 n))
)
  (close wj)
)

wuhuihong

这玩意是干吗用的啊 我怎么搞不懂啊 还请明示

ZZXXQQ

1、将一楼的内容剪贴到WINDOWS的记事本中；

2、另存为DD.LSP文件；

3、进入ACAD；

4、加载DD.LSP；可以用下拉菜单：工具--加载应用程序；

5、键入DD运行程序；

6、根据提示选择MTEXT文本就行了。

sony-lin

这个对2次数字化有很好的作用!

zgzzsn

对地形图处理有用

数据文件存在     e:/new.txt

redhat2001

小弟请教：我用lisp写一段代码 当我在cad命令行执行他时 cad自动加载 我自己写的菜单文件.mns 如何写这个.lsp
也就是说 在.lisp 中我想定义一个个人命令比如："(defun c:dq ( / &mod )"  并以dq.lsp保存
当我再cad命令行中输入dq 他就会自动加载 我自己写的菜单文件.mns  dq.lsp如何写呢？？ 高手帮帮忙啊   雪地跪求。

yoyoho

感谢楼主分享程序!

longer1000

楼主高手，想学太难了