★飞诗寻梦坐标标注1.08版 (源码放送)

飞诗(fsxm)

坚决打击不加载偶的程序再又想读出坐标的非法行为~嘿嘿~！

我在主程序中都做好了读出坐标的接口了为什么不用哈？

当然如果你非要这么做也可以啊~

就是自己遍历我程序生成的标注块 中的文字值！

liminnet

我不会呀，飞哥，教 教我呀

飞诗(fsxm)

3. (vl-load-com)
4. (setq *acad* (vlax-get-acad-object))
5. (setq *doc* (vla-get-ActiveDocument *acad*))
6. (defun dxf (dxf lst) (cdr (assoc dxf lst)))
7. (defun gethd (en)
8.   (mapcar 'cdr
9.    (cdar (dxf -3 (entget en '("fsxm_dimptid1005"))))
10.   )
11. )
12. ;;这个例子演示了如何取出飞诗坐标标注文字
13. (defun c:test ()
14.   (setq ent (car (entsel "选择一个飞诗坐标标注：")))
15.   (setq hd_lst (gethd Ent))
16.   (setq leader (handent (car hd_lst)))
17.   (setq hd_lst (gethd leader))
18.   (setq textblk (handent (nth 1 hd_lst)))
19.   (setq textblk_obj
20.   (vla-item (vla-get-blocks *doc*) (dxf 2 (entget textblk)))
21.   )
22.   (setq Mtext1 (vla-get-TextString (vla-item textblk_obj 0)))
23.   (setq Mtext2 (vla-get-TextString (vla-item textblk_obj 1)))
24.   
25.   (alert (strcat Mtext1 "\n" Mtext2))
26.   (list Mtext1 Mtext2)
27. )

(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) )

XIAOFEILONG

1.建议增加类似于天正建筑6.0中的坐标检查功能，即可以选取一个参考坐标做为标准，其他的坐标的正确性由参考坐标确定。如果参考坐标修改，则其他的坐标也相对于参考坐标进行修改。

2.希望在“设置”中增加改变”文字角度“的功能，现在的文字都是水平的，而有时候出图需要把图纸用UCS以一定角度出图。
通过属性工具条也可以改变角度，但是希望能用”设置“直接标注出有角度的文字坐标。

3.被复制或者被移动过的标注，无法用”对象选取“改变特性。

4.希望能直接修改坐标标注的文字数值，就可以使得标注点自动标注到修改后的正确位置去。

5.飞诗寻梦坐标标注V1.04(Block版)调用命令:fsxmzbbz / zbbz -----fsxm2007.05.25

飞诗寻梦坐标标注外挂之:快速标注调用命今:qqdim-----fsxm2007.05.15
; 错误: 输入的字符串有缺陷

加载了外挂和导入EXCEL后，功能正常，但是不知道为什么“输入的字符串有缺陷”？？
是由于加了“导入EXCEL”引起的，不知道原因？
但是单独加载“导入EXCEL”，却没有任何问题。

6.希望能参考天正建筑各个版本的功能，把好用的东西都加进去。

7.在快速标注的外挂中，“标注选项”能否增加“块的插入点”？
因为标注桩的坐标的时候，经常把桩做成块，以桩的圆心做为插入点，方便修改桩径。
如果能在“标注选项”增加“块的插入点”，就更方便了。

8.不知道飞诗有没有兴趣，把这个程序扩展为一个桩的标注程序？把X=和Y=改为常用的桩的标注文字？多做几行

飞诗(fsxm)

你说的功能大部分都完成了！请下载最新的 var1.07版！

liminnet

支持飞哥，做的比天正的坐标标注还好，yes..............

liminnet

1.07版增加了什么功能，飞哥，搞个说明 呀

XIAOFEILONG

fsxm发表于2008-11-6 23:48:00你说的功能大部分都完成了！请下载最新的 var1.07版！

我进不去你的博客

能不能上传到这里?

飞诗(fsxm)

到这里下载：http://fsxm.ys168.com ver1.07

这个好像在2006及以上下双击会出来CAD原来的面板

我过几天改一下！！~别的功能都正常！

XIAOFEILONG

fsxm发表于2008-11-7 23:39:00到这里下载：http://fsxm.ys168.com ver1.07这个好像在2006及以上下双击会出来CAD原来的面板我过几天改一下！！~别的功能都正常！

我的网络好象有问题,好多网盘我都进不去!

你的博客我进的去,网盘进不去

能不能发到我的邮箱去?

谢谢

dhwl2009@163.com