Export X Coordinates only to note pad with Space Seperator

[prasadcivil]

Dear all Well Wishers,

Please provide a code for Exporting X coordinates only to Notepad with space separator or comma separator only. and i need Exporting Y coordinates only to Notepad with space separator. sorry for my poor English.so kindly suggest and provide Auto lisp as soon as possible.

example of X coordinates in note pad is= 0 2 3.5 6 8.2 10 13 14 17
example of Y coordinates in note pad is= 0 1.5 3.2 4 6.3 9 12.5 19

thank you for Supporting.

[BlackBox]

Welcome to AUGI; your English is very good.

If you're not adept at coding LISP yourself, you might try DATAEXTRACTION Command.

If you'd like to try coding the LISP yourself, consider the iterations a Selection Set using FOREACH, and write the desired content to a Text File using OPEN, and WRITE-LINE Functions. Don't forget to use the CLOSE Function even if there's an *error*.

Cheers

[prasadcivil]

Dear sir,
thank you for your kind reply. i am not expert in Auto cad. but i am using many lisp programs.if you dont mine can you provide direct auto lisp program to achieve my requirement.iam tried data extraction command but that is very lengthy task.i want generate the note pad file as mention above for x coordinates only or Y coordinates only.

Thanking you.

[prasadcivil]

Dear all Masters,
Please respond to this simple task and provide yours valuable effort.

[Bruno.Valsecchi]

Hi,

Try this code and see comments ;-> **** xxxxx **** <- for adapt to your convenient

(defun l-coor2l-pt (lst flag / )
  (if lst
    (cons
      (list
        (car lst)
        (cadr lst)
        (if flag
          (+ (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) (caddr lst))
          (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0)
        )
      )
      (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag)
    )
  )
)
(defun c:ptdef2notepad ( / js dxf_cod mod_sel n lremov str_sep oldim ename l_pt l_pr tmp1 f_openx tmp2 f_openy)
  (princ "\nSelect a model object for filtering: ")
  (while
    (null
      (setq js
        (ssget "_+.:E:S"
          (list
            '(0 . "*LINE,POINT,ARC,CIRCLE,ELLIPSE,INSERT")
            (cons 67 (if (eq (getvar "CVPORT") 1) 1 0))
            (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model"))
          )
        )
      )
    )
    (princ "\nIsn't an available object!")
  )
  (vl-load-com)
  (setq dxf_cod (entget (ssname js 0)))
  (foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov))))
    (setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod))
  )
  (initget "Single All Manual")
  (if (eq (setq mod_sel (getkword "\nSelect mode, [Single/All/Manual]<Manual>: ")) "Single")
    (setq n -1)
    (if (eq mod_sel "All")
        (setq js (ssget "_X" dxf_cod) n -1)
        (setq js (ssget dxf_cod) n -1)
    )
  )
  (setq
    str_sep ";"  ;-> **** YOU CAN CHANGE THIS STRING BY WHAT YOU WANT ! **** <-
    oldim (getvar "dimzin")
  )
  (setvar "dimzin" 0)
  (repeat (sslength js)
    (setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n)))))
    (setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints))
    (foreach n l_pr
      (if (vlax-property-available-p ename n)
        (setq l_pt
          (if (or (eq n 'Coordinates) (eq n 'FitPoints))
            (append
              (if (eq (vla-get-ObjectName ename) "AcDbPolyline")
                (l-coor2l-pt (vlax-get ename n) nil)
                (if (and (eq n 'FitPoints) (zerop (vlax-get ename 'FitTolerance)))
                  (l-coor2l-pt (vlax-get ename 'ControlPoints) T)
                  (l-coor2l-pt (vlax-get ename n) T)
                )
              )
              l_pt
            )
            (cons (vlax-get ename n) l_pt)
          )
        )
      )
    )
  )
  (setq
    tmp1 (vl-filename-mktemp "tmp_x.csv")
    f_openx (open tmp1 "w")
  )
  (write-line (apply 'strcat (mapcar '(lambda (x) (strcat (rtos (car x) 2 3) str_sep)) l_pt)) f_openx)  ;-> **** YOU CAN CHANGE UNIT AND PRECISION (rtos x unit prec) ! **** <-
  (close f_openx)
  (startapp "notepad" tmp1)
  (setq
    tmp2 (vl-filename-mktemp "tmp_y.csv")
    f_openy (open tmp2 "w")
  )
  (write-line (apply 'strcat (mapcar '(lambda (x) (strcat (rtos (cadr x) 2 3) str_sep)) l_pt)) f_openy)  ;-> **** YOU CAN CHANGE UNIT AND PRECISION (rtos x unit prec) ! **** <-
  (close f_openy)
  (setvar "dimzin" oldim)
  (startapp "notepad" tmp2)
  (prin1)
)

[prasadcivil]

Hi,

Try this code and see comments ;-> **** xxxxx **** <- for adapt to your convenient

