[求助]：能否在打开ACAD时，自动建立一个“文字样式”？

TLHMQH

我在ACAD中定义了一种复合线型（文本线型），其要求在定义线型中必须定义文字样式。

这就要求在加载文本线型之前，必须先定义与线型中文字样式相同的文字样式。

我们在正常绘图时，往往是先绘图，后标注（即后设文字样式），这就造成了：

新建一个ACAD文件，加载文本线型时，提示错误（没定义线型中定义的文字样式），

如用ACAD2004默认的Standard文字样式，出图效果不好（如把O显示为□）。



问：能否在打开ACAD时，自动建立一个“文字样式”？ 这个样式就是定义线型中的文字样式，如文字样式名为“线型”，字体为“宋体”等等。

有请高手指教，先谢谢！

phoenixdjq

把命令放到acad.lsp或acad.mnl中
启动的时候，就可以了

carrot1983

把命令放到acad.lsp或acad.mnl中
启动的时候，就可以了

比如你生成字体的程序名为：test.lsp那么
在acad.lsp里面加一句(load "test.lsp")  当然test.lsp应该在搜索路径里。。最好是拉到启动组里吧。方便。。。。
[php]
(defun c:test ()
    (setq echo (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "-style" "线型" "宋体" "" "" "" "" "")
    (setvar "cmdecho"echo)
    (princ)
)

(c:test)   ;;;这样就可以了。这个是重点。
[/php]
运行后相当于：：：：

1. 命令: -style 输入文字样式名或 [?] <Standard>: 线型
   
2. 
   
3. 新样式。
   
4. 指定完整的字体名或字体文件名 (TTF 或 SHX):  <txt>: 宋体
   
5. 指定文字高度 <0.0000>:
   
6. 指定宽度比例 <1.0000>:
   
7. 
   
8. 指定倾斜角度 <0>:
   
9. 是否反向显示文字？[是(Y)/否(N)] <N>:
   
10. 是否颠倒显示文字？[是(Y)/否(N)] <N>:
    
11. 
    
12. “线型”是当前文字样式。
    

复制代码

phoenixdjq

把这些代码直接放到acad.lsp中
或者把这个代码放到acad.lsp中，然后把这个程序放到e盘，并起名为1.lsp
(defun s::startapp()
(load "e:/1.lsp")   ；这里最好写上路径
(test)
)

zml84

大家讨论的实际上是标准的继承问题，建立模板是不错的选择。
制定个人或工作组的标准是很有必要的。

limingqian

直接在样板图中设置就行了。没有必要编制这样的程序。

TLHMQH

最初由 zml84 发布
大家讨论的实际上是标准的继承问题，建立模板是不错的选择。
制定个人或工作组的标准是很有必要的。

制定个人的模板是不错的选择。但若多人使用，并不一定都是直接打开你设定的模板，若直接在开始菜单的程序里直接打开ACAD，就有可能不是使用模板。因此，若要比较完美，就应在ACAD打开时，就设定文字的样式和字体。
当然，也可建立一个建立样式和字体的命令，在启动CAD后，执行这个命令。
能不能自动启动这样一个命令：在原CAD完全加载后，再加载这个建立样式和字体的命令，这样才能达到完美。
或者直接修改系统默认的样式和字体。
这些该怎样做呢。

tianxinglibo

为人民服务

TLHMQH

问题解决，谢谢楼上各位。特别是3楼的方法较好。