社区 › 编程申请 › 求一个lsp程序，将d:\temp\123目录下的文本文件 AA.txt 中的内容按字高300插入到 c...

lengliqun0001 发表于 2021-1-28 11:34:34

求一个lsp程序，将d:\temp\123目录下的文本文件 AA.txt 中的内容按字高300插入到 c...

求一个lsp程序，将d:\temp\123目录下的文本文件 AA.txt 中的内容按字高300插入到 cad 中的 （100，100）坐标位置。谢谢。

lengliqun0001 发表于 2021-1-28 12:43:18

本帖最后由 lengliqun0001 于 2021-1-28 12:47 编辑

上传供测试的文件
简单的测试文件上传不了，不知为何？

vitalgg 发表于 2021-3-12 17:19:22

记事本打开aa.txt ，Ctrl+ACtrl+C ,
打开CAD ,Ctrl+V ,调整字高300。起点 100，100

sharetow 发表于 2021-3-17 19:24:27

本帖最后由 sharetow 于 2021-3-17 19:31 编辑

下面代码能实现你的功能，但操作起来好像不便利？
建议做一个右键快捷菜单函数，屏幕中鼠标选择文本中不同行的文字内容，插入字高按屏幕比例。


(defun QQ1(/ aa ff)
      (setvar 'osmode 0)
      (setq ff(open "d:/temp/123/AA.TXT" "r"))
      (setq aa (read-line ff))
      (close ff)
      (ll:Text aa "0" (list 100 100 0) 300 0)
      (setvar 'osmode 15359)
      (princ)
)
(defun ll:Text(lt1 lt2 lt3 lt4 lt5)
      (if(not(tblsearch "style" "L-t"))
                (command "-style" "L-t" "ros1.shx,hztxt.shx" 0 0.75 0 "n" "n" "n")
      )
      (entmake (list
                                                 '(0 . "TEXT")
                                                 (cons 1 lt1)
                                                 (cons 7 "L-t")
                                                 (cons 8 lt2)
                                                 '(10 0 0 0)
                                                 (cons 11 lt3)
                                                 (cons 40 lt4)
                                                 (cons 41 0.75)
                                                 (cons 50 0)
                                                 (cons 72 lt5)
                                                 (cons 73 (1+ lt5))
                                                 '(100 . "AcDbText")
                                       )
      )
)

lengliqun0001 发表于 2022-11-20 15:32:00

谢谢。非常感谢。

shiyj 发表于 2022-12-2 00:32:24

路过学习一下

注册 发表于 2022-12-28 06:09:23

路过，谢谢分享！！！！

查看完整版本: 求一个lsp程序，将d:\temp\123目录下的文本文件 AA.txt 中的内容按字高300插入到 c...