(defun l-coor2l-pt (lst flag / )
  (if lst
    (cons
      (list
        (car lst)
        (cadr lst)
        (if flag
          (+ (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) (caddr lst))
          (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0)
        )
      )
      (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag)
    )
  )
)
(defun c:ptdef2notepad ( / js dxf_cod mod_sel n lremov str_sep oldim ename l_pt l_pr tmp1 f_openx tmp2 f_openy)
  (princ "\nSelect a model object for filtering: ")
  (while
    (null
      (setq js
        (ssget "_+.:E:S"
          (list
            '(0 . "*LINE,POINT,ARC,CIRCLE,ELLIPSE,INSERT")
            (cons 67 (if (eq (getvar "CVPORT") 1) 1 0))
            (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model"))
          )
        )
      )
    )
    (princ "\nIsn't an available object!")
  )
  (vl-load-com)
  (setq dxf_cod (entget (ssname js 0)))
  (foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov))))
    (setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod))
  )
  (initget "Single All Manual")
  (if (eq (setq mod_sel (getkword "\nSelect mode, [Single/All/Manual]<Manual>: ")) "Single")
    (setq n -1)
    (if (eq mod_sel "All")
        (setq js (ssget "_X" dxf_cod) n -1)
        (setq js (ssget dxf_cod) n -1)
    )
  )
  (setq
    str_sep ";"  ;-> **** YOU CAN CHANGE THIS STRING BY WHAT YOU WANT ! **** <-
    oldim (getvar "dimzin")
  )
  (setvar "dimzin" 0)
  (repeat (sslength js)
    (setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n)))))
    (setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints))
    (foreach n l_pr
      (if (vlax-property-available-p ename n)
        (setq l_pt
          (if (or (eq n 'Coordinates) (eq n 'FitPoints))
            (append
              (if (eq (vla-get-ObjectName ename) "AcDbPolyline")
                (l-coor2l-pt (vlax-get ename n) nil)
                (if (and (eq n 'FitPoints) (zerop (vlax-get ename 'FitTolerance)))
                  (l-coor2l-pt (vlax-get ename 'ControlPoints) T)
                  (l-coor2l-pt (vlax-get ename n) T)
                )
              )
              l_pt
            )
            (cons (vlax-get ename n) l_pt)
          )
        )
      )
    )
  )
  (setq
    tmp1 (vl-filename-mktemp "tmp_x.csv")
    f_openx (open tmp1 "w")
  )
  (write-line (apply 'strcat (mapcar '(lambda (x) (strcat (rtos (car x) 2 3) str_sep)) l_pt)) f_openx)  ;-> **** YOU CAN CHANGE UNIT AND PRECISION (rtos x unit prec) ! **** <-
  (close f_openx)
  (startapp "notepad" tmp1)
  (setq
    tmp2 (vl-filename-mktemp "tmp_y.csv")
    f_openy (open tmp2 "w")
  )
  (write-line (apply 'strcat (mapcar '(lambda (x) (strcat (rtos (cadr x) 2 3) str_sep)) l_pt)) f_openy)  ;-> **** YOU CAN CHANGE UNIT AND PRECISION (rtos x unit prec) ! **** <-
  (close f_openy)
  (setvar "dimzin" oldim)
  (startapp "notepad" tmp2)
  (prin1)
)

Thank you very much amazing code sir,
with help of your code only exporting y coordinates.if i want Export X coordinates only? what is the modification in your code? kindly arrange the code for X coordinates only also.

Thanking you for your support.

[Bruno.Valsecchi]

Thank you very much amazing code sir,
with help of your code only exporting y coordinates.if i want Export X coordinates only? what is the modification in your code? kindly arrange the code for X coordinates only also.

Thanking you for your support.

?!?!
There are two open notepad!
(startapp "notepad" tmp1) for X
(startapp "notepad" tmp2) for Y

If you don't want Y comment the line with semi-colon
;(startapp "notepad" tmp2)

[prasadcivil]

?!?!
There are two open notepad!
(startapp "notepad" tmp1) for X
(startapp "notepad" tmp2) for Y

If you don't want Y comment the line with semi-colon
;(startapp "notepad" tmp2)

Dear sir,
really sorry for wrong observation.yes i got my super code from you. really i am appreciating your effort.thank you very much sir. you saved my time a lot.

sir kindly arrange another code from you. can i expect? my requirement as below
*I need two lisp programs in one code. one is Place lines as a stack with some minor offset see the pic-1. because some of my lines are merged and combined each other.highest length of a line should be bottom or top and remaining lines are stacked by descending order by its length of line.please find attachment for clarity.

2nd lisp for length Labeling of a Poly lines or Ordinary lines with leader based upon my units meter or feet.please find attachment for clarity.

Please provide suitable Lisp code for this lengthy task for me.

[Bruno.Valsecchi]

Dear sir,
really sorry for wrong observation.yes i got my super code from you. really i am appreciating your effort.thank you very much sir. you saved my time a lot.

sir kindly arrange another code from you. can i expect? my requirement as below
*I need two lisp programs in one code. one is Place lines as a stack with some minor offset see the pic-1. because some of my lines are merged and combined each other.highest length of a line should be bottom or top and remaining lines are stacked by descending order by its length of line.please find attachment for clarity.

2nd lisp for length Labeling of a Poly lines or Ordinary lines with leader based upon my units meter or feet.please find attachment for clarity.

Please provide suitable Lisp code for this lengthy task for me.

I have seen your other post, but for me, the rules isn't clear and lot of time for coding this. Perhaps other one person!
And my language is french and easy answer is difficult for me!

[prasadcivil]

?!?!
There are two open notepad!
(startapp "notepad" tmp1) for X
(startapp "notepad" tmp2) for Y

If you don't want Y comment the line with semi-colon
;(startapp "notepad" tmp2)

Dear sir after Exporting to note pad my values are showing for Y coordinates are like below

15.85 17.49 12.69 9.30 6.29 1.33 0.00

As per above out put i need ascending order like a 0.00 1.33 6.29 9.30 12.69 17.49 15.85.

But X coordinates file is ok.problem with Y coordinates file.

So please modify the code.

Thanking you sir.