偏爱云~小吴 发表于 2013-11-16 21:50:17

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

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

偏爱云~小吴 发表于 2013-11-16 21:52:18

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

qiuhaitao110 发表于 2013-11-27 10:59:22

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

偏爱云~小吴 发表于 2013-11-27 15:24:31

任意位置即可

偏爱云~小吴 发表于 2013-11-27 15:25:02

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

任意位置即可

偏爱云~小吴 发表于 2013-11-27 21:27:30

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

大侠有解么

qiuhaitao110 发表于 2013-11-28 13:59:40

偏爱云~小吴 发表于 2013-11-27 21:27 static/image/common/back.gif
大侠有解么

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

偏爱云~小吴 发表于 2013-12-26 12:00:24

需要的效果是这样的

偏爱云~小吴 发表于 2013-12-26 12:02:32

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

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

xyp1964 发表于 2013-12-26 19:26:13

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
(defun c:tt ()
(setq lst (xyp-txt2list "ED32S曲外板_CSV.csv")
        lst (mapcar '(lambda (x) (xyp-Get-Str2Lstspr x ",")) lst)
        lst (mapcar '(lambda (x) (mapcar 'distof x)) lst)
        lst (mapcar '(lambda (x) (list (fix (car x)) (cdr x))) lst)
)
(foreach a lst
    (setq bh (car a)
          pt (cadr a)
    )
    (xyp-ZB pt 1000 2 1 bh)
)
(princ)
)
页: [1] 2
查看完整版本: 求一读取CVS标注坐标的程序