如何lsp分层写入到dwg

sunqv

有一个txt文件，内容如下：
aa1,52111111.001,27111111111,021,5.510
bb2,52111121.952,27111111135,127,5.682
cc3,52111125.854,27111111112,327,5.588
dd4,52111112.003,27111111131,323,6.558
aa5,52111131.029,27111111117,157,5.685

如何按每个点号的前2位字母，分层插入到dwg指定坐标？

newer

sunqv 发表于 2021-1-14 20:27
问题解决了，但是我想把这个字体样式改成文鼎CS细等线，麻烦大佬帮忙看下怎么解决     STYLE:文鼎CS细等线  ...

写文字前，确保字体样式已经定义

(setvar "textstyle" "文鼎CS细等线")

newer

要插入什么？

sunqv

aa的点号插入到aa层    bb开头的插入到bb层......

Lisphk

sunqv 发表于 2021-1-14 18:03
aa的点号插入到aa层    bb开头的插入到bb层......

哪个是点号？
AA1 后面的1 ？
还有，你这数据的X,Y相反不？
最好你截取个图，把结果画图上

sunqv

1. (defun C:XDH ()        ;写点号
   
2.   (SETVAR "OSMODE" 0)
   
3.   (SETVAR "CMDECHO" 0)
   
4.   (SETVAR "SNAPMODE" 0)
   
5.   (if (NULL (TBLSEARCH "style" "ZDZT"))(command "_.STYLE" "ZDZT" "HZTXT" "0" "1" "0" "n" "n" "n"))
   
6.   (setq FN (GETFILED "点号数据文件: " "D:/" "txt" 8))
   
7.   (setq F (OPEN FN "r"))
   
8.   (if (NOT F)
   
9.     (progn (setq FN (FINDFILE FN)) (setq F (OPEN FN "r")))
   
10.   )
    
11.   (while (setq TT (READ-LINE F))
    
12.     (setq LST (LN_LST TT))
    
13.     (setq DH (NTH 0 LST))
    
14.     (setq Y1 (ATOF (NTH 1 LST)))
    
15.     (setq X1 (ATOF (NTH 2 LST)))
    
16.     (setq layer (strcat (substr DH 1 2) "_TEXT1"))
    
17.     (if (not (tblsearch "layer" layer )) (progn (command "layer" "new" layer "s" layer "C" 7 "" "L" "Continuous" "" "LW" 0.2 "" "")))
    
18.     (setvar "clayer" layer)
    
19.     (command "_.TEXT" "s" "ZDZT" (LIST X1 Y1) "0.8" "0" DH )
    
20.   )
    
21.   (CLOSE F)
    
22.   (print "点号输出完毕！")
    
23.   (print)
    
24. )
    

(defun C:XDH ()        ;写点号<br />   (SETVAR "OSMODE" 0)<br />   (SETVAR "CMDECHO" 0)<br />   (SETVAR "SNAPMODE" 0)<br />   (if (NULL (TBLSEARCH "style" "ZDZT"))(command "_.STYLE" "ZDZT" "HZTXT" "0" "1" "0" "n" "n" "n"))<br />   (setq FN (GETFILED "点号数据文件: " "D:/" "txt" 8))<br />   (setq F (OPEN FN "r"))<br />   (if (NOT F)<br />     (progn (setq FN (FINDFILE FN)) (setq F (OPEN FN "r")))<br />   )<br />   (while (setq TT (READ-LINE F))<br />     (setq LST (LN_LST TT))<br />     (setq DH (NTH 0 LST))<br />     (setq Y1 (ATOF (NTH 1 LST)))<br />     (setq X1 (ATOF (NTH 2 LST)))<br />     (setq layer (strcat (substr DH 1 2) "_TEXT1"))<br />     (if (not (tblsearch "layer" layer )) (progn (command "layer" "new" layer "s" layer "C" 7 "" "L" "Continuous" "" "LW" 0.2 "" "")))<br />     (setvar "clayer" layer)<br />     (command "_.TEXT" "s" "ZDZT" (LIST X1 Y1) "0.8" "0" DH )<br />   )<br />   (CLOSE F)<br />   (print "点号输出完毕！")<br />   (print)<br /> )<br />

谢谢大佬关注，我这些代码可以分层写出了，
问题: 我的dwt样板中已经有*_TEXT这些图层了   为什么我写到dwg中的文字都是白色的而不是和图层一个颜色的？

Lisphk

sunqv 发表于 2021-1-14 19:18
谢谢大佬关注，我这些代码可以分层写出了，
问题: 我的dwt样板中已经有*_TEXT这些图层了   为什么我写 ...

你这句
(command "layer" "new" layer "s" layer "C" 7 "" "L" "Continuous" "" "LW" 0.2 "" "")
设置了图层颜色是7
虽然你本意是没有这个图层，你新建，但是你确定你当前图有这些层吗？
你可以在那个IF分支里面，加个打印语句，看看是不是每次都执行到这里面建立图层了。

你开张新图，什么也不做，看看那些图层是否都在？

sunqv

问题解决了，但是我想把这个字体样式改成文鼎CS细等线，麻烦大佬帮忙看下怎么解决     STYLE:文鼎CS细等线   字体名：文鼎CS细等线  字体样式：常规   高度：0.8  宽度：0.8   旋转角度：0    如图所示。谢谢大神。。。

newer

在

(command "_.TEXT" "s" "ZDZT" (LIST X1 Y1) "0.8" "0" DH )

下面添加

(command ".chprop" (entlast) "" "color" "bylayer" "")

修改颜色随层