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

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

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

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

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

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

;;;快速插入单行文字
(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)

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

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

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

; 错误: no function definition: ASDF2

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

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

好提议！已修正

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

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

我的也是这样。

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

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

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

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

楼主程序不好用啊

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

; 错误: no function definition: ASDF2

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分