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

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

原贴：快速插入单行文字，记忆文字高度，或居中插入自动计算高度
http://bbs.mjtd.com/forum.php?mo ... amp;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) ; 输出结果

(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

你都不愿意自己学学么？

，全是伸手党啊

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
最神的是：求助免费，分享搬运来的免费插件收币

请看仔细点，我有币时我那次没给的

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

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

评分