baobaowang 发表于 2009-5-13 17:38:00

搞定了，谢谢

liminnet 发表于 2009-5-14 16:33:00

<p>;;;===========================快速标注子函数===========================<br/>(defun fsxm_dimpointid_ptlst (dim_data ptlst / fsxm_q_dimpointid)<br/>&nbsp; (defun fsxm_q_dimpointid (point1 point2)<br/>&nbsp;&nbsp;&nbsp; (Initialize)<br/>&nbsp;&nbsp;&nbsp; (calc_textstring)<br/>&nbsp;&nbsp;&nbsp; (dim:entmake)<br/>&nbsp;&nbsp;&nbsp; (dim:all_mod)<br/>&nbsp;&nbsp;&nbsp; (add_update)<br/>&nbsp;&nbsp;&nbsp; (add_group)<br/>&nbsp; )<br/>&nbsp; (vla-StartUndoMark *doc*)<br/>&nbsp; (fsxm_dimpointid<br/>&nbsp;&nbsp;&nbsp; '(progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (foreach a dim_data (apply 'set a))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (foreach 2pt ptlst (apply 'fsxm_q_dimpointid 2pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (vla-EndUndoMark *doc*)<br/>)</p><p>问两个事，飞哥，用这段代码生成的标注后，我还可以向里面添加扩展数据吗？如果添加了会不会影响你本身有的呀，还有你的扩展数据怎么会有种啊</p><p>命令: (entget (car(entsel)) '("*"))</p><p>选择对象: ((-1 . &lt;图元名: 7ef10a38&gt;) (0 . "INSERT") (5 . "487") (102 . <br/>"{ACAD_XDICTIONARY") (360 . &lt;图元名: 7ef10a70&gt;) (102 . "}") (102 . <br/>"{ACAD_REACTORS") (330 . &lt;图元名: 7ef10aa0&gt;) (102 . "}") (330 . &lt;图元名: 7ef06cf8&gt;) <br/>(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "koyote-DIMPTID") (100 . <br/>"AcDbBlockReference") (2 . "*U35") (10 1681.34 1998.36 0.0) (41 . 1.0) (42 . <br/>1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 <br/>1.0) (-3 ("koyote_dimptid1005" (1005 . "488"))))</p><p>命令: (entget (car(entsel)) '("*"))</p><p>选择对象: ((-1 . &lt;图元名: 7ef10a40&gt;) (0 . "LEADER") (5 . "488") (102 . <br/>"{ACAD_XDICTIONARY") (360 . &lt;图元名: 7ef10a58&gt;) (102 . "}") (102 . <br/>"{ACAD_REACTORS") (330 . &lt;图元名: 7ef10aa0&gt;) (102 . "}") (330 . &lt;图元名: 7ef06cf8&gt;) <br/>(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "koyote-DIMPTID") (100 . <br/>"AcDbLeader") (3 . "koyote-DIMPTID") (71 . 0) (72 . 0) (73 . 3) (74 . 1) (75 . <br/>0) (40 . 0.0) (41 . 0.0) (76 . 2) (10 1704.67 1945.17 0.0) (10 1681.34 1998.36 <br/>0.0) (340 . &lt;图元名: 0&gt;) (211 1.0 0.0 0.0) (210 0.0 0.0 1.0) (212 0.0 0.0 0.0) <br/>(213 0.0 0.0 0.0) (-3 ("koyote.dimpointid" (1000 . "LEADER")) ("ACAD" (1000 . <br/>"DSTYLE") (1002 . "{") (1070 . 41) (1040 . 3.5) (1070 . 40) (1040 . 1.0) (1002 <br/>. "}")) ("koyote_dimptid1005" (1005 . "488") (1005 . "487") (1005 . "489") <br/>(1005 . "48A"))))</p><p></p>

liminnet 发表于 2009-5-14 17:25:00

<p>(and (setq xl (vlax-get-Object "Excel.Application"))<br/>&nbsp;&nbsp;&nbsp; (setq range (vlax-get-property xl 'Selection))<br/>&nbsp;&nbsp;&nbsp; (setq no1 (vlax-variant-value (vlax-get-property range 'item 1)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p></p><p>&nbsp;怎么这步(setq range (vlax-get-property xl 'Selection))是返回NIL值啊，以前是可以的呀 ，，</p><p>现在用了你的VLX还是一样呢，真是怪事一件</p>

飞诗(fsxm) 发表于 2009-5-14 19:52:00

<p>我靠～你小了太贼了哈！做人要厚道哈！</p><p>发个源程序给你，什么都没动就先将＂fsxm＂改了＂koyote＂！</p><p>＝＝＝＝＝＝＝＝＝＝</p><p>1.你要再加添加扩展-3，先取出原来的，附在原来后面就行！这个不用问自己测试就知道了！</p><p>2.LEADER中保存了整个标注各个图元的句柄在dxf1005中，别的图元只保存了LEADER的句柄！</p><p>另：有关dxf1005的特别功能见help．</p><p>＝＝＝＝＝＝＝＝＝＝</p><p>你的Excel坏了？</p>

liminnet 发表于 2009-5-14 20:03:00

请领导原谅，

liminnet 发表于 2009-5-14 20:19:00

没坏啊，就是不能用啦，好奇怪啊

狂刀无痕 发表于 2009-5-18 23:08:00

人品问题？

chenhui123 发表于 2009-5-22 14:13:00

坐标的文字都是有颜色的,如何不用颜色.
多谢飞哥给与指教!!!!

liminnet 发表于 2009-5-22 15:07:00

<p>什么叫不用颜色，不用颜色到底是什么色</p>

luyu9635 发表于 2009-5-22 21:33:00

能把自己的呕心沥血之作放出来,无论如何都要顶,这是种大海般的胸怀,赞!!!!!
页: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16
查看完整版本: ★飞诗寻梦坐标标注1.08版 (源码放送)