【多段线坐标问题】

玉麒麟卢比奥

kwok 发表于 2014-5-6 15:15
看看这个是不是，只加了可以输入xyz.
CAD启动指令:   tqzb

感谢大神，问题圆满解决。麻烦各位了！向每位回答的表示感谢！

ll_j

玉麒麟卢比奥 发表于 2014-5-6 16:59
谢谢！我刚试了半天，不知道应该把这句话加在循环的哪一行。。。大大能不能帮到底，今天晚上交接，实在没 ...

试试：

1. ;;46.2 [功能] pline,lwpline点坐标表  By 无痕;;示例(vxs (car (entsel))),返回三维点坐标
   
2. (defun vxs (e / i v lst)
   
3.   (setq i -1)
   
4.   (while
   
5.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   
6.      (setq lst (cons v lst))
   
7.   )
   
8.   (reverse lst)
   
9. )
   
10. ---------------------------------------------------------
    
11. ;;;;;;;;;三维顶点输出到文本
    
12. (defun c:tqzb (/ ss en ii ptb no pz)
    
13.   (vl-load-com)
    
14.   (setq cm (getvar "cmdecho"))
    
15.   (setvar "cmdecho" 0)
    
16.   (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1))
    
17.   (setq fff (open wjm "w"))
    
18.   (setq ss (ssget '((0 . "lwPOLYLINE"))))
    
19.   (setq ii 0
    
20.         no 0
    
21.   )
    
22.   (repeat (sslength ss)
    
23.     (setq en  (ssname ss ii)
    
24.           ii  (1+ ii)
    
25.           ptb (vxs en)
    
26.           pz (cdr (assoc 38 (entget en)))
    
27.     )
    
28.     (foreach pt ptb
    
29.       (setq no (1+ no))
    
30.       (write-line
    
31.         (strcat                         ;(itoa no) ","
    
32.           (rtos (car pt) 2 2)
    
33.           ","
    
34.           (rtos (cadr pt) 2 2)
    
35.           ","
    
36.           (rtos pz 2 2)
    
37.           ","
    
38.         )
    
39.         fff
    
40.       )
    
41.     )
    
42.     (write-line "" fff)
    
43.   )
    
44.   (close fff)
    
45.   (princ (strcat "\n坐标已存入\"" wjm "\"中"))
    
46. 
    
47.   (setvar "cmdecho" cm)
    
48.   (princ)
    
49. )

;;46.2 [功能] pline,lwpline点坐标表  By 无痕;;示例(vxs (car (entsel))),返回三维点坐标<br /> (defun vxs (e / i v lst)<br />   (setq i -1)<br />   (while<br />     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))<br />      (setq lst (cons v lst))<br />   )<br />   (reverse lst)<br /> )<br /> ---------------------------------------------------------<br /> ;;;;;;;;;三维顶点输出到文本<br /> (defun c:tqzb (/ ss en ii ptb no pz)<br />   (vl-load-com)<br />   (setq cm (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1))<br />   (setq fff (open wjm "w"))<br />   (setq ss (ssget '((0 . "lwPOLYLINE"))))<br />   (setq ii 0<br />         no 0<br />   )<br />   (repeat (sslength ss)<br />     (setq en  (ssname ss ii)<br />           ii  (1+ ii)<br />           ptb (vxs en)<br />           pz (cdr (assoc 38 (entget en)))<br />     )<br />     (foreach pt ptb<br />       (setq no (1+ no))<br />       (write-line<br />         (strcat                         ;(itoa no) ","<br />           (rtos (car pt) 2 2)<br />           ","<br />           (rtos (cadr pt) 2 2)<br />           ","<br />           (rtos pz 2 2)<br />           ","<br />         )<br />         fff<br />       )<br />     )<br />     (write-line "" fff)<br />   )<br />   (close fff)<br />   (princ (strcat "\n坐标已存入\"" wjm "\"中"))<br /> <br />   (setvar "cmdecho" cm)<br />   (princ)<br /> )

czcxxx

谢谢分享！！！！！！！！！！！！！！！