<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>晓东CAD家园-论坛 - A/VLISP</title>
    <link>http://bbs.xdcad.net/forum-14-1.html</link>
    <description>Latest 20 threads of A/VLISP</description>
    <copyright>Copyright(C) 晓东CAD家园-论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Fri, 11 Sep 2026 12:05:46 +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-730636-1-1.html</link>
      <description><![CDATA[创建边界.支持LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,MLINE,CIRCLE,ELLIPSE,HELIX；注意线重叠无效。各种线遵循原先线型，不作更改。


;;;显示边界线.
(defun zdqwy19xianshibianjiexian(/ e o s u p1 i l1 l2 ss _hit-test)
  (defun _hit-test ( pt lst )
    (vl-som ...]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Tue, 01 Sep 2026 23:10:56 +0000</pubDate>
    </item>
    <item>
      <title>右键取值</title>
      <link>http://bbs.xdcad.net/thread-730625-1-1.html</link>
      <description><![CDATA[本程序根据右键菜单编写而成，去掉了原先文字选择函数，使用扩展数据函数。]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Sun, 09 Aug 2026 23:04:19 +0000</pubDate>
    </item>
    <item>
      <title>隧道中线  间距   边线点  环号  坐标导出</title>
      <link>http://bbs.xdcad.net/thread-730614-1-1.html</link>
      <description><![CDATA[(defun C:sdhjs (/ ss ent distTotal step offset lx ptFoot ptNext tanAng norAng ptOff num txtPt opt reverseFlg startDist fpath fobj)
  (vl-load-com)
  (setvar \&quot;CMDECHO\&quot; 0)
  ;;自动创建【环号】图层
  (if (not (tblsearch \&quot;LAYER\&quot; \&quot;环号\&quot;))
    (entmake \'(( ...]]></description>
      <category>A/VLISP</category>
      <author>gaomingabc456</author>
      <pubDate>Fri, 31 Jul 2026 11:53:39 +0000</pubDate>
    </item>
    <item>
      <title>正十七边形</title>
      <link>http://bbs.xdcad.net/thread-730577-1-1.html</link>
      <description><![CDATA[;|正十七边形做法。
1.给一圆O，作两垂直的直径AB、CD.
2.在OA上作E点使OE=1/4AO,连结CE.
3.作∠CEB的平分线EF.
4.作∠FEB的平分线EG,交CO于P.
5.作∠GEH=45°,交CD于Q.
6.以CQ为直径作圆,交OB于K.
7.以P为圆心,PK为半径作圆,交CD于L、M.
8.分别过M、L作CD的垂线,交圆O ...]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Tue, 30 Jun 2026 22:55:56 +0000</pubDate>
    </item>
    <item>
      <title>圆形面板</title>
      <link>http://bbs.xdcad.net/thread-730548-1-1.html</link>
      <description><![CDATA[圆形面板]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Wed, 03 Jun 2026 22:55:01 +0000</pubDate>
    </item>
    <item>
      <title>换算两点坐标</title>
      <link>http://bbs.xdcad.net/thread-730546-1-1.html</link>
      <description><![CDATA[换算两点坐标，关于align的命令。]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Tue, 02 Jun 2026 22:09:12 +0000</pubDate>
    </item>
    <item>
      <title>多重引线文字编号，坐标值写入指定文件</title>
      <link>http://bbs.xdcad.net/thread-730544-1-1.html</link>
      <description><![CDATA[多重引线文字编号，坐标值写入指定文件]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Mon, 01 Jun 2026 22:13:01 +0000</pubDate>
    </item>
    <item>
      <title>桩参数设置，多重引线坐标标注</title>
      <link>http://bbs.xdcad.net/thread-730542-1-1.html</link>
      <description><![CDATA[桩参数设置，多重引线坐标标注]]></description>
      <category>A/VLISP</category>
      <author>zdqwy19</author>
      <pubDate>Sun, 31 May 2026 22:20:03 +0000</pubDate>
    </item>
    <item>
      <title>孤岛问题</title>
      <link>http://bbs.xdcad.net/thread-730457-1-1.html</link>
      <description><![CDATA[用lisp怎样查找填充孤岛]]></description>
      <category>A/VLISP</category>
      <author>hnjzwql</author>
      <pubDate>Wed, 11 Mar 2026 22:34:03 +0000</pubDate>
    </item>
    <item>
      <title>“实参太少”是怎么回事？</title>
      <link>http://bbs.xdcad.net/thread-730411-1-1.html</link>
      <description><![CDATA[(defun c:ReadExcelColumn (/ excelApp workBook workSheet filePath 目标列 列数据)
  (VL-load-com)
    ; ===================== 1. 必改参数（仅需修改这2行）=====================
    (setq filePath \&quot;D:\\\\Test.xlsx\&quot; ; ??  Excel文件完整路径（双反斜杠！）
    ...]]></description>
      <category>A/VLISP</category>
      <author>挚友02</author>
      <pubDate>Thu, 20 Nov 2025 10:27:49 +0000</pubDate>
    </item>
    <item>
      <title>属性块属性值复制</title>
      <link>http://bbs.xdcad.net/thread-730401-1-1.html</link>
      <description><![CDATA[套图框的时候，图框是个属性框，一个一个拷太麻烦了，用deepseek生成了一个代码，蛮好用的。]]></description>
      <category>A/VLISP</category>
      <author>ld_117</author>
      <pubDate>Thu, 28 Aug 2025 09:13:55 +0000</pubDate>
    </item>
    <item>
      <title>XDRX-API  没有 旧版下载？</title>
      <link>http://bbs.xdcad.net/thread-730398-1-1.html</link>
      <description><![CDATA[XDRX-API   没有旧版下载？

目前下载的2025-4-27版本  运行后提示   不是有效的32位程序

windows XP  32位
CAD2004

请问大神旧版在哪里下？]]></description>
      <category>A/VLISP</category>
      <author>ysq101</author>
      <pubDate>Mon, 04 Aug 2025 07:04:52 +0000</pubDate>
    </item>
    <item>
      <title>关于vla最小包围盒问题的求助</title>
      <link>http://bbs.xdcad.net/thread-730397-1-1.html</link>
      <description><![CDATA[好久没有发言了，最近一直在学习高飞鸟的最小包围盒代码，对于连续尺寸标注对象，我用（vlax-invoke-method obj \'GetBoundingBox \'llp \'urp）为什么非正交的对齐标注生成的包围盒会比正交的大一圈，我参考了leemac的包围盒函数，他是用复制对象旋转与轴对齐之后再求包围 ...]]></description>
      <category>A/VLISP</category>
      <author>a117034423</author>
      <pubDate>Sun, 03 Aug 2025 09:56:41 +0000</pubDate>
    </item>
    <item>
      <title>在选择CAD明或暗背景时如何【自动】调用明或暗图标？？？？？</title>
      <link>http://bbs.xdcad.net/thread-730343-1-1.html</link>
      <description><![CDATA[ZWCAD和AutoCAD是否一样？]]></description>
      <category>A/VLISP</category>
      <author>挚友02</author>
      <pubDate>Mon, 12 May 2025 01:15:56 +0000</pubDate>
    </item>
    <item>
      <title>程序中 用command 切换到WCS坐标系 不起作用是什么原因？</title>
      <link>http://bbs.xdcad.net/thread-730323-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>A/VLISP</category>
      <author>yandong28</author>
      <pubDate>Fri, 09 May 2025 15:01:21 +0000</pubDate>
    </item>
    <item>
      <title>帮忙看一下command命令自动生成图块的程序出问题</title>
      <link>http://bbs.xdcad.net/thread-730322-1-1.html</link>
      <description><![CDATA[帮忙看一下程序，该程序将command命令自动生成的图元转换成图块，程序在-BLOCK和-INSERT参数好像都有问题，不知道如何修改？


源码如下：


(defun c:tkcreate ()
    ;; 生成图块函数

      (setvar \&quot;cmdecho\&quot; 0)
     ;; 保存生成前的最后一个实体   
      (setq o ...]]></description>
      <category>A/VLISP</category>
      <author>八块腹肌笑出来</author>
      <pubDate>Wed, 30 Apr 2025 07:56:00 +0000</pubDate>
    </item>
    <item>
      <title>AutoLISP 中的 wcmatch 函数与 pattern 详解</title>
      <link>http://bbs.xdcad.net/thread-730315-1-1.html</link>
      <description><![CDATA[AutoLISP 中的 wcmatch 函数与 pattern 详解
wcmatch 是 AutoLISP 中用于字符串模式匹配的函数，类似于其他编程语言中的正则表达式，但语法更简单。它使用 通配符（wild-card characters） 来定义匹配规则。
1. wcmatch 函数的基本语法
(wcmatch \&quot;str\&quot; \&quot;pattern\&quot;)

[*]s ...]]></description>
      <category>A/VLISP</category>
      <author>marting</author>
      <pubDate>Mon, 07 Apr 2025 03:39:14 +0000</pubDate>
    </item>
    <item>
      <title>高程点外围复合线并注记面积</title>
      <link>http://bbs.xdcad.net/thread-730294-1-1.html</link>
      <description><![CDATA[高程点外围复合线并注记面积]]></description>
      <category>A/VLISP</category>
      <author>杜阳</author>
      <pubDate>Sat, 15 Feb 2025 09:00:37 +0000</pubDate>
    </item>
    <item>
      <title>老师好，请教点选多个对象和设置颜色号的问题，谢谢</title>
      <link>http://bbs.xdcad.net/thread-730293-1-1.html</link>
      <description><![CDATA[各位老师好，请教两个问题：
1、能不能用entsel点选多个对象？
2、通过人机输入颜色号，修改实体颜色
以下代码是修改实体的颜色
(Defun c:cs ()

(setq 图元 (entsel \&quot;\\n 选择一个对象 \\n \&quot;))

(while (not 图元)
(setq 图元 (entsel \&quot;\\n 选择一个对象 \\n \&quot;)) #希望能在 ...]]></description>
      <category>A/VLISP</category>
      <author>xdcad9819</author>
      <pubDate>Sat, 15 Feb 2025 05:29:38 +0000</pubDate>
    </item>
    <item>
      <title>用VLISP如何生成二维码？？？？？？？？</title>
      <link>http://bbs.xdcad.net/thread-730292-1-1.html</link>
      <description><![CDATA[在网上找了一遍关于用VLISP如何生成二维码的方法，试着修改了一下，有几处不明，请高手们多多指教。。。。




Vlisp 二维码生成
Vlisp 是一种编程语言，主要用于 AutoCAD 的 LISP 编程。虽然 Vlisp 本身并不直接支持二维码生成，但你可以通过调用外部工具或库来实现这 ...]]></description>
      <category>A/VLISP</category>
      <author>挚友02</author>
      <pubDate>Tue, 11 Feb 2025 00:53:10 +0000</pubDate>
    </item>
  </channel>
</rss>