cq4920 发表于 2022-9-25 17:18:44

快速插入单行文字，记忆文字高度，或居中插入自动计算高度

本帖最后由 cq4920 于 2022-9-26 17:42 编辑

这样的输入应该会更丝滑一点



andyzha 发表于 2022-9-26 08:51:02

既然是快速输入文字，应该设置默认就是“文字”，后续再修改，默认文字样式，图层及宽比。

;;;快速插入单行文字
(defun C:TT0()
        (defun *error* (msg)(setvar "osmode" os0))
        (if (not(tblsearch "style" "MY"))(vl-cmdf "-style" "MY" "gbenor.shx,hztxt.shx" "" 0.8 "" "" "" ""))
        (if (not(tblsearch "layer" "A-TEXT")) (vl-cmdf "-layer" "N" "A-TEXT" "c" "7" "A-TEXT" "p" "p" "A-TEXT" ""))
        (setvar "cmdecho" 0)
        (setq os0 (getvar "osmode"))
        (setq xmnr "文字")
        (setvar "osmode" (+ os0 16384))
        (setq inpt (getpoint "\n指定插入点："))
        (entmake (list '(0 . "TEXT") (cons 1 xmnr) (cons 8 "A-TEXT") (cons 7 "MY") (cons 41 0.7) (cons 72 0)(cons 73 1) (cons 10 inpt) (cons 11 inpt) (cons 40 50)))
        (entmake)
        (setvar "osmode" os0)
        (setvar "cmdecho" 1)
)
(princ)

muai2010 发表于 2023-9-25 16:28:13

cq4920 发表于 2022-9-26 17:39
好提议！已修正

指定插入点:[设置高度(a)/文字占中(d)] 参数类型错误: fixnump: nil

20060510412 发表于 2022-9-26 15:07:27

像这种应用场景，是否直接复制已有文字然后修改，更方便一些呢？

664571221 发表于 2022-9-26 15:56:20

; 错误: no function definition: ASDF2

cq4920 发表于 2022-9-26 17:39:15

20060510412 发表于 2022-9-26 15:07
像这种应用场景，是否直接复制已有文字然后修改，更方便一些呢？

好提议！已修正

hnzkhyyl 发表于 2023-9-25 13:37:05

664571221 发表于 2022-9-26 15:56
; 错误: no function definition: ASDF2

我的也是这样。

edsion24 发表于 2023-9-26 08:16:10

楼主程序不好用啊

tdl555 发表于 2023-9-26 08:33:29


; 错误: no function definition: ASDF2

fengyu6913 发表于 2024-6-29 14:49:06

命令: te
指定插入点:[设置高度(a)/文字占中(d)] ; 错误: no function definition: ASDF2
页: [1] 2
查看完整版本: 快速插入单行文字，记忆文字高度，或居中插入自动计算高度