zwq8629 发表于 2023-7-7 16:30:47

请大师帮忙在路径后面加个当前文件的文件名

原贴：快速插入单行文字，记忆文字高度，或居中插入自动计算高度
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=186308&fromuid=7331742
(出处: 明经CAD社区)



请大师帮忙在路径后面加个当前文件的文件名、字体能用两点确认（或者缩放）


(defun C:TT1()
                (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 (getvar "dwgprefix"))
                                (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)

lxl217114 发表于 2023-7-7 18:39:46

liuhe 发表于 2023-7-7 16:51
你都不愿意自己学学么？，全是伸手党啊

最神的是：求助免费，分享搬运来的免费插件收币

水洗可口可乐 发表于 2023-7-7 17:20:30

(defun C:TT5()
(defun *error* (msg)
    (setvar "osmode" os0) ; 错误处理函数，将osmode恢复为原始值
)
(if (not (tblsearch "style" "MY")) ; 如果样式表中不存在名为"MY"的样式
    (vl-cmdf "-style" "MY" "gbenor.shx,hztxt.shx" "" 0.8 "" "" "" "") ; 创建名为"MY"的样式
)
(if (not (tblsearch "layer" "A-TEXT")) ; 如果图层表中不存在名为"A-TEXT"的图层
    (vl-cmdf "-layer" "N" "A-TEXT" "c" "7" "A-TEXT" "p" "p" "A-TEXT" "") ; 创建名为"A-TEXT"的图层
)
(setvar "cmdecho" 0) ; 关闭命令行回显
(setq os0 (getvar "osmode")) ; 获取当前osmode的值并保存到变量os0中
(setq xmnr (strcat (getvar "dwgprefix") (getvar "dwgname"))) ; 获取当前文件名并添加为前缀
(setvar "osmode" (+ os0 16384)) ; 将osmode设置为os0的值加上16384
(setq inpt (getpoint "\n指定插入点：")) ; 获取用户指定的插入点
(setq txtHt (getreal "\n指定文字高度：")) ; 获取用户指定的文字高度
(entmake (list '(0 . "TEXT") (cons 1 xmnr) (cons 8 "A-TEXT") (cons 7 "MY") (cons 40 txtHt) (cons 72 0) (cons 73 1) (cons 10 inpt) (cons 11 inpt) (cons 50 0))) ; 创建一个TEXT实体
(setvar "osmode" os0) ; 恢复osmode的值为原始值
(setvar "cmdecho" 1) ; 打开命令行回显
)
(princ) ; 输出结果

liuhe 发表于 2023-7-7 16:51:49

你都不愿意自己学学么？:L，全是伸手党啊;P

zwq8629 发表于 2023-7-7 17:02:07

liuhe 发表于 2023-7-7 16:51
你都不愿意自己学学么？，全是伸手党啊

才接触，只会搞一点点

zwq8629 发表于 2023-7-7 18:31:15

水洗可口可乐 发表于 2023-7-7 17:20


谢谢，我没用上"strcat",连不起来

水洗可口可乐 发表于 2023-7-7 19:17:00

zwq8629 发表于 2023-7-7 18:31
谢谢，我没用上"strcat",连不起来

我也是抄的，哈哈

zwq8629 发表于 2023-7-7 20:03:25

lxl217114 发表于 2023-7-7 18:39
最神的是：求助免费，分享搬运来的免费插件收币

请看仔细点，我有币时我那次没给的
页: [1]
查看完整版本: 请大师帮忙在路径后面加个当前文件的文件名