需要帮助！使用lisp Create tex
嘿伙计们，我想使用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
这项工作终于完成了。
请帮帮我！非常感谢！我感激不尽 为什么这么麻烦？创建新的dim样式（真的，需要多长时间？）然后将其拖放到自定义工具选项板上。一个，完成了。文本样式也是如此。 如果打算仅在新图形中使用此选项（即它，而不是调整现有图形），则使用这些选项设置模板将是另一种解决方案。
这只是程序的一部分，我想制作一个autodim lisp，必须使用这种文本样式&dim样式 然后按照前面的建议，将样式作为模板的一部分。
嗨，MSasu，如果你有额外的时间，或者很无聊，请帮助我！我感激不尽 假设您创建了一个lisp例程来同时完成这两个任务。然后在图形中首次使用它。从那时起，每次需要这些样式时，都可以通过设计中心将其拖放到新图形中，或者像我前面提到的那样，将其放置在自定义工具选项板上。 (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，$6ordinate 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
我不知道如何使用自定义函数
很抱歉，我不会为您创建模板，因为这很容易由您自己完成-只需执行您正在寻找的设置（不仅是样式，还包括启动新图形所需的一切），并将其保存为模板文件（DWT）。AutoCAD将自动指向模板文件夹；选择相关名称。别忘了备份一份。
可能还希望将新命令指向此模板（在选项-->文件-->模板设置-->QNEW的默认模板文件名中）。
我不想要模板，我需要一个lisp！
页:
[1]
2