[求助]：请大家帮帮我

laoxie_1983 · 发表于 2006-7-31 13:30:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问各位高手怎样根据坐标文件画pl线.想料好长时间都没想起!谢谢

zxq0220 · 发表于 2006-7-31 21:20:09

坐标文件的格式是什么样的？

laoxie_1983 · 发表于 2006-8-1 07:45:39

点号,x,y麻烦了

xyp1964 · 发表于 2006-8-1 08:14:20

[FONT=courier new];;;20060312
;;;数据格式：17,12.003,50.401,4.875
(defun c:test105a ()
(vl-load-com)
(alert
"数据格式:
\n编号,x坐标,y坐标,z坐标,
编号,x坐标,y坐标,z坐标,
编号,x坐标,y坐标,z坐标,
..."
)
(if (not
(setq
fle (findfile
(getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2)
)
)
)
(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
)
(if fle
(progn
(setq fn (open fle "r"))
(prompt "\n稍候 ")
(command "3dpoly")
(while (setq pt (read-line fn))
(while (vl-string-search "," pt)
(setq pt (vl-string-subst " " "," pt))
)
(princ ".")
(setq pt (cdr (read (strcat "(" pt ")"))))
(command pt)
)
(command "")
(close fn)
)
(princ "\n未选择数据文件，退出")
)
(prompt " 完毕！")
(princ)
)[/FONT]

[FONT=courier new];;;20060312 
;;;数据格式：17,12.003,50.401,4.875 
(defun c:test105a () 
  (vl-load-com) 
  (alert 
    "数据格式:    
    \n编号,x坐标,y坐标,z坐标, 
    编号,x坐标,y坐标,z坐标, 
    编号,x坐标,y坐标,z坐标, 
    ..." 
  ) 
  (if (not 
        (setq 
          fle (findfile 
                (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2) 
              ) 
        ) 
      ) 
    (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8)) 
  ) 
  (if fle 
    (progn 
      (setq fn (open fle "r")) 
      (prompt "\n稍候 ") 
      (command "3dpoly") 
      (while (setq pt (read-line fn)) 
        (while (vl-string-search "," pt) 
          (setq pt (vl-string-subst " " "," pt)) 
        ) 
        (princ ".") 
        (setq pt (cdr (read (strcat "(" pt ")")))) 
        (command pt) 
      ) 
      (command "") 
      (close fn) 
    ) 
    (princ "\n未选择数据文件，退出") 
  ) 
  (prompt " 完毕！") 
  (princ) 
)[/FONT]

laoxie_1983 · 发表于 2006-8-3 08:13:43

谢谢!我也作好一个了.

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请大家帮帮我

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子