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

飞诗(fsxm)

2. (setq en (car (entsel)))  ;请选中坐标标注中的引线测试
3. (setq a (entget en '("*")))
4. ;|取得数据如下：
5. ((-1 . <图元名: 7ef94550>)
6.   (0 . "LEADER")
7.   (5 . "17A")
8.   (102 . "{ACAD_XDICTIONARY") ;这个是用vlax-ldata-put生成的！
9.   (360 . <图元名: 7ef94568>)  ;存储了各种标注参数（见后面的）
10.   (102 . "}")
11.   (102 . "{ACAD_REACTORS")    ;这个是生成的group
12.   (330 . <图元名: 7ef945b0>)
13.   (102 . "}")
14.   (330 . <图元名: 7ef92cf8>)
15.   (100 . "AcDbEntity")
16.   (67 . 0)
17.   (410 . "Model")
18.   (8 . "FSXM-DIMPTID")
19.   (100 . "AcDbLeader")
20.   (3 . "FSXM-DIMPTID")
21.   (71 . 0)
22.   (72 . 0)
23.   (73 . 3)
24.   (74 . 1)
25.   (75 . 0)
26.   (40 . 0.0)
27.   (41 . 0.0)
28.   (76 . 2)
29.   (10 26.4533 36.797 0.0)
30.   (10 19.3158 48.8152 0.0)
31.   (340 . <图元名: 0>)
32.   (211 1.0 0.0 0.0)
33.   (210 0.0 0.0 1.0)
34.   (212 0.0 0.0 0.0)
35.   (213 0.0 0.0 0.0)
36.   (-3 ("fsxm.dimpointid" (1000 . "LEADER"))
37.       ("ACAD" (1000 . "DSTYLE") ;这个是CAD的标注引数参数
38.        (1002 . "{")
39.        (1070 . 41)
40.        (1040 . 3.5)
41.        (1070 . 40)
42.        (1040 . 1.0)
43.        (1002 . "}")
44.       )
45.       ("fsxm_dimptid1005"       ;这个是自定义的用来存储ctrl+c模式时的图元关联情况(1005组码特有的功能)
46. (1005 . "17A")
47. (1005 . "179")
48. (1005 . "17B")
49. (1005 . "17C")
50.       )
51.   )
52. )
53. |;
55. (setq b (entget (cdr (assoc 360 a))))
56. ;|这个就是用 vlax-ldata-put生成的 图元字典
57. ((-1 . <图元名: 7ef94568>)
58.   (0 . "DICTIONARY")
59.   (330 . <图元名: 7ef94550>)
60.   (5 . "17D")
61.   (100 . "AcDbDictionary")
62.   (280 . 1)
63.   (281 . 1)
64.   (3 . "fsxm.dimdata")
65.   (360 . <图元名: 7ef945b8>) ;就是这个了！存储了全部标注参数(见后面的)
66.   (3 . "fsxm_dim_modified")
67.   (360 . <图元名: 7ef945c0>) ;这个是用来控制是不是自动更新的
68. )
69. |;
70. (cdr (assoc 300 (entget (cdr (assoc 360 b)))))
71. ;;"(("point0" (&VLO-R . 0) (&VLO-R . 0)) ("reverse_xy" . "X/Y") ("dim_bzbl" &VLO-R . 1) ("dim_bzjd" . 2) ("dim_hzxl" . "OFF") ("layout" . "V") ("_txt1" . "X=") ("_txt2" . "Y=") ("textstring1" . "{\\\\C2;<>}") ("textstring2" . "{\\\\C2;<>}"))"
72. (cdr (assoc 300 (entget (cdr (assoc 360 (reverse b))))))
73. ;;""ON""
74. ;;还可以这样取出来(vlax-ldata-list en)
75. ;|
76. (("fsxm_dim_modified" . "ON")
77.   ("fsxm.dimdata"
78.     ("point0" 0.0 0.0)
79.     ("reverse_xy" . "X/Y")
80.     ("dim_bzbl" . 1.0)
81.     ("dim_bzjd" . 2)
82.     ("dim_hzxl" . "OFF")
83.     ("layout" . "V")
84.     ("_txt1" . "X=")
85.     ("_txt2" . "Y=")
86.     ("textstring1" . "{\\C2;<>}")
87.     ("textstring2" . "{\\C2;<>}")
88.   )
89. )
90. |;

(setq en (car (entsel)))  ;请选中坐标标注中的引线测试 (setq a (entget en '("*"))) ;|取得数据如下： ((-1 . <图元名: 7ef94550>)   (0 . "LEADER")   (5 . "17A")   (102 . "{ACAD_XDICTIONARY") ;这个是用vlax-ldata-put生成的！   (360 . <图元名: 7ef94568>)  ;存储了各种标注参数（见后面的）   (102 . "}")   (102 . "{ACAD_REACTORS")    ;这个是生成的group   (330 . <图元名: 7ef945b0>)   (102 . "}")   (330 . <图元名: 7ef92cf8>)   (100 . "AcDbEntity")   (67 . 0)   (410 . "Model")   (8 . "FSXM-DIMPTID")   (100 . "AcDbLeader")   (3 . "FSXM-DIMPTID")   (71 . 0)   (72 . 0)   (73 . 3)   (74 . 1)   (75 . 0)   (40 . 0.0)   (41 . 0.0)   (76 . 2)   (10 26.4533 36.797 0.0)   (10 19.3158 48.8152 0.0)   (340 . <图元名: 0>)   (211 1.0 0.0 0.0)   (210 0.0 0.0 1.0)   (212 0.0 0.0 0.0)   (213 0.0 0.0 0.0)   (-3 ("fsxm.dimpointid" (1000 . "LEADER"))       ("ACAD" (1000 . "DSTYLE") ;这个是CAD的标注引数参数        (1002 . "{")        (1070 . 41)        (1040 . 3.5)        (1070 . 40)        (1040 . 1.0)        (1002 . "}")       )       ("fsxm_dimptid1005"       ;这个是自定义的用来存储ctrl+c模式时的图元关联情况(1005组码特有的功能) (1005 . "17A") (1005 . "179") (1005 . "17B") (1005 . "17C")       )   ) ) |; (setq b (entget (cdr (assoc 360 a)))) ;|这个就是用 vlax-ldata-put生成的 图元字典 ((-1 . <图元名: 7ef94568>)   (0 . "DICTIONARY")   (330 . <图元名: 7ef94550>)   (5 . "17D")   (100 . "AcDbDictionary")   (280 . 1)   (281 . 1)   (3 . "fsxm.dimdata")   (360 . <图元名: 7ef945b8>) ;就是这个了！存储了全部标注参数(见后面的)   (3 . "fsxm_dim_modified")   (360 . <图元名: 7ef945c0>) ;这个是用来控制是不是自动更新的 ) |; (cdr (assoc 300 (entget (cdr (assoc 360 b))))) ;;"(("point0" (&VLO-R . 0) (&VLO-R . 0)) ("reverse_xy" . "X/Y") ("dim_bzbl" &VLO-R . 1) ("dim_bzjd" . 2) ("dim_hzxl" . "OFF") ("layout" . "V") ("_txt1" . "X=") ("_txt2" . "Y=") ("textstring1" . "{\\\\C2;<>}") ("textstring2" . "{\\\\C2;<>}"))" (cdr (assoc 300 (entget (cdr (assoc 360 (reverse b)))))) ;;""ON"" ;;还可以这样取出来(vlax-ldata-list en) ;| (("fsxm_dim_modified" . "ON")   ("fsxm.dimdata"     ("point0" 0.0 0.0)     ("reverse_xy" . "X/Y")     ("dim_bzbl" . 1.0)     ("dim_bzjd" . 2)     ("dim_hzxl" . "OFF")     ("layout" . "V")     ("_txt1" . "X=")     ("_txt2" . "Y=")     ("textstring1" . "{\\C2;<>}")     ("textstring2" . "{\\C2;<>}")   ) ) |;

wwwliuyu

非常感谢飞诗寻梦讲解.

liminnet

飞诗大哥，建议：

1、对于标出来的点进行编号，因为往往要把坐标值 导成表格来查看，如果没有编号那不知道那个点是那个点啦，因为现在程序的是用句柄来表示，这样不好的，建议编号放在点的附近，不要与坐标数值放在一起，是否要编号做个开关，有需要说明时会用到编号的。希望飞诗大哥帮帮我。

2、建议测量比例填空处，帮小弟一下帮我改改，本人是搞建筑的，一般总图不是用米画的就是用毫米画的，如果我勾选了用米画的，飞诗大哥，请帮我自动把测量比例改为1；如果我勾选了用毫米画的，飞诗大哥，请帮我自动把测量比例改为0.001，之所以要这样求飞诗大哥，是因为过段时间没用这个程序后，会忘了当用毫米画总图时是什么测量比例啦，所以才求飞诗大哥，帮我改一下啦，至于有其他测量比例要求的专业，自己可以手动输入到填空中，我提的希望飞诗大哥帮帮我。

3、在用批量标坐标时，提过建议，就是应该标出来的坐标数据的方面应该是以该点的外角的平分角来放置才是对的，请看下图所示，左边是错，右边才是对的，这样打印出来给别人看才叫画图有水平，要不一个一个来调好累的啦，飞诗大哥，帮帮忙撒

 

 

liminnet

飞大哥，可 以按我的意见改一份我吗？我永远支持你

飞诗(fsxm)

1.编号功能我可以做个“批量编号”的外挂程序！~

  因为大多数人都不用编号的~就算要编号，大家的编号形式~也没有一个统一的权威性标准！

  做成外挂程序可以有效解决这个问题！

2.这个功能我一有空就加上~！~嘿嘿

3.批量标注，又不是只用来标注多线哈~不可能做出你要求的功能！

  我可以发这个“批量标注外挂”的源程序给你！你自己按自己的要求改写一下就行了！

  如果写好了记得请上传到我E盘空间中与大家共享哦~！！

liminnet

飞哥，要是你的程序中可以把导入EXCEL的表格也能导入CAD中那简直就是天下无敌啦，希望能看到这个突破，因为我不想再借用第三方软件来实现这个功能啦，好像天正

pente

非常好，可以自己交东西上去，不知道主程序有没有限制？

飞诗(fsxm)

liminnet：呵~我可没本事做个什么万能程序！天下无敌乍的可能呢！

我只做好坐标标注这个功能就算了（导出坐标到excel就是附加功能了呢），

至于导入excel的数据还是交给别的程序吧！

pente：完全免费，不用注册，没有任何功能限制。。。

zctao1966

支持，更加支持你这种耐心的讲解精神，

值得我学习！！！

liminnet

飞哥，如果没有加载你的程序打开有你坐标标注的图，怎么样才能读出你的值呀，不炸开的情况