Spline XYZ Points to Excel
If you just want the Spline's fit points, that's a lot easier than the process in that other topic of placing Point objects along it and getting their insertion points. For example, if the Spline is the last thing drawn:
Command: (setq fitpoints (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) (entget (entlast)))))
((1.0 23.0 0.0) (3.0 23.0 0.0) (2.0 26.0 2.0) (0.0 26.0 4.0))
That list in the fitpoints variable list can be stepped through and each location written off to a .xls or .csv file, rather than .txt as in that other topic. What would you want as a result? The X, Y and Z coordinates each in separate cells in the same row for each fit point? Or XYZ together somehow in a single cell for each one? Something else?
The one thing I'm unsure of is how to determine what points are in its entity data list. Certain things you can do will change the entity data from including (assoc 11) fit points to using (assoc 10) control vertices, and I don't see a way to get the list back to having the fit points. If that's a possible problem, it looks like the fit points can still be obtained from VLA properties, in a raw list that would need to be subdivided into XYZ point lists, although with a quirk:
(-1.0 23.0 0.0 3.0 23.0 -5.55112e-17 2.0 26.0 2.0 6.34489e-17 26.0 4.0)
Those are "really" zero, and should be fixed before writing off to a file.
@Anonymous wrote:
....
You can convert spline to polyline and then extract.....
Either that routine, or the convert-to-Polyline option in the SPLINEDIT command [which wasn't available when that routine was written], results in more [potentially hugely more] Polyline vertices than the source Spline's fit points. Maybe that's acceptable....
Try this
it's just a test has no error function.
it will generate a file similar to this:
[code]
(defun c:exspline (/ fil sel fit coo)
;;set error
;;author - lee-mac
(defun lst->str ( lst del ) (if (cdr lst) (strcat (car lst) del (lst->str (cdr lst) del)) (car lst)))
(setq fil (open (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv" ) "w"));;creat file
(write-line "SPLINE;COORDINATES" fil)
(if (setq sel (ssget '((0 . "SPLINE"))))
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex sel)))
(setq fit (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) (entget ent))))
(setq coo (mapcar '(lambda (i) (list (rtos (car i)) (rtos (cadr i)) (rtos (caddr i)))) fit))
(write-line
(strcat
"SPLINE" ";" (lst->str (mapcar '(lambda (x) (strcat (car x) " " (cadr x) " " (caddr x))) coo) ", ")
)
fil
)
)
)
(close fil)
(princ)
)
Hi @Anonymous ,
Thankyou very much for you help, I feel like it's almost there. I tested it on the dwg that I sent earlier and I'm getting different numbers than the list tool. The first point is the same but the rest are not. Any idea why?
Good Morning @CADaSchtroumpf ,
Thank you for your time on this code. This one looks much closer to what I was trying to get and thank you for separating out the XYZ into separate columns. My only question is for the Z axis, it shows in the excel file a different number than the AutoCAD List but only for the 0 axis ones. Even for the last repeated point which should be the same as #2 and #7 in the excel list. They should be on the 0 axis in the CAD file but when the lisp is run, it shows odd numbers. Any idea why? If this last thing is fixed, this would be the perfect code for what I'm looking for.
