[编程交流] 获取三维Po的UCS坐标

Your Code Here[/NOPARSE]

Your Code Here

(defun c:ptx ( / d f i n s x z )
   (if (and (setq s (ssget '((0 . "POINT,LWPOLYLINE"))))
            (setq f (getfiled "" "" "txt" 1))
       )
       (if (setq d (open f "w"))
           (progn
               (repeat (setq i (sslength s))
                   (setq x (entget (ssname s (setq i (1- i))))
                         z (cdr (assoc 038 x))
                         n (cdr (assoc 210 x))
                   )
                   (if (= "POINT" (cdr (assoc 0 x)))
                       (write-line (pnt2str (trans (cdr (assoc 10 x)) 0 1)) d)
                       (foreach g x
                           (if (= 10 (car g))
                               (write-line (pnt2str (trans (list (cadr g) (caddr g) z) n 1)) d)
                           )
                       )
                   )
               )
               (close d)
           )
           (princ "\nUnable to open the file for writing.")
       )
   )
   (princ)
)
(defun pnt2str ( p )
   (if (cdr p) (strcat (rtos (car p) 2) "," (pnt2str (cdr p))) (rtos (car p) 2))
)
(princ)

[b][color=BLACK]([/color][/b]defun c:3dp2ucs [b][color=FUCHSIA]([/color][/b]/ ss en ed vl vn vd wf[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"POLYLINE"[/color][b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]cons -4 [color=#2f4f4f]"&"[/color][b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]cons 70 8[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]sslength ss[b][color=MAROON])[/color][/b] 1[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]ssname ss 0[b][color=MAROON])[/color][/b]
            ed [b][color=MAROON]([/color][/b]entget en[b][color=MAROON])[/color][/b]
            vn [b][color=MAROON]([/color][/b]entnext en[b][color=MAROON])[/color][/b]
            vd [b][color=MAROON]([/color][/b]entget vn[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]= [color=#2f4f4f]"VERTEX"[/color] [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 0 vd[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq vl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]trans [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 10 vd[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] 0 1[b][color=BLUE])[/color][/b] vl[b][color=GREEN])[/color][/b]
                   vn [b][color=GREEN]([/color][/b]entnext vn[b][color=GREEN])[/color][/b]
                   vd [b][color=GREEN]([/color][/b]entget vn[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq wf [b][color=MAROON]([/color][/b]open [color=#2f4f4f]"POINT.DAT"[/color] [color=#2f4f4f]"w"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]foreach v [b][color=MAROON]([/color][/b]reverse vl[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]prin1 v wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]write-line [color=#2f4f4f]""[/color] wf[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]close wf[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]