如何能够实自动查找EXCEL表中的文字对应CAD图纸中的X,Y,Z坐标，并输出到excel中

136724140

如何能够实自动查找EXCEL表中的文字对应CAD图纸中的X,Y,Z坐标，并输出到excel中，最好能在新图中相应的点坐标上绘制出一个直径为1的圆。

陨落

把excel里面的行号和文字对应形成一个表，到cad里面框选文字，将所有文字与坐标形成第二个表。然后根据第一个表查找第二个表的数据即可。

小男人漏水

CAD的坐标输入到ECXEL里面，然后用VLOOKUP录制宏来实现。

kozmosovia

“文字对应CAD图纸中的X,Y,Z坐标”是啥意思？文字的插入点坐标？还是文字统一的左上点坐标？

136724140

文字的插入点坐标

136724140

小男人漏水 发表于 2016-1-19 13:49
CAD的坐标输入到ECXEL里面，然后用VLOOKUP录制宏来实现。

每次是要根据EXCEL中给的文字 然后提取途中对应的文字和旁边的圆，正常来说，应该是把文字的插入点与圆心相对应，圆直径都统一为1，读取每个圆对应的X,Y,Z坐标值到excel里面。这是个每天都要重复的工作，在想办法能否直接通过CAD读取excel的数据，再返回到excel里面

136724140

kozmosovia 发表于 2016-1-19 15:25
“文字对应CAD图纸中的X,Y,Z坐标”是啥意思？文字的插入点坐标？还是文字统一的左上点坐标？

应该是文字的插入点坐标， 规范来说，文字的插入点应该与圆的圆心相同位置的

kozmosovia

136724140 发表于 2016-1-19 16:03
应该是文字的插入点坐标， 规范来说，文字的插入点应该与圆的圆心相同位置的

文字对齐方式有多种，所以文字的插入点坐标是要统一的？
从截图看，圆已经存在了。而且有些没有和文字插入点叠合。

建议先删除或者隔离已有的半径为1的圆，然后运行程序。程序会自动在文字插入点生成半径为1的新圆。

2. 
   
3. (Defun C:ABC (/ IDX II INS MS RNG RRR SS TXT VLO XL)
   
4.   (if (setq idx        0
   
5.             ms        (vla-get-Modelspace
   
6.                   (vla-get-activeDocument (vlax-get-acad-object))
   
7.                 )
   
8.             xl        (vlax-get-object "excel.application")
   
9.       )
   
10.     (while (and        (setq rng (vlax-get-property
    
11.                             xl
    
12.                             "Range"
    
13.                             (strcat "A" (itoa (setq idx (1+ idx))))
    
14.                           )
    
15.                       txt (vlax-variant-value (vlax-get-property rng "Text"))
    
16.                 )
    
17.                 (/= txt "")
    
18.            )
    
19.       (if (setq        ii -1
    
20.                 ss (ssget "_x" (list (cons 0 "*text") (cons 1 txt)))
    
21.           )
    
22.         (repeat        (sslength ss)
    
23.           (setq
    
24.             vlo        (vlax-ename->vla-object (ssname ss (setq ii (1+ ii))))
    
25.             ins        (vla-get-insertionpoint vlo)
    
26.             rrr        (vlax-get-property
    
27.                   xl
    
28.                   "Range"
    
29.                   (strcat "B" (itoa idx) ":D" (itoa idx))
    
30.                 )
    
31.           )
    
32.           (vlax-put-property rrr "Value2" ins)
    
33.           (vla-addcircle ms ins 1.0)
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38.   (if xl
    
39.     (vlax-release-object xl)
    
40.   )
    
41.   (princ)
    
42. )

<br /> (Defun C:ABC (/ IDX II INS MS RNG RRR SS TXT VLO XL)<br />   (if (setq idx        0<br />             ms        (vla-get-Modelspace<br />                   (vla-get-activeDocument (vlax-get-acad-object))<br />                 )<br />             xl        (vlax-get-object "excel.application")<br />       )<br />     (while (and        (setq rng (vlax-get-property<br />                             xl<br />                             "Range"<br />                             (strcat "A" (itoa (setq idx (1+ idx))))<br />                           )<br />                       txt (vlax-variant-value (vlax-get-property rng "Text"))<br />                 )<br />                 (/= txt "")<br />            )<br />       (if (setq        ii -1<br />                 ss (ssget "_x" (list (cons 0 "*text") (cons 1 txt)))<br />           )<br />         (repeat        (sslength ss)<br />           (setq<br />             vlo        (vlax-ename->vla-object (ssname ss (setq ii (1+ ii))))<br />             ins        (vla-get-insertionpoint vlo)<br />             rrr        (vlax-get-property<br />                   xl<br />                   "Range"<br />                   (strcat "B" (itoa idx) ":D" (itoa idx))<br />                 )<br />           )<br />           (vlax-put-property rrr "Value2" ins)<br />           (vla-addcircle ms ins 1.0)<br />         )<br />       )<br />     )<br />   )<br />   (if xl<br />     (vlax-release-object xl)<br />   )<br />   (princ)<br /> )

136724140

kozmosovia 发表于 2016-1-19 16:06
文字对齐方式有多种，所以文字的插入点坐标是要统一的？
从截图看，圆已经存在了。而且有些没有和文字插 ...

谢谢~~其实那个属于工作流程上面的，我想的是在标注文字的时候就直接对齐到圆心，这样剩下的应用程序一次性处理掉

136724140

陨落 发表于 2016-1-19 11:42
把excel里面的行号和文字对应形成一个表，到cad里面框选文字，将所有文字与坐标形成第二个表。然后根据第一 ...

还有就是，图太大了，而且每天都会更新的