在中导入点。csv文件t

NEXTMARCUS · 发表于 2022-7-6 06:35:41

大家好，
我正在寻找一个代码来将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点

对不起，我的英语很差

ReMark · 发表于 2022-7-6 06:41:48

李-麦克的得分教练可能会奏效。点击下面的链接。

http://www.lee-mac.com/ptmanager.html

NEXTMARCUS · 发表于 2022-7-6 06:44:59

谢谢你的回复，但这个程序只写中的点。dwg文件不是靠近点的文本。
我说得对吗？或者我做错了什么？

Tharwat · 发表于 2022-7-6 06:47:40

你能上传一个样本图来显示这个点，除了文字的高度外，还有它的信息吗？

NEXTMARCUS · 发表于 2022-7-6 06:50:26

是的，我会上传一个例子，我认为这些信息可以作为一个标签在点的attibute。
文本的原点可以与点重合。
Testatt。图纸

Lee Mac · 发表于 2022-7-6 06:53:52

如果为点创建属性块，可以使用现有的点管理器程序导入属性块，并使用点坐标后的数据填充块属性值。

NEXTMARCUS · 发表于 2022-7-6 06:56:03

我试试这个解决方案。

NEXTMARCUS · 发表于 2022-7-6 06:59:59

但是在这种情况下，我应该为使用点管理器导入的每个点创建属性块吗？

谢谢你的回复。

ReMark · 发表于 2022-7-6 07:03:02

我相信你只需要一个属性块。

Tharwat · 发表于 2022-7-6 07:05:18

试试这个程序，让我知道它是怎么回事。。。。

copy


(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)
)

[编程交流] 在中导入点。csv文件t

发表回复

精选推荐