求一读取CVS标注坐标的程序

偏爱云~小吴

求一读取CVS标注坐标的程序。最好能够标到中间可以中断的，我现在用的是一次要标完的，很不好用。要求读取CSV文件标注成X:11111 Y:11111 Z:11111形式的坐标，坐标外围带矩形框，引线为带箭头的。 另外好像要考虑负数时的四舍五入的问题。测试图形及CSV文件见附件。

偏爱云~小吴

比如一共50个点，标到20个想歇歇了，可以中断，然后下次可以认为设定从21号点开始标注。

qiuhaitao110

你是要标注到空间任意位置依次排列，还是要标志到每个点对应的空间位置？

偏爱云~小吴

任意位置即可

偏爱云~小吴

qiuhaitao110 发表于 2013-11-27 10:59
你是要标注到空间任意位置依次排列，还是要标志到每个点对应的空间位置？

任意位置即可

偏爱云~小吴

qiuhaitao110 发表于 2013-11-27 10:59
你是要标注到空间任意位置依次排列，还是要标志到每个点对应的空间位置？

大侠有解么

qiuhaitao110

偏爱云~小吴 发表于 2013-11-27 21:27
大侠有解么

这个很简单的，联系我QQ你具体要怎么做不是很明白

偏爱云~小吴

需要的效果是这样的

偏爱云~小吴

qiuhaitao110 发表于 2013-11-28 13:59
这个很简单的，联系我QQ你具体要怎么做不是很明白

具体效果参见楼下，我现在用的这个没有源码，而且不能中断，只能标玩才能结束很不方便

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (setq lst (xyp-txt2list "ED32S曲外板_CSV.csv")
   
5.         lst (mapcar '(lambda (x) (xyp-Get-Str2Lstspr x ",")) lst)
   
6.         lst (mapcar '(lambda (x) (mapcar 'distof x)) lst)
   
7.         lst (mapcar '(lambda (x) (list (fix (car x)) (cdr x))) lst)
   
8.   )
   
9.   (foreach a lst
   
10.     (setq bh (car a)
    
11.           pt (cadr a)
    
12.     )
    
13.     (xyp-ZB pt 1000 2 1 bh)
    
14.   )
    
15.   (princ)
    
16. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (setq lst (xyp-txt2list "ED32S曲外板_CSV.csv")<br />         lst (mapcar '(lambda (x) (xyp-Get-Str2Lstspr x ",")) lst)<br />         lst (mapcar '(lambda (x) (mapcar 'distof x)) lst)<br />         lst (mapcar '(lambda (x) (list (fix (car x)) (cdr x))) lst)<br />   )<br />   (foreach a lst<br />     (setq bh (car a)<br />           pt (cadr a)<br />     )<br />     (xyp-ZB pt 1000 2 1 bh)<br />   )<br />   (princ)<br /> )