★飞诗寻梦坐标标注1.08版 (源码放送)
本帖最后由 飞诗(fsxm) 于 2011-9-15 12:18 编辑 <br /><br /> <span lang="EN-US"><span lang="EN-US" id="fps7"><font color="#ff0000"><div class="Section1" style="LAYOUT-GRID:18pt none;"><p class="MsoNormal" align="center" style="TEXT-ALIGN: center;"><span style="FONT-SIZE: 16pt; FONT-FAMILY: PMingLiU;"><font color="#000000">使用帮助</font></span></p><p class="MsoNormal"><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">程序操作</font></span></p><p class="MsoNormal" id="fps1"><font color="#000000">1).标注调用命令爲: fsxmzbbz /zbbz(坐标标注)</font></p><p class="MsoNormal" id="fps2"><font color="#000000">指令<span lang="EN-US">: zbbz</span></font></p><p class="MsoNormal" id="fps2"><font color="#000000">点选标注位置<span lang="EN-US">[选项(Option)/更新(Update)]:</span></font></p><p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -18pt;"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">1.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">选项<span lang="EN-US">(Option)调用参数设计对话框</span></font></span></p><p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -18pt;"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">2.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">更新<span lang="EN-US">(Update)跳转到手动更新命令.</span></font></span></p><p class="MsoNormal" id="fps1"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">2).手动更新命令是: fsxm_zbbz_update / Update</font></span></p><p class="MsoNormal" id="fps2"><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">与在<span lang="EN-US">zbbz命令选项中的Update功能相同</span></font></span></p><p class="MsoNormal" id="fps1"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">3).对话框参数:</font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">1.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">坐标系中各参数控制标注基准</font></span></p><p class="MsoNormal" id="fps5"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">a.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">原点<span lang="EN-US">X0</span></font></span></p><p class="MsoNormal" id="fps5"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">b.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">原点<span lang="EN-US">Y0</span></font></span></p><p class="MsoNormal" id="fps5"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">c.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">转角<span lang="EN-US">A0</span></font></span></p><p class="MsoNormal" id="fps6"><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">以上值均为<span lang="EN-US">WCS中的值</span></font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">2.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">标注控制</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">a.测量比例:测量比例单位长度转换功能，跟测量数值有关;</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">b.标注精度:控制标注值的小数码;</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">c.后缀消零:控制标注值后面字”补位零”是否显示;</font></span></p><p class="MsoNormal" id="fps7"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">c.自动更新:如开啓则标注后的图元在改变位置时,会启动反应器自动更新.</font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">3.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">样式设置<span lang="EN-US">.</span></font></span></p><p class="MsoNormal" id="fps7"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">a.出图比例：出图比例跟文本的高度有关，文本偏移量,等外形尺相联,与标注值没有关联.</font></span></p><p class="MsoNormal" id="fps7"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">b.坐标:有X/Y与Y/X两种,如果选Y/X则Y座标位于上方X位于下方,否则X座标位于上方Y位于下方.</font></span></p><p class="MsoNormal" id="fps7"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">c.标注样式:会控制标注綫,文本颜色,以及文本与标注綫之间的间隙等细节设置.</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">d. 标注图元使用的图层.</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">e. 标注文本使用的文本样式.</font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">4.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">文本</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">a.字高:此爲出图文本高度,文本在CAD中实高为:字高*出图比例</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">b.角度B0:爲文本与标注綫与WCS中X轴之夹角.</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">c.前缀:标注值的前缀文本</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">d.文本:文本替代如”<>”代表原定标注文本.</font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">5.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">十字标志</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">a.显示: 是否显示出十字标志 ON/OFF</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">b.大小: 十字标志出图大小,实际大小为:大小*出图比例</font></span></p><p class="MsoNormal" id="fps4"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">6.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">对象</font></span></p><p class="MsoNormal" id="fps6"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">a.此选项在标注时灰现禁用,在标注更新时用来选择要更新的对象.</font></span></p><p class="MsoNormal"><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">在双击模式下可以使用此功能如同<span lang="EN-US">”属性刷子”将属性复制给别的标注.</span></font></span><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000"> </font></span></p><p class="MsoNormal"><span lang="EN-US" style="FONT-FAMILY: pmingliu;"><font color="#000000">=======================================================================</font></span></p><p class="MsoNormal"><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">以上数据一经设置<span lang="EN-US">,均会自动保存,在下一次使用时会沿用保存的设置.</span></font></span><font color="#000000"> </font></p><p class="MsoNormal"><font color="#000000"></font></p><blockquote><p class="MsoNormal"><font color="#000000">在这之前曾参照了网上很多的坐标标注程序<span lang="EN-US">,集大成而写完成本程序,</span></font></p><p class="MsoNormal"><font color="#000000">特点有<span lang="EN-US">:功能强大 ,操作使用方便,具有很好的扩展性,</span></font></p><p class="MsoNormal"><font color="#000000">愿以我的努力为你打造一款完美的<span lang="EN-US">lisp坐标标注程序!</span></font></p><p class="MsoNormal"><font color="#000000">当然我从一开始就是向横越多个行业的通用坐标标注程序而开发的</font></p><p class="MsoNormal"><font color="#000000">可行与你的行业应用还是存在差别<span lang="EN-US">,如果本程序不适合你</span></font></p><p class="MsoNormal"><font color="#000000">真诚的希望以下坐标标注程序链结能给你带来惊喜<span lang="EN-US">:</span></font></p><p class="MsoNormal"><font color="#000000">1.<a href="http://www.xdcad.net/forum/showthread.php?s=&threadid=337741&perpage=15&display=&pagenumber=1">网络蜜蜂netbee的</a></font></p><p class="MsoNormal"><font color="#000000">2.<font face="宋体" size="2"><a href="http://www.xdcad.net/forum/showthread.php?s=&threadid=252846&perpage=15&display=&pagenumber=1">陈家平的</a></font></font></p><p class="MsoNormal"><font color="#000000">3.<a href="http://www.xdcad.net/forum/showthread.php?s=&threadid=205279&perpage=15&display=&pagenumber=1">841594的</a></font></p><p class="MsoNormal"><font color="#000000">4.<strong><font face="宋体"><a href="http://www.xdcad.net/forum/showthread.php?s=&threadid=381498&perpage=15&display=&pagenumber=1">xyp1964</a></font></strong></font></p><p class="MsoNormal"><font color="#000000">5.</font><font color="#000000"> 以链结上均来搜索自xdcad。。。还有很多没有收集</font></p></blockquote><p class="MsoNormal"><font color="#000000">小技巧<span lang="EN-US">:</span></font></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">1.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以在动态托动时用<span lang="EN-US">”O”键调用参数对话框,确定后即可见到修改效果.</span></font></span></p><p class="MsoNormal" id="fps8"><font color="#000000"> <span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;">相比在选点时[选项(O)]更具直观性和简捷性.</span></font></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">2.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以双击一个标注来查看并修改标注属性<span lang="EN-US">,幷可以使用”选择对象” 按扭将属性复制给别的标注.</span></font></span></p><p class="MsoNormal" id="fps8"><font color="#000000"> <span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;">(此处经highflybird建议后加上,在些致谢!)</span></font></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">3.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以打开<span lang="EN-US">”自动更新”,以后当你移动标注夹点时会自动更新标注值.</span></font></span></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">4.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">在手动更新时<span lang="EN-US">,你可以用”!”(惊叹号)来拒绝这个项目数据的更新.</span></font></span></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">5.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以修改自定义快捷键<span lang="EN-US">lsp文件,打造个性化的动态标注, </span></font></span></p><p class="MsoNormal" id="fps8"><font color="#000000"> <span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;">在动态托动时一触即发,实时观察参数改变的效果(强烈推荐!).</span></font></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">6.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">在重新打开时<span lang="EN-US">,”自动更新”属性为”ON”的标注,在加载程序后也可以自动更新,你不必使用手动更新.</span></font></span></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">7.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以使用<span lang="EN-US">Ctrl+C(copyclip命令), Ctrl+Shift+C(copybase命令),copy,array,等方法來產生標注.</span></font></span></p><p class="MsoNormal" id="fps8"><font color="#000000"> <span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;">复制而成标注之属性会依从复制原本,</span></font></p><p class="MsoNormal" id="fps8"><font color="#000000"> <span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;">比如”自动更新”属性为”ON”的复制而成标注也会在移动夹点时自动更新.</span></font></p><p class="MsoNormal" id="fps8"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">8.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">你可以使用我提供的坐标外挂工具<span lang="EN-US">,也可以自已定制外挂工具!</span></font></span></p><p class="MsoNormal"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000"></font></span></p><p class="MsoNormal"><font color="#000000">注意事项<span lang="EN-US">:</span></font></p><p class="MsoNormal"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><span id="fps9">1.<!--Element not supported - Type: 8 Name: #comment--><span id="fps9"> </span></span></font><!--Element not supported - Type: 8 Name: #comment--><span id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000">标注对象带有扩展数据<span lang="EN-US">,请你务必不要用具其它程序修改扩展数据, 否则更新功能将失效或出错!</span></font></span><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000"> </font><br> </span></p><p class="MsoNormal"><font color="#000000">希望以上资料能对你使用本程序有所帮助<span lang="EN-US">.如有疑问请联系作者</span></font></p><p class="MsoNormal"><font color="#000000">我的<span lang="EN-US">email: <a href="mailto:fsxm.acad@qq.com">fsxm.acad@qq.com</a></span></font><font color="#000000"> </font></p><p class="MsoNormal"><font color="#000000"></font></p><p></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#000000"></font></p><p class="MsoNormal"><font color="#000000"></font></p><p></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#000000"></font></p><p class="MsoNormal"><font color="#000000"></font></p><p></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#000000"><span lang="EN-US"></span></font></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#000000"></font></p><p></p><p class="MsoNormal"></p><p class="MsoNormal"><font color="#000000"><span lang="EN-US"></span></font></p><font color="#000000"></font><p></p><font color="#000000"><font size="2">程序更新历史<span lang="EN-US">:</span></font></font><font size="2"><span lang="EN-US" id="fps0" style="FONT-FAMILY: pmingliu;"><font color="#000000"> </font> </span></font><br> <p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.10★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">程序主体部分完成<span lang="EN-US">,AOTOCAD2004下调试通过.</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">此时无<span lang="EN-US">DCL对话框,所有参数均与标注样式dimstyle用临时反应器连接!</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">在<span lang="EN-US">CAD编程群中测试,各位热心的网友提出了很多好的建议</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">比如<span lang="EN-US">:标注比例不应与标注样式dimstyle关联等等</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">于是开始想搞一个对话框让用户自定义标注参数<span lang="EN-US">.</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.11★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">经过临时学习<span lang="EN-US">DCL终于写出了lisp生涯中第一个DCL对话框.</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">虽然很难看<span lang="EN-US">,还是觉等蛮高兴的!走出了第一个DCL才会有第二个,第三个......</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.12★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">开始写<span lang="EN-US">DCL的lisp调用函数~~~这的确是让我吃了不少苦头</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">发现<span lang="EN-US">DCL实在是难以控制,在这期问也曾放弃~~~</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">决定在<span lang="EN-US">VB中画了一个对话框写好类模块编绎成DLL箅了吧</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">用<span lang="EN-US">vlisp调出的结果让我很失望......可能是我VB只会一点皮毛吧</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">运行十多次后<span lang="EN-US">CAD居然当了~~~</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">再打开重试还是在运行十多次后<span lang="EN-US">CAD又是离奇出错退出~~~</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">这让我很失望<span lang="EN-US">.郁闷中......</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.13★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">调整心情<span lang="EN-US">,按照VB画好的对话框用DCL写出来了......</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">DCL界面终于可以告一个段落了......</font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.14★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">开始思索写配合<span lang="EN-US">DCL的lisp函数.</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">其问<span lang="EN-US">"Dream.Fei"发给我很多有关DCL的帮助文档</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">以及得到<span lang="EN-US">CAD编程群中众多热心人的技术+精神支持......</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">在这一并致至最诚执的感谢<span lang="EN-US">!</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.20★</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">泾过差不多一个星期的时间终于第一个带对话框的坐标标注程序</font></p><p class="MsoNormal"><font color="#000000"><font size="2">写出来了<span lang="EN-US">,这时回首一看嘿嘿!好家伙!居然调用兼控制取得DCL数据</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">的子程序<span lang="EN-US">dcl_Initialize.LSP,dcl_sub.lsp,zbbz.DCL居然加起来到了13K了</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">与主程序<span lang="EN-US">zbbz_main.LSP12.5K几乎是差不多大少了...... 晕倒中</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">(当然这里主要原因是我对DCL的结构不熟悉,以至于此吧!)</font></p><p class="MsoNormal"><font color="#000000"><font size="2">在<span lang="EN-US">CAD编程群中上传了"飞诗寻梦坐标标注测试版2007.04.20"</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">其问特别是<span lang="EN-US">"小李子"网友帮忙进行是许多细致的测试工作</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">让我修正了潜在在<span lang="EN-US">dcl_Initialize.LSP中的许多bug</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">以至改动优化部分达<span lang="EN-US">dcl_Initialize程序的20%左右~~~</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.21★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">在<span lang="EN-US">WWW.XDCAD.NET上传修正后的"飞诗寻梦坐标标注测试版2007.04.20"</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">因为这段时间<span lang="EN-US">XD不能下载文件,在XD上的测试几乎中断</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">但是热心的<span lang="EN-US">"highflybird"还是到的我的网络硬盘中下载了</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">并给了我非常好的建议<span lang="EN-US">!</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">"双击一个标注查看并修改标注属性"这个功能就是"highflybird"给出的建议!</font></p><p class="MsoNormal"><font color="#000000"><font size="2">这个功能成为了本程序相对于其它<span lang="EN-US">"lisp"版标注程序的一个亮点之一!</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">经过扩展后可以像<span lang="EN-US">"属性刷子"一样将属性传播给其它坐标标注.</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.24★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">到这一天清除了所有发现的<span lang="EN-US">bug~</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">升级了反应器为<span lang="EN-US">"模拟永反应器"</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">论重启后的图档在加载程序后也可以自动更新<span lang="EN-US">!</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">新增功能<span lang="EN-US">copy命令后的标注图元亦可自动更新!</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">感谢<span lang="EN-US">eachy版主在反应器方面给出许多珍贵资料链结!</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">一路下来幸慰的是<span lang="EN-US">:</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">1.有很多热心人的支持.</font></p><p class="MsoNormal"><font size="2"><font color="#000000">2.开始接触到DCL.也学习到很多反应器方面的知识.</font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.04.26★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">除去试用版中坐标系原点保存精度为<span lang="EN-US">0.0001的限制.</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">加入错误自动恢复<span lang="EN-US">,完善对话框智能纠错.</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">加入快速标注范例程序<span lang="EN-US">,预留快速标注接口.</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">于是<span lang="EN-US">:飞诗寻梦坐标标注V1.0出来了.</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.05.03★</span></font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">进行了一点小小的升级<span lang="EN-US">:</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">V1.01版开始支持多行文本特有的语法格式，如文本的分别着色，有兴趣的朋友可以试试。</font></p><p class="MsoNormal"><font size="2"><font color="#000000">这也本坐标标注程序使用多行文本MTEXT而非单行文本TEXT所独有的特色!</font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.05.05★</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">V1.01(Block) 版发布,以后将停止对非Block版的升级</font></p><p class="MsoNormal"><font color="#000000"><font size="2">文本部分使用匿名块形式<span lang="EN-US">,防意外修改,让托动更显平滑!</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">功能与用法与用法与非<span lang="EN-US">Block版基本一样!</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.05.18★</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">V1.02(Block) 版</font></p><p class="MsoNormal"><font color="#000000"><font size="2">新增缩放后自动调节为全局比例<span lang="EN-US">!</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">新增用<span lang="EN-US">ma格式刷直接刷外观属性!</span></font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.05.24★</span></font></font></p><p class="MsoNormal"><font color="#000000" size="2">V1.03(Block) 版</font></p><p class="MsoNormal"><font color="#000000"><font size="2">对组内图元使用<span lang="EN-US">dxf1005作索引,有效解决不支持CTRL+C的遗憾!</span></font></font></p><p class="MsoNormal"><font size="2"><font color="#000000">并通过优化再度加快了反应器程序运行效率<span lang="EN-US">!</span> </font><font color="#000000"> </font></font></p><p class="MsoNormal"><font color="#000000"><font size="2">★<span lang="EN-US">2007.05.25★</span></font></font></p><p class="MsoNormal"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><font size="2"><span lang="EN-US" id="fps10">V1.04(Block) 版</span></font></font></p><p class="MsoNormal"><!--Element not supported - Type: 8 Name: #comment--><font color="#000000"><font size="2"><span lang="en-us">完美解決copy的問題!至此所有預期功能均已實現!</span></font></font></p><p class="MsoNormal"></p></div></font></span><p class="MsoNormal"><font face="PMingLiU">希望以上资料能对你使用本程序有所帮助</font>.<font face="PMingLiU">如有疑问请联系作者</font></p><p class="MsoNormal">(飞诗寻梦坐标标注V1.01)Block版外挂中<font color="#006600">内附1.快速批量标注 2.输出坐标到excel.LSP 3.自定义热键.LSP</font></p><p class="MsoNormal"><font color="#006600">更新资料请关注我的网络硬盘: <a href="http://free.ys168.com/?fsxm">http://free.ys168.com/?fsxm</a></font></p><p class="MsoNormal"></p><p class="MsoNormal"></p><p></p></span><p><strong>2009-5-12 汶川大地震一周年．</strong></p><p>1.08版 修正3D模式下的坐标值错误！支持最新AutoCAD版本!</p><p></p><p>嗯！抱歉，这几天上明经！谢谢大家一直以为的支持！</p><p>最近要源程序的比较多，一个个发邮件有点麻烦!</p><p>我这就将源程序上传到明经来与大家一起分享哦！</p><p>1.08源程序：</p><p></p><p>说实话，这可是我写的第一个比较正式的程序了！</p><p>在这之前我只写过几个小小的程序！</p><p>从这个程序起，我才开始用到DCL与反应器！</p><p>到今天，回首一看．这个程序与算是基本上包括了Lisp的方方面面了！</p><p>＂动态＂托动+对话框+完整的反应器系统+文件读写+扩展数据+entmake各种对像.....</p><p>也许，就是这个程序让我开始对Lisp了解比以前更深入了！</p><p>因为我提供了程序接口，也希望主大家开发这个程序的外挂！</p><p>我程序包中有就三个外挂文件，1.快速批量标注，2.输出到excel 3.自定热键</p> 用着很好！就是每次使用结束保存文件会出现命令: _saveas ; 错误: 参数类型错误: lentityp nil不知道是哪里设置的问题坐标标注能否加入引线30度45度60度75度等角度的极轴对齐开关 感谢分享好东西
<p>觉得很好用，bug呢倒是基本没有</p><p>建议呢，提一点点。</p><p>1.就是能不能自定义标注层的属性，让标注的坐标可以换颜色，换图层名称？我画图的时候，要是想把坐标标注成红色。用这个工具就不能实现！</p><p>2.希望能实现批量标注。</p><p>3.就是改一下命令，不要再用ZBBZ了，用一个你自己的命令。</p> 本帖最后由 作者 于 2007-4-27 22:05:15 编辑 <br /><br /> <p>你可以用“标注样式”里的文字颜色来改坐标标注文字颜色</p><p>这里带了反应器你修动后是会自动更新的哦！</p><p>以上我在帮助里都有说明的啊~</p> 本帖最后由 作者 于 2007-5-26 22:42:49 编辑 <br /><br /> <p> </p><p>1.快速标注.LSP 批量标注子程序例子 可批量标注 圆心 pl线节点 直线端点 交点等~</p><p>2.输出坐标到excel.LSP </p><p>3.自定义热键.LSP 打造你自己的全动态标注</p><p></p><p>最新的：2007-05-15</p><p> </p><p> </p> 命令: nil<br/>命令: QDIMTEST .group 输入编组选项<br/>[?/排序(O)/添加(A)/删除(R)/分解(E)/重命名(REN)/可选(S)/创建(C)] <创建>: c<br/>输入编组名或 [?]: * 输入编组的说明:fsxm.dimpointid<br/>选择对象: 找到 4 个<br/>选择对象:<br/>命令: .group 输入编组选项<br/>[?/排序(O)/添加(A)/删除(R)/分解(E)/重命名(REN)/可选(S)/创建(C)] <创建>: c<br/>输入编组名或 [?]: * 输入编组的说明:fsxm.dimpointid<br/>选择对象: 找到 4 个<br/>选择对象:<br/>命令: nil FSXM快速标注外挂用不了啊 <p>为什么用不了？呵呵已于 "CAD编程(24942984)" 中经过很多测试均可以用！</p><p>如果你用不了原因可能有：</p><p>1。没有加载： <a href="http://www.mjtd.com/BBS/viewFile.asp?Boardid=3&ID=34384" target="_blank"><font color="#000000">飞诗寻梦坐标标注V1.01Block版</font></a> 因为快速标注是一个配套子程序主程序当然要加载！</p><p>2。先要用zbbz命令标注一个！（留作标注样板） 快速标注所有参数及外形将与这个样板相同！</p><p>3。a.标注选项，b.标注对象，c.标注样板 要同时存在时 确定按扭才会起作用！（DCL程序自动控制）</p><p>呵呵~你还不能用么？</p> <p>谢楼主分享，试试鲜</p> <p>已更新到v1.04请大家试用一下给个意见~多谢~</p> 帮大家就是帮自己，谢谢楼主