lisp这个数据如何提取呀?

;| 求点到一条直线的垂点 |;(defun $xdlsp_geom_perppt (p0 p1 p2 / an)(setq an (angle p1 p2))(cond ((inters p1 p2 p0 (polar p0 (+ an _pi2) 10000)nil ))(p0)))

;;设置空表ss3 (setq ss3 '());;循环提取ss的对象 ;;取得数据对象，提取坐标@p1及内容#k；(setq i 0 ss1 (ssname ss i) ss2 (entget ss1) @p1 (cdr (assoc 10 ss2)) #k (cdr (assoc 1 ss2)) i (+ i 1));;设置空表ss3，坐标及内容为一个表加入ss3 (setq ss3 (cons ...

text-color)(ssdel ent ss))(princ "文字样式和颜色已修改。"))(princ "未找到文字对象。")))请注意，这是一个简单的示例，仅适用于修改当前选择集中的文字对象。你可以根据自己的需求进行修改和扩展。记得在AutoCAD中加载Lisp程序并调用(modify-text-style-and-color)命令来执行修改操作。

用函数vl-file-copy复制一个临时文件，然后一边读取，一边写入内容，写好以后删除临时文件即可。;最后一行写入数据;ff1是文件路径加文件名【例："D://数据保存//数据.txt"】,tr1是文本【例："最后一行数据"】(defun w1712121 (ff1 tr1 / f1 f2 ff1 ff2 tr1 tr2) (setq ff2 (strcat (vl-file...

呵呵，难得碰见问lisp的人，冲这个也得好好回答 lisp本身就是cad所属的开发程序，他提供一些简单的函数计算，剩下的就全是针对autocad的绘图功能了。lisp程序类似与数据库中的存储过程，可以批量的处理绘制cad图形。学习lisp是很简单的，只要掌握了几个主要命令的使用就行，就是对语句格式要求很研，本身...

最基本的如下先选取两个文字对象，分别得到它们的图元数据，取得它们的文本内容，将文本内容连接起来，替换掉第一个文字对象的图元数据里边的文字内容一项，这样就把它们连接到一起了，把另一个文字对象删除掉 (DEFUN TEXTJOIN(E1 E2 / T1 T2)(SETQ T1(ENTGET E1)T2(ENTGET E2))(ENTMOD(SUBST (...

1、打开CAD，点击“插入”→“OLE对象”。2、弹出如图所示对话框，新建excel工作表。3、确定后Excel会打开一个新的工作表，表示在CAD里使用，同时的CAD里面也会出现一个待编辑的表格。4、可以把以前的数据格式复制到这个表格里，也可以重新制作表格，所有的格式都会在CAD里面体现出来，并同时更新，编辑完...

楼主要描述清楚点

用一门语言自己的数据结构来表达该语言,这被证明是非常强大的功能。思想8和思想9,意味着你可以写出一种能够自己编程的程序。这可能听起来很怪异,但是对于Lisp语言却是再普通不过。最常用的做法就是使用宏。 术语"宏"在Lisp语言中,与其他语言中的意思不一样。Lisp宏无所不包,它既可能是某样表达式的缩略形式,也可...

AutoLisp代码可以在任意的文本编辑器中创建.不过AutoCAD也提供了Visual Lisp编辑器,可以支持语法高亮,调试编译什么的.打开Visual Lisp编辑器有两种方式：1. AutoCAD2008及之前的版本，在菜单栏“工具(Tools)"下面，选择”AutoLisp"--->"Visual Lisp编辑器".(”AutoLisp"--->"导入应用"这个命令是用来加载A...