8 replies to this topic

[Igor200019]

Hi there!
I spent several days to find the solution so probably somebody here can help because I installed NanoCad as well...

My task is to get the XY coordinates from DXF or DWG drawing with the correct following of lines. Mainly I need to import it to the machine as tool library.
It should be something like
514.997411,704.507486
514.997411,605.507486
506.417411,605.007486
506.297129,604.988973

Before I used DraftSight so my story is that I didn't find any info how to extract coordinates from Draftsight. To import throught the drawing - not the problem, but to get... I found the separate program DX2XYZ which deals with only 2000 version files.
With this converting finally I have the coordinates with the all connection points mixed (check the attachment - left the real drawing, right is after the converting).

So I'm looking about NanoCad possibility just to get XY points with normal connection one by one. Is something possible? If not what do you recommend?

It's really strange - XY coordinates should be used widely but there is very poor information about the export and possibilities for every CAD program. Really simple problem but gettting me mad...

Attached Thumbnails

• 

[Nefryt]

Hello!
You handled this problem because I need to insert points on the project and then export points and X, Y coordinates but I don't know how supposedly it is possible in NanoCad 2020?

[karmi]

Igor200019, on 08 September 2019 - 07:37 PM, said:

Hi there!
I spent several days to find the solution so probably somebody here can help because I installed NanoCad as well...

My task is to get the XY coordinates from DXF or DWG drawing with the correct following of lines. Mainly I need to import it to the machine as tool library.
It should be something like
514.997411,704.507486
514.997411,605.507486
506.417411,605.007486
506.297129,604.988973

Before I used DraftSight so my story is that I didn't find any info how to extract coordinates from Draftsight. To import throught the drawing - not the problem, but to get... I found the separate program DX2XYZ which deals with only 2000 version files.
With this converting finally I have the coordinates with the all connection points mixed (check the attachment - left the real drawing, right is after the converting).

So I'm looking about NanoCad possibility just to get XY points with normal connection one by one. Is something possible? If not what do you recommend?

It's really strange - XY coordinates should be used widely but there is very poor information about the export and possibilities for every CAD program. Really simple problem but gettting me mad...

Ciao, ti rispondo in italiano dato che sei di Milano.
Prova a dare un'occhiata a questi lisp, in particolare il n. 5 e 10 http://www.sepram.it/lisp.html
Non so se esportano in modo ordinato come cerchi tu ma potrebbero essere utili lo stesso...
Ciao

[pguimber]

Hello,
load file Ptexport.lsp with appload command.
It's a file TXT with LSP extension.

Spoiler

