<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>晓东CAD家园-论坛 - LISP/VLISP程序库</title>
    <link>http://bbs.xdcad.net/forum-51-1.html</link>
    <description>Latest 20 threads of LISP/VLISP程序库</description>
    <copyright>Copyright(C) 晓东CAD家园-论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 06 May 2026 13:30:57 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://bbs.xdcad.net/static/image/common/logo_88_31.gif</url>
      <title>晓东CAD家园-论坛</title>
      <link>http://bbs.xdcad.net/</link>
    </image>
    <item>
      <title>选择幻灯片插入对应的图块</title>
      <link>http://bbs.xdcad.net/thread-730434-1-1.html</link>
      <description><![CDATA[选择幻灯片插入对应的图块]]></description>
      <category>LISP/VLISP程序库</category>
      <author>小虫一路狂奔</author>
      <pubDate>Thu, 05 Feb 2026 02:22:27 +0000</pubDate>
    </item>
    <item>
      <title>有没有纯lisp的版块</title>
      <link>http://bbs.xdcad.net/thread-727241-1-1.html</link>
      <description><![CDATA[想知道如何查看纯lisp，不需要开源函数库支持的lisp版块怎么查看。]]></description>
      <category>LISP/VLISP程序库</category>
      <author>xvjiex</author>
      <pubDate>Wed, 30 Dec 2020 01:55:12 +0000</pubDate>
    </item>
    <item>
      <title>面积统计</title>
      <link>http://bbs.xdcad.net/thread-727181-1-1.html</link>
      <description><![CDATA[求总面积源码，已实现框选，点选，配合F2查看面积总和，现想实现面积标注功能，求大侠修改一下。



;;MJ;;总面积
(defun c:MJ (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area) ;;总面积
(defun errexit (s)
(restore)
)

(defun undox ()
(command \&quot;. ...]]></description>
      <category>LISP/VLISP程序库</category>
      <author>俊超_CKgB8</author>
      <pubDate>Fri, 18 Dec 2020 11:07:48 +0000</pubDate>
    </item>
    <item>
      <title>求大侠修改一下面积统计LISP</title>
      <link>http://bbs.xdcad.net/thread-727175-1-1.html</link>
      <description><![CDATA[哪位大侠帮我修改一下，添加一个标注面积数字的功能，非常感谢！！！]]></description>
      <category>LISP/VLISP程序库</category>
      <author>俊超_CKgB8</author>
      <pubDate>Thu, 17 Dec 2020 17:59:10 +0000</pubDate>
    </item>
    <item>
      <title>如何批量导出CAD多段线起始点坐标和长度属性</title>
      <link>http://bbs.xdcad.net/thread-727035-1-1.html</link>
      <description><![CDATA[多段线有起始点属性吗？如何提取呢]]></description>
      <category>LISP/VLISP程序库</category>
      <author>代先森</author>
      <pubDate>Wed, 18 Nov 2020 09:16:47 +0000</pubDate>
    </item>
    <item>
      <title>求问该段程序运行后不能批量对选中的所有多段线添加起终点，只能对选中的第一条运行</title>
      <link>http://bbs.xdcad.net/thread-726873-1-1.html</link>
      <description><![CDATA[(defun c:tes ( / &amp;k1 &amp;kw1 p1 tc1)
  (princ \&quot;\\n请选择不封闭的曲线\&quot;)
  (if (setq &amp;kw1 (ssget \'((0 . \&quot;*LINE,ARC,HELIX,ELLIPSE\&quot;))))
    (progn
      (while (setq &amp;k1 (ssname &amp;kw1 0))
]]></description>
      <category>LISP/VLISP程序库</category>
      <author>代先森</author>
<enclosure url="/forum/(if (not (vlax-curve-isclosed &k1))
" length="  (" type="image/jpeg" />      <pubDate>Wed, 21 Oct 2020 06:17:58 +0000</pubDate>
    </item>
    <item>
      <title>谁能写个画垂线的lisp</title>
      <link>http://bbs.xdcad.net/thread-725004-1-1.html</link>
      <description><![CDATA[谁写个画垂线的lisp，能识别块里面的线，构造线，多短线]]></description>
      <category>LISP/VLISP程序库</category>
      <author>许健</author>
      <pubDate>Sat, 14 Dec 2019 14:22:56 +0000</pubDate>
    </item>
    <item>
      <title>求点集表中到指定图元最近的点</title>
      <link>http://bbs.xdcad.net/thread-724263-1-1.html</link>
      <description><![CDATA[请教各位大师
已知点集表和一个曲线类图元
求点集表中到指定图元最近的点
谢谢]]></description>
      <category>LISP/VLISP程序库</category>
      <author>ynhh</author>
      <pubDate>Thu, 03 Oct 2019 14:30:25 +0000</pubDate>
    </item>
    <item>
      <title>求助：求组一段lisp代码实现CAD中批量标注直径</title>
      <link>http://bbs.xdcad.net/thread-722904-1-1.html</link>
      <description><![CDATA[求助：求组一段lisp代码实现CAD中批量标注直径]]></description>
      <category>LISP/VLISP程序库</category>
      <author>xsw0904</author>
      <pubDate>Tue, 04 Jun 2019 04:06:50 +0000</pubDate>
    </item>
    <item>
      <title>询问Fas到Lsp</title>
      <link>http://bbs.xdcad.net/thread-721614-1-1.html</link>
      <description><![CDATA[大家好，兄弟
我是新成员，我想问一下反式Fas到Lsp。
任何人都可以做到吗？

Hi all, bro
Im a new member , i want ask about trans Fas to Lsp.
Anyone can do that ?]]></description>
      <category>LISP/VLISP程序库</category>
      <author>Beelan</author>
      <pubDate>Thu, 28 Mar 2019 07:16:33 +0000</pubDate>
    </item>
    <item>
      <title>CAD中提取多行和单行文字到EXECEL</title>
      <link>http://bbs.xdcad.net/thread-717621-1-1.html</link>
      <description><![CDATA[有人说我的这个小程序很好用
感觉好用的说声谢谢就可以了，呵呵！
也谢谢晓东家园让我学到了很多!
同时希望能认识更多的朋友，有铝单板设计和铝模板设计的吗？]]></description>
      <category>LISP/VLISP程序库</category>
      <author>wx_EKdL75Rx</author>
      <pubDate>Thu, 06 Sep 2018 03:07:25 +0000</pubDate>
    </item>
    <item>
      <title>轴测图转化工具</title>
      <link>http://bbs.xdcad.net/thread-716705-1-1.html</link>
      <description><![CDATA[网上搜集来的小工具，分享给需要的人]]></description>
      <category>LISP/VLISP程序库</category>
      <author>moranyuyan</author>
      <pubDate>Fri, 20 Jul 2018 05:17:25 +0000</pubDate>
    </item>
    <item>
      <title>多个lsp制作成VLX后部分LSP命令不能执行</title>
      <link>http://bbs.xdcad.net/thread-716233-1-1.html</link>
      <description><![CDATA[多个lsp制作成VLX，部分LSP命令不能执行，只有几个能用，但是单独加载LSP就可以用，为什么制作成VLX就不能用了，求大神指点，，谢]]></description>
      <category>LISP/VLISP程序库</category>
      <author>wsklyq</author>
      <pubDate>Sun, 24 Jun 2018 08:17:03 +0000</pubDate>
    </item>
    <item>
      <title>将任意line转三维并平移到WCS原点进行拉伸</title>
      <link>http://bbs.xdcad.net/thread-705240-1-1.html</link>
      <description><![CDATA[最近想实现以下功能，将曲线（如图所示lwpolyline或者polyline），当前的（x,y），转换为（xx,x,y）其中xx就是需要拉伸的方向，5根曲线，从上到下依次拉伸到（xx=-5000 15000 25000 36000 56000）.不知道应该怎么写这个程序，还望各位不吝赐教。最终的效果是三维线型原 ...]]></description>
      <category>LISP/VLISP程序库</category>
      <author>二哈哈和二哈</author>
      <pubDate>Wed, 31 Aug 2016 08:07:11 +0000</pubDate>
    </item>
    <item>
      <title>求大神指教，怎么把属性定义的值1改成01啊</title>
      <link>http://bbs.xdcad.net/thread-703808-1-1.html</link>
      <description><![CDATA[;;-----------------=={ AutoLabel Attributes }==---------------;;
;;                                                            ;;
;;  Automatically labels a specific attribute in a set of     ;;
;;  blocks, renumbering if blocks are added, copied or  .]]></description>
      <category>LISP/VLISP程序库</category>
      <author>295805987</author>
      <pubDate>Thu, 31 Mar 2016 08:13:05 +0000</pubDate>
    </item>
    <item>
      <title>用read-line函数读取txt文档的内容</title>
      <link>http://bbs.xdcad.net/thread-682042-1-1.html</link>
      <description><![CDATA[我想用函数read-line来读取txt文档的里的第一行第二个数据，请问程序应该怎样写下去？
这是我写的
(defun c:lzz7()
  (setq ff (open \&quot;D:\\\\work\\\\SMS_MP.txt\&quot; \&quot;r\&quot;))
  (read-line ff)
  )这是我txt文档的数据第一行   x=7   y=5   z=8第二行   56     26      23第三行  ...]]></description>
      <category>LISP/VLISP程序库</category>
      <author>1243745584</author>
      <pubDate>Mon, 15 Jun 2015 01:52:30 +0000</pubDate>
    </item>
    <item>
      <title>求助动态坐标反应器的操作</title>
      <link>http://bbs.xdcad.net/thread-679140-1-1.html</link>
      <description><![CDATA[最近用反应器制作了个动态坐标显示的东西，可惜只能照猫画虎做个连接到点实体的对象反应器来实现，无法做个自身随位置改变而改变的反应器。请相关高手伸出援助之手。下面放上我 的lisp代码和操作效果。奇怪的是如果同时移动点和文字，而文字会在原来的位置和新移动到的 ...]]></description>
      <category>LISP/VLISP程序库</category>
      <author>Newbuser</author>
      <pubDate>Thu, 15 Jan 2015 00:30:14 +0000</pubDate>
    </item>
    <item>
      <title>求助（指定样式坐标标注）</title>
      <link>http://bbs.xdcad.net/thread-679136-1-1.html</link>
      <description><![CDATA[求助编程大神解问题：
1.坐标标注的放在“坐标标注”图层2.纵断面与横断面交叉处标注里程号]]></description>
      <category>LISP/VLISP程序库</category>
      <author>暮雨寒阳</author>
      <pubDate>Wed, 14 Jan 2015 13:08:30 +0000</pubDate>
    </item>
    <item>
      <title>请教command rotate 的动态旋转问题</title>
      <link>http://bbs.xdcad.net/thread-677853-1-1.html</link>
      <description><![CDATA[问题是
（defun c:rt()
    (setq p1 (getpoint)
             p2 (getpoint)
             p3 (getpoint)
             )
    (command \&quot;pline\&quot; p1 p2 p3 \&quot;c\&quot;)
    (command \&quot;rotate\&quot; (setq pl (entlast)) \&quot;\&quot; p1)   ;完成动态旋转
    (command \&quot;bhatch\&quot; \&quot;s\&quot; pl \]]></description>
      <category>LISP/VLISP程序库</category>
      <author>hdztks</author>
      <pubDate>Thu, 04 Dec 2014 01:03:56 +0000</pubDate>
    </item>
    <item>
      <title>求个插件：能实现属性块与EXCEL电子表格的双向存取</title>
      <link>http://bbs.xdcad.net/thread-676289-1-1.html</link>
      <description><![CDATA[dejin：求个插件：能实现属性块与EXCEL电子表格的双向存取。各位大虾有没好的推介 ]]></description>
      <category>LISP/VLISP程序库</category>
      <author>dejin</author>
      <pubDate>Wed, 01 Oct 2014 12:05:34 +0000</pubDate>
    </item>
  </channel>
</rss>