Question

cad导入cass格式坐标生成三维多段线lsp程序

希望实现cad导入cass格式坐标生成三维多段线，并且显示点号
文件格式如下：
1,,0.000,0.000,0.000
2,,0.000,10.000,10.000
3,,0.000,20.000,0.000

修改下面的程序实现这个功能也行，谢谢【提示：下面程序可用格式格式为X,Y,Z，】
(defun c:ddr()
(setvar "cmdecho" 1)
(setvar "osmode" 0)
(setvar "modemacro" " YuCheng ")
(setq zb_file (getfiled "选择点坐标文件" "" "txt" 0))
(setq x (open zb_file "r"))
(prompt"\n.\n.\nwait...")
(princ)
(while (setq pt (read-line x))
(command "_.3DPOLY" pt)
(while (and (/= (setq pt (read-line x)) "END") (/= pt "end") (/= pt nil) (/= pt ""))
(command pt)

)
(command "c")
(command)
(command)
(setq ent (entlast))
(redraw ent 3)
)
(close x)
(setvar "cecolor" oldcolor)
(princ)
)
3,,0.000,20.000,0.000
修改下面的程序实现这个功能也行，谢谢【提示：下面程序可用格式格式为X,Y,Z，】
(defun c:ddr()
(setvar "cmdecho" 1)
(setvar "osmode" 0)
(setvar "modemacro" " YuCheng ")
(setq zb_file (getfiled "选择点坐标文件" "" "txt" 0))
(setq x (open zb_file "r"))
(prompt"\n.\n.\nwait...")
(princ)
(while (setq pt (read-line x))
(command "_.3DPOLY" pt)
(while (and (/= (setq pt (read-line x)) "END") (/= pt "end") (/= pt nil) (/= pt ""))
(command pt)

)
(command "c")
(command)
(command)
(setq ent (entlast))
(redraw ent 3)
)
(close x)
(setvar "cecolor" oldcolor)
(princ)
)

Answer 1

LISp字符处理，把逗号间隔的数字提取出来，得到X，Y ，Z
然后在画多段线时把得到的XYZ值输进去
主要修改这一行(while (and (/= (setq pt (read-line x)) "END") (/= pt "end") (/= pt nil) (/= pt ""))

可能需要多写几行：先编一个取某2个逗号间字符的函数吧
嗯，有点小麻烦，等有空吧