Bª™ªN1534592500 发表于 2022-7-6 07:48:52

如何在

你好
 
我是创建AutoLISP的新手。可以为给定的坐标集编写一系列文本吗？我附加了一个以制表符分隔的文本文件，其中列出了我的数据。第一列数据是X坐标，第二列是Y坐标，第三列是要在这些坐标上写入的文本。
 
请帮忙。
 
当做
示例数据。txt文件

Lee Mac 发表于 2022-7-6 08:11:04

试着做一些简单的事情，比如：
 
(defun c:txtatpt ( / f p x y )
   (if
       (and
         (setq f (getfiled "" "" "txt" 16))
         (setq f (open f "r"))
       )
       (progn
         (while (setq n (read-line f))
               (if
                   (and
                     (setq p (vl-string-search "\t" n))
                     (setq x (distof (substr n 1 p)))
                     (setq p (vl-string-search "\t" (setq n (substr n (+ p 2)))))
                     (setq y (distof (substr n 1 p)))
                   )
                   (entmake
                     (list
                        '(0 . "TEXT")
                           (list 10 x y 0.0)
                           (cons 1 (substr n (+ p 2)))
                           (cons 40 (getvar 'textsize))
                     )
                   )
               )
         )
         (close f)
       )
   )
   (princ)
)

Bª™ªN1534592500 发表于 2022-7-6 08:35:01

谢谢李，这很好用。问题已解决。

Lee Mac 发表于 2022-7-6 09:02:14

不客气Bª™ªN；如果你对代码有任何问题，尽管问
页: [1]
查看完整版本: 如何在