<p>坚决打击不加载偶的程序再又想读出坐标的非法行为~嘿嘿~！</p><p>我在主程序中都做好了读出坐标的接口了为什么不用哈？</p><p></p><p>当然如果你非要这么做也可以啊~</p><p>就是自己遍历我程序生成的标注块 中的文字值！</p>
我不会呀，飞哥，教 教我呀
(vl-load-com)
(setq *acad* (vlax-get-acad-object))
(setq *doc* (vla-get-ActiveDocument *acad*))
(defun dxf (dxf lst) (cdr (assoc dxf lst)))
(defun gethd (en)
(mapcar 'cdr
(cdar (dxf -3 (entget en '("fsxm_dimptid1005"))))
)
)
;;这个例子演示了如何取出飞诗坐标标注文字
(defun c:test ()
(setq ent (car (entsel "选择一个飞诗坐标标注：")))
(setq hd_lst (gethd Ent))
(setq leader (handent (car hd_lst)))
(setq hd_lst (gethd leader))
(setq textblk (handent (nth 1 hd_lst)))
(setq textblk_obj
(vla-item (vla-get-blocks *doc*) (dxf 2 (entget textblk)))
)
(setq Mtext1 (vla-get-TextString (vla-item textblk_obj 0)))
(setq Mtext2 (vla-get-TextString (vla-item textblk_obj 1)))
(alert (strcat Mtext1 "\n" Mtext2))
(list Mtext1 Mtext2)
)
<p>1.建议增加类似于天正建筑6.0中的坐标检查功能，即可以选取一个参考坐标做为标准，其他的坐标的正确性由参考坐标确定。如果参考坐标修改，则其他的坐标也相对于参考坐标进行修改。</p><p>2.希望在“设置”中增加改变”文字角度“的功能，现在的文字都是水平的，而有时候出图需要把图纸用UCS以一定角度出图。<br/>通过属性工具条也可以改变角度，但是希望能用”设置“直接标注出有角度的文字坐标。</p><p>3.被复制或者被移动过的标注，无法用”对象选取“改变特性。</p><p>4.希望能直接修改坐标标注的文字数值，就可以使得标注点自动标注到修改后的正确位置去。</p><p>5.飞诗寻梦坐标标注V1.04(Block版)调用命令:fsxmzbbz / zbbz -----fsxm2007.05.25</p><p>飞诗寻梦坐标标注外挂之:快速标注调用命今:qqdim-----fsxm2007.05.15<br/>; 错误: 输入的字符串有缺陷</p><p>加载了外挂和导入EXCEL后，功能正常，但是不知道为什么“输入的字符串有缺陷”？？<br/>是由于加了“导入EXCEL”引起的，不知道原因？<br/>但是单独加载“导入EXCEL”，却没有任何问题。</p><p>6.希望能参考天正建筑各个版本的功能，把好用的东西都加进去。</p><p>7.在快速标注的外挂中，“标注选项”能否增加“块的插入点”？<br/>因为标注桩的坐标的时候，经常把桩做成块，以桩的圆心做为插入点，方便修改桩径。<br/>如果能在“标注选项”增加“块的插入点”，就更方便了。</p><p><br/>8.不知道飞诗有没有兴趣，把这个程序扩展为一个桩的标注程序？把X=和Y=改为常用的桩的标注文字？多做几行</p>
你说的功能大部分都完成了！请下载最新的 var1.07版！
支持飞哥，做的比天正的坐标标注还好，yes..............
1.07版增加了什么功能，飞哥，搞个说明 呀
fsxm发表于2008-11-6 23:48:00static/image/common/back.gif你说的功能大部分都完成了！请下载最新的 var1.07版！
<p></p><p>我进不去你的博客</p><p>能不能上传到这里?</p>
<p><u><font color="#810081">到这里下载：</font></u><u><font color="#810081"><a href="http://fsxm.ys168.com">http://fsxm.ys168.com</a></font></u> ver1.07</p><p>这个好像在2006及以上下双击会出来CAD原来的面板</p><p>我过几天改一下！！~别的功能都正常！</p>
本帖最后由 作者 于 2008-11-8 10:13:19 编辑 <br /><br /> fsxm发表于2008-11-7 23:39:00static/image/common/back.gif到这里下载：http://fsxm.ys168.com ver1.07这个好像在2006及以上下双击会出来CAD原来的面板我过几天改一下！！~别的功能都正常！
<p></p><p>我的网络好象有问题,好多网盘我都进不去!</p><p>你的博客我进的去,网盘进不去</p><p><a href="mailto:?dhwl2009@163.com"><font color="#000000">能不能发到我的邮箱去?</font></a></p><p>谢谢</p><p>dhwl2009@163.com</p>