需要帮助！使用lisp Create tex

lucas3 · 发表于 2022-7-5 23:42:53

嘿伙计们，
我想使用lisp创建新的文字样式和标注样式，详细信息如下：
1、创建名为“ggg”的文本样式
字体：gdt。shx，大字体：gbcbig。shx公司

2.创建名为“custom”的标注样式

2.1基线间距：7，超出尺寸线：2.25，从原点偏移：2

2.2文字长度：ggg，文字高度：2.5

2.3创建子样式作为直径

2.4文本对齐设置为ISOstandard

这项工作终于完成了。

请帮帮我！非常感谢！我感激不尽

ReMark · 发表于 2022-7-5 23:48:38

为什么这么麻烦？创建新的dim样式（真的，需要多长时间？）然后将其拖放到自定义工具选项板上。一个，完成了。文本样式也是如此。

MSasu · 发表于 2022-7-5 23:50:07

如果打算仅在新图形中使用此选项（即它，而不是调整现有图形），则使用这些选项设置模板将是另一种解决方案。

lucas3 · 发表于 2022-7-5 23:55:28

这只是程序的一部分，我想制作一个autodim lisp，必须使用这种文本样式&dim样式

ReMark · 发表于 2022-7-5 23:58:24

然后按照前面的建议，将样式作为模板的一部分。

lucas3 · 发表于 2022-7-5 23:59:20

嗨，MSasu，如果你有额外的时间，或者很无聊，请帮助我！我感激不尽

ReMark · 发表于 2022-7-6 00:03:18

假设您创建了一个lisp例程来同时完成这两个任务。然后在图形中首次使用它。从那时起，每次需要这些样式时，都可以通过设计中心将其拖放到新图形中，或者像我前面提到的那样，将其放置在自定义工具选项板上。

lucas3 · 发表于 2022-7-6 00:05:34

copy

(command ".-style" "Gdt" "gdt.shx,gbcbig.shx" 0 1.0 0 "n" "n" "n")
(defun MkDimStyleFrom (OldName NewName / dims ndim)
 (setq dims (vla-get-dimstyles
       (vla-get-activedocument (vlax-get-acad-object))
     )
 )
 (if (tblsearch "dimstyle" oldname)
   (progn
     (if (not (tblsearch "DimStyle" newName))
(setq ndim (vla-add dims newName))
     )
     (vla-copyfrom (vla-item dims oldname) ndim)
     (vla-put-activedimstyle dims ndim)
   )
 )
)
;;$2 augular dimensions，$3 diameter dimensions，$4 radius dimensions，$6  ordinate dimensions 
(defun mksubdimsty (name mod / dims)
 (setq dims (vla-get-dimstyles
       (vla-get-activedocument (vlax-get-acad-object))
     )
 )
 (if (not (tblsearch "dimstyle" name))
   (progn
     (vla-put-activedocument dims (vla-item dims name))
     (vl-cmdf ".dimstyle" "s" (strcat (getvar "dimstyle") mod))
   )
 )
 (princ)
)

此代码来自“http://bbs.xdcad.net/thread-672496-1-1.html“作者是st788796

我不知道如何使用自定义函数

MSasu · 发表于 2022-7-6 00:08:58

很抱歉，我不会为您创建模板，因为这很容易由您自己完成-只需执行您正在寻找的设置（不仅是样式，还包括启动新图形所需的一切），并将其保存为模板文件（DWT）。AutoCAD将自动指向模板文件夹；选择相关名称。别忘了备份一份。
可能还希望将新命令指向此模板（在选项-->文件-->模板设置-->QNEW的默认模板文件名中）。

lucas3 · 发表于 2022-7-6 00:14:24

我不想要模板，我需要一个lisp！

[编程交流] 需要帮助！使用lisp Create tex

发表回复

精选推荐