[LISP程序]：请教高手

杀猪刀

请教各位高手一个问题，怎样判断一张图里有没有加载某种字体，并且如果没有加载即加载，已加载则直接返回。
最好有办法判断加载的字体名如：complex实际所用的字体是否是complex.shx。

XDSoft

最初由 杀猪刀 发布
[B]请教各位高手一个问题，怎样判断一张图里有没有加载某种字体，并且如果没有加载即加载，已加载则直接返回。
最好有办法判断加载的字体名如：complex实际所用的字体是否是complex.shx。 [/B]

给你纠正个认识，ACAD对文字是引用，并不加载。

你要问的是某个“文字样式名”是否定义了吧？对系统来说，文字样式名是唯一的，保存在数据库的”文字样式表“容器里面。而不同的样式名里面，都可以定义相同的字体。

杀猪刀

谢谢xdsoft老大，能不能给一段源代码，我不会太贪心了吧？

XDSoft

最初由 杀猪刀 发布
[B]谢谢xdsoft老大，能不能给一段源代码，我不会太贪心了吧？ [/B]

2. 
   
3. [FONT=courier new]
   
4. (if (tblsearch "style" "样式名")
   
5.    (progn
   
6.        ...............;;文字样式存在
   
7.    )
   
8. )[/FONT]

<br /> [FONT=courier new]<br /> (if (tblsearch "style" "样式名")<br />    (progn<br />        ...............;;文字样式存在<br />    )<br /> )[/FONT]

用你需要判断的 样式名 替换上面的“样式名"

杀猪刀

这里真有一种到了家的感觉，呵呵

杀猪刀

想要新建一个层或者一种字体类型应该怎样呢？entmake好像不行。

XDSoft

最初由 杀猪刀 发布
[B]想要新建一个层或者一种字体类型应该怎样呢？entmake好像不行。 [/B]

你是怎么写的，把代码贴出来，大家看看吧。

杀猪刀

想判断图中是否已经有complex这种字体定义，如果没有就定义complex，采用complex.shx，只知道用command加-style能行，但总觉有些不好，想用dxf代码解决。
刚开始学，懂得不多，希望斑竹讲清楚些，谢谢！
想用entmake新建一种字体定义：
(entmake '(
(0 . "STYLE")
(2 . "Complex")
(70 . 0)
(40 . 0.0)
(41 . 1.0)
(50 . 0.0)
(71 . 0)
(42 . 2.5)
(3 . "complex.shx")
(4 . "")
)
)

XDSoft

最初由 杀猪刀 发布
[B]想判断图中是否已经有complex这种字体定义，如果没有就定义complex，采用complex.shx，只知道用command加-style能行，但总觉有些不好，想用dxf代码解决。
刚开始学，懂得不多，希望斑竹讲清楚些，谢谢！
想用entma... [/B]

你应该这样写：

1. 
   
2. [FONT=courier new]
   
3. (entmake '((0 . "STYLE") (100 . "AcDbSymbolTableRecord")
   
4.           (100 . "AcDbTextStyleTableRecord")
   
5.           (2 . "Complex")
   
6.           (70 . 0)
   
7.           (40 . 0.0)
   
8.           (41 . 1.0)
   
9.           (50 . 0.0)
   
10.           (71 . 0)
    
11.           (42 . 2.5)
    
12.           (3 . "Complex.shx")
    
13.           (4 . "")
    
14.          )
    
15. )[/FONT]

复制代码

entmake创建对象时候，对象的类一定要写，因为文字样式是符号表下的AcDbTextStyleTableRecord，因此上面的两个100组码要给出。

你试试写一个创建层的ENTMAKE贴到论坛来。

cy956

看看这个:

杀猪刀

我试写了一下新建层的代码，再AutoCAD2002和R14通过了，呵呵：
(entmake '(
           (0 . "LAYER")
           (100 . "AcDbSymbolTableRecord")
           (100 . "AcDbLayerTableRecord")
           (2 . "SteelBar")
           (70 . 0)
           (62 . 1)
           (6 . "Continuous")
           )
         )

wolfkingforever

用DXF和用Command哪一个快？

XDSoft

最初由 wolfkingforever 发布
[B]用DXF和用Command哪一个快？ [/B]

任何时候，COMMAND都是最慢的。能用其他方法实现的，尽量不要用COMMAND，其他方法包括对实体进行处理的，如ENTMAKE,ENTMOD等等。