<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>tzfcn@晓东CAD家园</title>
    <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606</link>
    <description>晓东CAD家园-论坛</description>
    <copyright>Copyright(C) 晓东CAD家园-论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Fri, 04 Sep 2026 14:07:47 +0000</lastBuildDate>
    <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>双线等分（e派）</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1224</link>
      <description><![CDATA[;; tt(双线等分)  (defun c:tt ()  &amp;nbsp; (xyp-Start)  &amp;nbsp; (xyp-MkLaCo &quot;TEST&quot; 3)  &amp;nbsp; (setq int (Uint 7 &quot;&quot; &quot;等分数&quot; int))  &amp;nbsp; (if (and (setq s1 (car (entsel &quot;\n选择: &quot;)))  &amp;nbsp; &amp;nbsp;(xyp-etype s1 &quot;line&quot;)  &amp;nbsp; &amp;nbsp;(setq s2 (car (entsel &quot;\n选择: &quot;)))  &amp;nbsp; &amp;nbsp;(xyp-etype s2 &quot;line&quot; ...]]></description>
      <author>tzfcn</author>
      <pubDate>Wed, 07 Sep 2016 02:15:59 +0000</pubDate>
    </item>
    <item>
      <title>螺栓轨迹</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1223</link>
      <description><![CDATA[(defun c:luo(/ ls_en ls_pg ls_bj ls_pt1 ls_pt2 ls_pt3 ls_dqst ls_zdst)  &amp;nbsp; (setq ls_en &amp;nbsp;(entsel &quot;\n请选取需要三维的螺栓&quot;))  &amp;nbsp; (while ls_en  &amp;nbsp; (setq ls_pg (substr(cdr(assoc 2(entget (car ls_en))))1 1))  &amp;nbsp; (if (or(= ls_pg &quot;a&quot;)(= ls_pg &quot;b&quot;)(= ls_pg &quot;c&quot;)(= ls_pg &quot;d&quot;))  &amp;nbsp; &amp;n ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:49:57 +0000</pubDate>
    </item>
    <item>
      <title>常用词库（e派）</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1222</link>
      <description><![CDATA[;; cyck(常用词库) 2015-02-03  (defun c:cyck (/ ilst klst lst0)  &amp;nbsp; (xyp-Start)  &amp;nbsp; (defun main-pro (/ p1)  &amp;nbsp; &amp;nbsp; (while (setq p1 (getpoint &quot;\n基点&amp;lt;退出&amp;gt;: &quot;))  &amp;nbsp; &amp;nbsp; &amp;nbsp; (xyp-Text 5 p1 t1)  &amp;nbsp; &amp;nbsp; )  &amp;nbsp; )  &amp;nbsp; (defun ali1 ()  &amp;nbsp; &amp;nbsp; (setq tx (nth (atoi ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:46:44 +0000</pubDate>
    </item>
    <item>
      <title>曲线门</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1221</link>
      <description><![CDATA[;---&amp;gt;曲线门主程序  (defun c:11-59a();曲线门与玻璃门     (setvar &quot;cmdecho&quot; 0)     (setq os (getvar &quot;osmode&quot;))     (setq oldclayer (getvar &quot;clayer&quot;))     (setvar &quot;osmode&quot; 0)     (getdoorbaspp)     (subdemodoor1)     (initget &quot;Yes No&quot;)     (setq mirr (getkword &quot;\n镜射另一片门吗？  &amp;lt;N&amp;gt;:&quot;))     (if ( ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:44:33 +0000</pubDate>
    </item>
    <item>
      <title>20面体 lisp</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1220</link>
      <description><![CDATA[(defun c:1-20()     (setq r (getint &quot;\n球半径&amp;lt;10&amp;gt;：&quot;))     (if (null r) (setq r 10.0))     (setq&amp;nbsp;      d (list 0.0 0.0 0.0);球心      d0 (list 0.0 (- 0.0 r) 0.0);底点      d1 (list ;21最左点         (- 0 (* r (cos (/ pi 6))))&amp;nbsp;         (- 0 (* r (sin (/ pi 6))))         0       &amp;nbsp;      ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:37:24 +0000</pubDate>
    </item>
    <item>
      <title>20面体 lisp</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1219</link>
      <description><![CDATA[(defun c:1-20()     (setq r (getint &quot;\n球半径&amp;lt;10&amp;gt;：&quot;))     (if (null r) (setq r 10.0))     (setq&amp;nbsp;      d (list 0.0 0.0 0.0);球心      d0 (list 0.0 (- 0.0 r) 0.0);底点      d1 (list ;21最左点         (- 0 (* r (cos (/ pi 6))))&amp;nbsp;         (- 0 (* r (sin (/ pi 6))))         0       &amp;nbsp;      ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:37:15 +0000</pubDate>
    </item>
    <item>
      <title>封闭图形面积代码</title>
      <link>http://bbs.xdcad.net/home.php?mod=space&amp;uid=750606&amp;do=blog&amp;id=1218</link>
      <description><![CDATA[;; 2016-08-19 tt(封闭图形面积)  (defun c:tt ()  &amp;nbsp; (xyp-Start)  &amp;nbsp; (princ &quot;\n选择实体: &quot;)  &amp;nbsp; (setq   i &amp;nbsp;-1     qf '((0 . &quot;*POLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE,REGION&quot;))  &amp;nbsp; )  &amp;nbsp; (if (setq ss (ssget qf))  &amp;nbsp; &amp;nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))  &amp;nbsp; &amp;n ...]]></description>
      <author>tzfcn</author>
      <pubDate>Tue, 06 Sep 2016 22:34:59 +0000</pubDate>
    </item>
  </channel>
</rss>