单行文本72，73组码的问题

wgij007

(defun c:tt ()
(entmake
    (list (cons 0 "text")   
            (cons 1 "shwt-47")   
            (cons 10 (getpoint "\n插入点"))
            (cons 40 2.6)      
           (cons 72 1)
           (cons 73 2)
            (cons 7 (getvar "textstyle"))  
    )
)
(princ)
)

不知为什么加上72跟73，原都会在0，0上面生成，去了就正常，望指教。

fangmin723

单行文字要加上11组码

1. (defun c:tt ()
   
2.   (entmake
   
3.     (list (cons 0 "text")   
   
4.       (cons 1 "shwt-47")   
   
5.       (cons 10 (setq pt (getpoint "\n插入点")))
   
6.       (cons 11 pt)
   
7.       (cons 40 2.6)      
   
8.       (cons 72 1)
   
9.       (cons 73 2)
   
10.       (cons 7 (getvar "textstyle"))  
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (entmake<br />     (list (cons 0 "text")   <br />       (cons 1 "shwt-47")   <br />       (cons 10 (setq pt (getpoint "\n插入点")))<br />       (cons 11 pt)<br />       (cons 40 2.6)      <br />       (cons 72 1)<br />       (cons 73 2)<br />       (cons 7 (getvar "textstyle"))  <br />     )<br />   )<br />   (princ)<br /> )

烟盒迷唇

加上71 0看看

wgij007

fangmin723 发表于 2021-3-31 23:16
单行文字要加上11组码

可以了，太感谢了

fangmin723

wgij007 发表于 2021-4-1 08:15
可以了，太感谢了