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

lengliqun0001

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

lengliqun0001

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

vitalgg

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

sharetow

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


(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

谢谢。非常感谢。

shiyj

路过学习一下

注册

路过，谢谢分享！！！！