获取CAD中文字，输出到指定文本文件。

yuyjy

zhb236623 发表于 2011-9-20 22:19
这个可以有．．．．．．试用下效果．．．．．．．．．

谢了！试下!

yuyjy

zhb236623 发表于 2011-9-20 22:19
这个可以有．．．．．．试用下效果．．．．．．．．．

朋友！这个提取出来的XY坐标都是
(0.0 0.0 0.0)400
(0.0 0.0 0.0) 500
不是当前坐标！

莱蒽

kankanshi shenm

zhb236623

yuyjy 发表于 2011-10-3 12:56
朋友！这个提取出来的XY坐标都是
(0.0 0.0 0.0)400
(0.0 0.0 0.0) 500

楼主把测试文件发上来看下。。。。。。。。。

yuyjy

zhb236623 发表于 2011-10-3 21:24
楼主把测试文件发上来看下。。。。。。。。。

就这个文件！

菲戈

感谢楼主，学习学习

zhb236623

yuyjy 发表于 2011-10-4 14:55
就这个文件！

这个试一下。。。。。。

1. (defun c:gwzxy ()
   
2. 
   
3. 
   
4. 
   
5. (setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
   
6. 
   
7. (setq ff (open ffn "w"))
   
8. 
   
9. (close ff)
   
10. 
    
11.   
    
12. 
    
13.    (setq ss (ssget '((0 . "text"))))
    
14. 
    
15. 
    
16.   ;;(setq ss (ssget '((0 . "text")(8 . "jzmj"))))
    
17. 
    
18. 
    
19.   (setq        i  0)
    
20. 
    
21.   
    
22. 
    
23.    
    
24. 
    
25.   (repeat (sslength ss)
    
26. 
    
27.         (setq ssn (ssname ss i)
    
28. 
    
29.               endata (entget ssn)
    
30. 
    
31.               new_pp (cdr (assoc 1 endata))
    
32. 
    
33.               new_xyz (cdr (assoc 10 endata))
    
34. 
    
35.                )
    
36. 
    
37.               (setq ff (open ffn "a"))
    
38. 
    
39.               (princ new_xyz ff)
    
40. 
    
41.               (princ " " ff)
    
42. 
    
43.               (princ new_pp ff)
    
44. 
    
45.               (princ "\n" ff)
    
46. 
    
47.                     (close ff)                             
    
48. 
    
49.       (setq  i (1+ i))
    
50. 
    
51.   )
    
52. 
    
53. )

复制代码

yuyjy

zhb236623 发表于 2011-10-8 11:34
这个试一下。。。。。。

这个可以！谢谢了！

zhb236623

yuyjy 发表于 2011-10-8 15:16
这个可以！谢谢了！

其实这些操作都是对组码进行。。。。


(setq m1 (entget (car (entsel))))


把这句复制到命令行，再选中地物可以看地物。

  new_xyz (cdr (assoc 10 endata))

程序其实就是改了  11－》10  ，如果没有的话你自己可以看下组码，需要获取什么内容可以直接更改主。。。

杨杨玄

LSP编程吧！高手啊！学习了！