; ----------------------------------------------------------------------
;			 (Export LWPOLYLINE Vertices & Points to File)
;			Copyright © 2000 DotSoft, All Rights Reserved
;				   Website: http://www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER:  DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose.  All materials are
; to be considered ‘as-is’, and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------
;;Revised 8/23/07 CAB to report coordinates in current UCS
(defun c:ptexport ()
  (setq sset (ssget '((-4 . "<or")(0 .="" "point")="" (0="" "lwpolyline")(-4="" "or="">"))))
  (if sset
	(progn
	  (setq itm 0 num (sslength sset))
	  (setq fn (getfiled "Point Export File" "" "txt" 1))
	  (if (/= fn nil)
		(progn
		  (setq fh (open fn "w"))
		  (while (< itm num)
			(setq hnd (ssname sset itm))
			(setq ent (entget hnd))
			(setq obj (cdr (assoc 0 ent)))
			(cond
			  ((= obj "POINT")
				(setq pnt (cdr (assoc 10 ent)))
				(setq pnt (trans pnt 0 1));;**CAB
				(princ (strcat (rtos (car pnt) 2 8) ","
							   (rtos (cadr pnt) 2 8) ","
							   (rtos (caddr pnt) 2 8)) fh)
				(princ "\n" fh)
			  )
			  ((= obj "LWPOLYLINE")
				(if (= (cdr (assoc 38 ent)) nil)
				  (setq elv 0.0)
				  (setq elv (cdr (assoc 38 ent)))
				)
				(foreach rec ent
				  (if (= (car rec) 10)
					(progn
					  (setq pnt (cdr rec))
					  (setq pnt (trans pnt 0 1));;**CAB
					  (princ (strcat (rtos (car pnt) 2 8) ","
									 (rtos (cadr pnt) 2 8) ","
									 (rtos elv 2 8)) fh)
					  (princ "\n" fh)
					)
				  )
				)
			  )
			  (t nil)
			)
			(setq itm (1+ itm))
		  )
		  (close fh)
		)
	  )
	)
  )
  (princ)
)
(princ "\nPoint Export loaded, type PTEXPORT to run.")
(princ)

Command : ptexport
click on point 1, 2, .... finish with Enter.
Export in text with csv or txt extension

You can see this (x, y, z):

15.2237065 111.775004 0 (it's the point 1)
102.947381 142.10658 0 ( the point 2....
191.265792 128.130265 0

Best regards
Patrick

[Thanh Duong]

pguimber, on 19 May 2020 - 02:30 PM, said:

Hello,
load file Ptexport.lsp with appload command.
It's a file TXT with LSP extension.

Spoiler

; ----------------------------------------------------------------------
;			 (Export LWPOLYLINE Vertices & Points to File)
;			Copyright © 2000 DotSoft, All Rights Reserved
;				   Website: http://www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER:  DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose.  All materials are
; to be considered ‘as-is’, and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------
;;Revised 8/23/07 CAB to report coordinates in current UCS
(defun c:ptexport ()
  (setq sset (ssget '((-4 . "<or")(0 .="" "point")="" (0="" "lwpolyline")(-4="" "or="">"))))
  (if sset
	(progn
	  (setq itm 0 num (sslength sset))
	  (setq fn (getfiled "Point Export File" "" "txt" 1))
	  (if (/= fn nil)
		(progn
		  (setq fh (open fn "w"))
		  (while (< itm num)
			(setq hnd (ssname sset itm))
			(setq ent (entget hnd))
			(setq obj (cdr (assoc 0 ent)))
			(cond
			  ((= obj "POINT")
				(setq pnt (cdr (assoc 10 ent)))
				(setq pnt (trans pnt 0 1));;**CAB
				(princ (strcat (rtos (car pnt) 2 8) ","
							   (rtos (cadr pnt) 2 8) ","
							   (rtos (caddr pnt) 2 8)) fh)
				(princ "\n" fh)
			  )
			  ((= obj "LWPOLYLINE")
				(if (= (cdr (assoc 38 ent)) nil)
				  (setq elv 0.0)
				  (setq elv (cdr (assoc 38 ent)))
				)
				(foreach rec ent
				  (if (= (car rec) 10)
					(progn
					  (setq pnt (cdr rec))
					  (setq pnt (trans pnt 0 1));;**CAB
					  (princ (strcat (rtos (car pnt) 2 8) ","
									 (rtos (cadr pnt) 2 8) ","
									 (rtos elv 2 8)) fh)
					  (princ "\n" fh)
					)
				  )
				)
			  )
			  (t nil)
			)
			(setq itm (1+ itm))
		  )
		  (close fh)
		)
	  )
	)
  )
  (princ)
)
(princ "\nPoint Export loaded, type PTEXPORT to run.")
(princ)

Command : ptexport
click on point 1, 2, .... finish with Enter.
Export in text with csv or txt extension

You can see this (x, y, z):

15.2237065 111.775004 0 (it's the point 1)
102.947381 142.10658 0 ( the point 2....
191.265792 128.130265 0

Best regards
Patrick

Sorry, but no work. After appload, I received "Invalid Keyword or Command" for input "PTexport"

[pguimber]

Thanh Duong, on 15 June 2022 - 09:55 AM, said:

Sorry, but no work. After appload, I received "Invalid Keyword or Command" for input "PTexport"

Hello,
this script in LISP is correct with Auocad.
But with NC5 ... some modifications may be necessary.
which ones, I don't know
Best regards
Patrick

[pguimber]

I have a message :
error: extra cdrs in dotted pair on input

But where ? i don't know!

Precision: I cleaned the file of its header to keep only the code

[pguimber]

Maybe a begining answer :
https://forums.autod...3362627#M302769

[Thanh Duong]

Thank you for your feedback.
Yesterday, I copied the said script and load into Nanocad but it doesnt works.

I found another way to do it (list the coordinates of some points).

Have a great day.