Pick
POINT Coordinate X,Y,Z to Excel .CVS File.
การเลือกตำแหน่ง
(point) โดยการกดเลือกเอาตามตำแหน่งที่ต้องการ แล้วทำการส่งค่า (Coordinate
X,Y,Z) ไปยัง Excel โดยการบันทึกเป็นไฟล์ .CVS
แล้วค่อยเลือกบันทึกเป็น .xlsx เป็นไฟล์ Excel
เพื่อนำค่าไปใช้ต่อไป
(defun
c:P2CVS1 (/)
(setq
old_cmdecho (getvar "cmdecho"))
(setq
old_osnap (getvar "osmode"))
(setvar
"cmdecho" 0)
(setvar
"osmode" 37) ;; 1+4+32 1=endpoint 4=center 32=node
(setq
txth (getvar "TEXTSIZE"))
(if
(setq fn (getfiled "Save to CSV file." "" "csv"
1))
(progn
(setq f (open fn "w"))
;Open the file for writing
(write-line (strcat
"Num.,X,Y,Z") f) ;Write header line to file
(setq i 1)
(while (setq pt (getpoint
"\nPick Point : <Enter to Exit.>"))
(command "_point"
pt)
(command "_text"
"mc" pt txth "0" (rtos i 2 0))
(write-line
(strcat (rtos i 2 0)
","
(rtos(car pt)2 3)
","
(rtos(cadr pt)2 3)
","
(rtos(caddr pt)2 3)
);strcat
f
);write-line
(setq i (1+ i))
)
(close f) ;Close the file
(princ)
);progn
(princ "Stopped. Exit.");if
don't save cvs file
);if
(setvar
"cmdecho" old_cmdecho)
(setvar
"osmode" old_osnap)
(princ)
);End
ไม่มีความคิดเห็น:
แสดงความคิดเห็น