在中导入点。csv文件t
大家好，我正在寻找一个代码来将xyz轴上的一系列点导入dwg文件，我使用了Lee Mac的程序PtManagerV2-4，它部分地解决了我的问题，其中的每个点。csv文件有一个信息，该信息在autocad中应显示为文本，靠近excel中链接的点。
有人能帮我吗？
谢谢大家！
遵循以下格式。csv文件
2.7149,4.5177,0，第1点
5.6981,5.1197,0，第2点
5.9822,7.6342,0，第3点
6.8346,3.5969,0，第4点
9.2496,4.2698,0，第5点
9.5337,6.9613,0，第6点
11.8777,6.4655,0，第7点
对不起，我的英语很差
李-麦克的得分教练可能会奏效。点击下面的链接。
http://www.lee-mac.com/ptmanager.html 谢谢你的回复，但这个程序只写中的点。dwg文件不是靠近点的文本。
我说得对吗？或者我做错了什么？ 你能上传一个样本图来显示这个点，除了文字的高度外，还有它的信息吗？ 是的，我会上传一个例子，我认为这些信息可以作为一个标签在点的attibute。
文本的原点可以与点重合。
Testatt。图纸 如果为点创建属性块，可以使用现有的点管理器程序导入属性块，并使用点坐标后的数据填充块属性值。 我试试这个解决方案。 但是在这种情况下，我应该为使用点管理器导入的每个点创建属性块吗？
谢谢你的回复。 我相信你只需要一个属性块。 试试这个程序，让我知道它是怎么回事。。。。
(defun c:Test (/ Deconstruct_String _att file st p pt)
;;; Tharwat 04. 01 2013 ;;;
(defun Deconstruct_String (st delimiter / p l)
(while (setq p (vl-string-search delimiter st 0))
(setq l(cons (substr st 1 p) l)
st (substr st (+ p 2) (strlen st))
)
)
(if st
(setq l (cons st l))
)
(setq l (reverse l))
)
(defun _att (pt string)
(entmakex (list '(0 . "ATTDEF")
(cons 10 pt)
'(40 . 0.2)
'(1 . "Pt")
(cons 2 string)
'(3 . "point")
'(70 . 0)
)
)
)
(if (setq file (getfiled "Select Excel file ..." "" "csv" 16))
(progn
(setq file (open file "r"))
(while (setq st (read-line file))
(setq st (Deconstruct_String st ";"))
(setq p (Deconstruct_String (car st) ","))
(_att
(setq
pt (list (read (car p)) (read (cadr p)) (read (caddr p)))
)
(vl-list->string (vl-remove 32 (vl-string->list (last st))))
)
(entmakex (list '(0 . "POINT") (cons 10 pt)))
)
(close file)
)
(princ)
)
(princ)
)
页:
[1]
2