帮忙改成记事本直接打开输出

iszc

三维多段线顶点提取，帮忙改成记事本直接打开输出结果
(defun c:3wzb() (vl-load-com) (if (setq ssa (ssget '((0 . "POLYLINE")))) (progn (setq i 0 n (sslength ssa) ptb nil no 0) (repeat n (setq obj (vlax-ename->vla-object (ssname ssa i)) pts (vlax-get-property obj "Coordinates") pts (vlax-safearray->list (vlax-variant-value pts)) i (1+ i) m (/ (length pts) 3) ) (repeat m (setq x (car pts) pts (cdr pts) y (car pts) pts (cdr pts) z (car pts) pts (cdr pts) pt (list x y z) ptb (cons pt ptb) no (1+ no) ) (princ (strcat "\nNo" (itoa no) " x=" (rtos x 2 3) " y=" (rtos y 2 3) " z=" (rtos z 2 3) ) ) ) ) (setq ptb (reverse ptb)) ) ) (princ))

煮茗

http://bbs.mjtd.com/thread-190406-1-1.html
这里应该就是你想要的。

iszc

这个太复杂，有大佬帮忙修改1楼代码吗

煮茗

2. (defun c:3wzb()
   
3. (vl-load-com)
   
4.    (setq filename0 (getfiled "请指定保存位置" "e:\\三维多段线坐标.txt" "txt" 1))
   
5.     (setq txtfile (open filename0 "w"))
   
6.   
   
7. (if (setq ssa (ssget '((0 . "POLYLINE"))))
   
8. (progn
   
9.     (setq i   0
   
10.         n   (sslength ssa)
    
11.         ptb nil
    
12.       no  0
    
13.   )
    
14.     (repeat n
    
15.         (setq obj (vlax-ename->vla-object (ssname ssa i))
    
16.               pts (vlax-get-property obj "Coordinates")
    
17.             pts (vlax-safearray->list (vlax-variant-value pts))
    
18.             i   (1+ i)
    
19.             m   (/ (length pts) 3)
    
20.       )
    
21.       (repeat m
    
22.           (setq x (car pts)
    
23.               pts (cdr pts)
    
24.           y   (car pts)
    
25.           pts (cdr pts)
    
26.           z   (car pts)
    
27.           pts (cdr pts)
    
28.           pt  (list x y z)
    
29.           ptb (cons pt ptb)
    
30.           no  (1+ no)
    
31.         )
    
32.         (princ (strcat "\n顶点" (itoa no) " x=" (rtos x 2 3) " y=" (rtos y 2 3) " z=" (rtos z 2 3) ) )
    
33.       (write-line (strcat "顶点" (itoa no) "," (rtos x 2 3) "," (rtos y 2 3) "," (rtos z 2 3)) txtfile)
    
34.       )
    
35.   )
    
36.     (setq ptb (reverse ptb))
    
37.     (close txtfile)
    
38.     (startapp "notepad" filename0)
    
39. )
    
40. )
    
41. (princ)
    
42. )

(defun c:3wzb() <br /> (vl-load-com)<br />    (setq filename0 (getfiled "请指定保存位置" "e:\\三维多段线坐标.txt" "txt" 1))<br />     (setq txtfile (open filename0 "w"))<br />   <br /> (if (setq ssa (ssget '((0 . "POLYLINE")))) <br /> (progn <br />     (setq i   0 <br />         n   (sslength ssa) <br />         ptb nil <br />       no  0<br />   )<br />     (repeat n <br />         (setq obj (vlax-ename->vla-object (ssname ssa i)) <br />               pts (vlax-get-property obj "Coordinates") <br />             pts (vlax-safearray->list (vlax-variant-value pts))<br />             i   (1+ i) <br />             m   (/ (length pts) 3) <br />       )<br />       (repeat m <br />           (setq x (car pts) <br />               pts (cdr pts) <br />           y   (car pts) <br />           pts (cdr pts) <br />           z   (car pts) <br />           pts (cdr pts) <br />           pt  (list x y z) <br />           ptb (cons pt ptb) <br />           no  (1+ no) <br />         ) <br />         (princ (strcat "\n顶点" (itoa no) " x=" (rtos x 2 3) " y=" (rtos y 2 3) " z=" (rtos z 2 3) ) )<br />       (write-line (strcat "顶点" (itoa no) "," (rtos x 2 3) "," (rtos y 2 3) "," (rtos z 2 3)) txtfile)<br />       )<br />   )<br />     (setq ptb (reverse ptb))<br />     (close txtfile)<br />     (startapp "notepad" filename0)<br /> )<br /> )<br /> (princ)<br /> )

iszc

煮茗 发表于 2024-12-11 14:46

很实用，非常感谢