(cond
((= Value2$ "FLG-WN")
(setq f (open "D:/03-Scans/iStressFLG-WN.csv" "r"))
(repeat (atoi Value1$)(setq csvdata (read-line f)))
(command "text" (getpoint) "" "" csvdata)
)
现在可以将行信息“130,6.4kg”从csv更改为列形式,不带逗号,这样130将位于下面6.4kg的顶部。
或者最好是像我在其他帖子上看到的那样,选择并通过excel路线 试试这个必备的mac CSV->list
; remove (command "text" (getpoint) "" "" csvdata)
(setq lstcsv (LM:csv->lst csvdata))
(setq x 0)
(setq pt1 (getpoint "Pick 1st point for mtext"))
(setq pt2 (getpoint "Pick 2nd point for mtext"))
(command "-mtext" )
(while (= (getvar "cmdactive") 1 )
(command pt1 pt2)
(repeat (length lstcsv)
(command (nth x lstcsv))
(setq x (+ x 1))
)
(command "")
)
页:
1
[2]