社区 › AutoLISP/Visual LISP 编程技术 › 单行文本72，73组码的问题

wgij007 发表于 2021-3-31 23:16:28

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

(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 发表于 2021-3-31 23:16:29

本帖最后由 fangmin723 于 2021-4-1 07:44 编辑

单行文字要加上11组码(defun c:tt ()
(entmake
    (list (cons 0 "text")   
      (cons 1 "shwt-47")   
      (cons 10 (setq pt (getpoint "\n插入点")))
      (cons 11 pt)
      (cons 40 2.6)      
      (cons 72 1)
      (cons 73 2)
      (cons 7 (getvar "textstyle"))
    )
)
(princ)
)

烟盒迷唇 发表于 2021-4-1 07:07:22

加上71 0看看

wgij007 发表于 2021-4-1 08:15:46

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

可以了，太感谢了

fangmin723 发表于 2021-4-1 08:37:00

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

查看完整版本: 单行文本72，73组码的问题