得到的组码残缺

QF770

选择的图元我用ENTMAKE 创建的多行文本
是创建的原因？

llsheng_73

你从哪里看出它缺失的？

QF770

llsheng_73 发表于 2022-8-12 12:38
你从哪里看出它缺失的？

看第二张截图  最后一组（8 . “         总的组码数量也不够 少了很多组

llsheng_73

QF770 发表于 2022-8-12 14:06
看第二张截图  最后一组（8 . “         总的组码数量也不够 少了很多组

。。。。。。。。你认为那就是它的全部？
我要近一些看火车，是不是就说火车还没汽车长？

wzg356

把窗口拉大看

QF770

llsheng_73 发表于 2022-8-12 15:28
。。。。。。。。你认为那就是它的全部？
我要近一些看火车，是不是就说火车还没汽车长？

2. (defun c:tt24()
   
3.         (setq ff(getfiled "数据输入""c:\\users\\adminstrator\\desktop\""txt"2))
   
4.         (setq ff(open ff "r"))
   
5.         (setq tmplst'())
   
6.         (setq data_str (read-line ff))
   
7.         (while data_str
   
8.                 (setq tmplst(cons (strcat data_str "\n") tmplst))
   
9.                 (setq data_str (read-line ff))
   
10.         )
    
11.         (close ff)
    
12.         (setq tmplst (reverse tmplst))
    
13.         (setq str (apply 'strcat tmplst))
    
14.         (entmake (list
    
15.                                                  '(0 . "MTEXT")
    
16.              '(100 . "AcDbEntity")
    
17.                                                  '(67 . 0)
    
18.                                                  '(410 . "Model")
    
19.                                                  '(8 . "YQ_DIM")
    
20.                                                  '(100 . "AcDbMText")
    
21.                                                  (cons 10 (getpoint"\n选择左下角点："))
    
22.                                                  (cons 40 (getreal"\n输入预设字高："))
    
23.                                                  
    
24.                                                  '(71 . 1)
    
25.                                                  '(72 . 5)
    
26.                                                  (cons 1 str)
    
27.                                                  '(7 . "YQ_DIM")
    
28.                                          )
    
29.                
    
30.         )
    
31.         (princ)
    
32. )
    

(defun c:tt24()<br />         (setq ff(getfiled "数据输入""c:\\users\\adminstrator\\desktop\""txt"2))<br />         (setq ff(open ff "r"))<br />         (setq tmplst'())<br />         (setq data_str (read-line ff))<br />         (while data_str<br />                 (setq tmplst(cons (strcat data_str "\n") tmplst))<br />                 (setq data_str (read-line ff))<br />         )<br />         (close ff)<br />         (setq tmplst (reverse tmplst))<br />         (setq str (apply 'strcat tmplst))<br />         (entmake (list<br />                                                  '(0 . "MTEXT")<br />              '(100 . "AcDbEntity")<br />                                                  '(67 . 0)<br />                                                  '(410 . "Model")<br />                                                  '(8 . "YQ_DIM")<br />                                                  '(100 . "AcDbMText")<br />                                                  (cons 10 (getpoint"\n选择左下角点：")) <br />                                                  (cons 40 (getreal"\n输入预设字高："))<br />                                                  <br />                                                  '(71 . 1)<br />                                                  '(72 . 5)<br />                                                  (cons 1 str)<br />                                                  '(7 . "YQ_DIM") <br />                                          )<br />                 <br />         )<br />         (princ)<br /> )<br />

后面继续使用(entget(car(entsel)))  就不起作用了  组码一个都不出来了

烟盒迷唇

拿个变量去获取它看看不就知道了

QF770

不知道图 哪里搞错了 其他的图元用 entget 也看不到组码了
  重开一张图  再试就好了  
感谢各位大佬的帮助