entmake创建线型——绘图标准化

林霄云

绘图标准化在初始线型的时候，原用command命令，并且修改线型文件。其实可以用entmake（entmakex）函数创建。更加简洁。
原文出处：CAD绘图初始化探讨与setup函数解析
http://bbs.mjtd.com/forum.php?mo ... 015&fromuid=7303580
创建虚线：（lts为1000）

1. (defun make_dash( / temp-list)
   
2. (setq temp-list (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord")
   
3. '(2 . "DASHED") '(70 . 0) '(3 . "Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _")
   
4. '(72 . 65) '(73 . 2) '(40 . 0.4) '(49 . 0.3) '(74 . 0) '(49 . -0.1) '(74 . 0)))
   
5. (entmakex temp-list)
   
6. )

(defun make_dash( / temp-list)<br /> (setq temp-list (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") <br /> '(2 . "DASHED") '(70 . 0) '(3 . "Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _") <br /> '(72 . 65) '(73 . 2) '(40 . 0.4) '(49 . 0.3) '(74 . 0) '(49 . -0.1) '(74 . 0)))<br /> (entmakex temp-list)<br /> )

创建点划线：

1. (defun make_axis( / temp-list)
   
2. (setq temp-list (list '(0 . "LTYPE")  '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord")
   
3. '(2 . "DOTE") '(70 . 0) '(3 . "DOTE _________________._________________")
   
4. '(72 . 65) '(73 . 4) '(40 . 2.725) '(49 . 2.5) '(74 . 0) '(49 . -0.1) '(74 . 0) '(49 . 0.025) '(74 . 0) '(49 . -0.1) '(74 . 0)))
   
5. (entmakex temp-list)
   
6. )

(defun make_axis( / temp-list)<br /> (setq temp-list (list '(0 . "LTYPE")  '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") <br /> '(2 . "DOTE") '(70 . 0) '(3 . "DOTE _________________._________________") <br /> '(72 . 65) '(73 . 4) '(40 . 2.725) '(49 . 2.5) '(74 . 0) '(49 . -0.1) '(74 . 0) '(49 . 0.025) '(74 . 0) '(49 . -0.1) '(74 . 0)))<br /> (entmakex temp-list)<br /> )

如果创建失败，返回为nil，是图纸中已含该线型的定义。可以修改。比如修改虚线：

1. (defun std-dashed(en /  code73 code40 vallist ent X)
   
2. ;函数std-dashed，参数en 图元名。返回值，标准虚线，由vallist参数内定。
   
3. ;Desiged by 林霄云 2018年9月17日
   
4. ;(tblobjname "ltype" "dashed");用于测试。可以作为参数传递对象。
   
5. ;(0 . LTYPE) (0 . LTYPE)  (5 . 249) (100 . AcDbSymbolTableRecord) (100 . AcDbLinetypeTableRecord) (2 . DASHED) (70 . 0) (3 . Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _)
   
6. ; (72 . 65) (73 . 2) (40 . 0.4) (49 . 0.3) (74 . 0) (49 . -0.1) (74 . 0))
   
7. (setq code73 2 code40 0.4 vallist '(0.3 -0.1))
   
8. (setq ent (entget en))
   
9. ;第一步，去掉49、74
   
10. (setq ent  
    
11. (vl-remove-if '(lambda(X)
    
12. (if (= 49 (car X) ) t )  
    
13. );lambda
    
14. ent
    
15. ));
    
16. (setq ent  
    
17. (vl-remove-if '(lambda(X)
    
18. (if (= 74 (car X) ) t )  
    
19. );lambda
    
20. ent
    
21. ));
    
22. ;第二步，更新40,73
    
23. (setq ent (subst (cons 40 code40)(assoc 40 ent) ent))
    
24. (setq ent (subst (cons 73 code73)(assoc 73 ent) ent))
    
25. ;第三步，添加新的49、74
    
26. (mapcar '(lambda(x)(setq ent (append ent (list (cons 49 x)(cons 74 0))))) vallist)
    
27. (princ ent)
    
28. (entmod ent)
    
29. 
    
30.   );defun

(defun std-dashed(en /  code73 code40 vallist ent X)<br /> ;函数std-dashed，参数en 图元名。返回值，标准虚线，由vallist参数内定。<br /> ;Desiged by 林霄云 2018年9月17日<br /> ;(tblobjname "ltype" "dashed");用于测试。可以作为参数传递对象。<br /> ;(0 . LTYPE) (0 . LTYPE)  (5 . 249) (100 . AcDbSymbolTableRecord) (100 . AcDbLinetypeTableRecord) (2 . DASHED) (70 . 0) (3 . Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _)<br /> ; (72 . 65) (73 . 2) (40 . 0.4) (49 . 0.3) (74 . 0) (49 . -0.1) (74 . 0))<br /> (setq code73 2 code40 0.4 vallist '(0.3 -0.1))<br /> (setq ent (entget en))<br /> ;第一步，去掉49、74<br /> (setq ent  <br /> (vl-remove-if '(lambda(X)<br /> (if (= 49 (car X) ) t )  <br /> );lambda<br /> ent<br /> ));<br /> (setq ent  <br /> (vl-remove-if '(lambda(X)<br /> (if (= 74 (car X) ) t )  <br /> );lambda<br /> ent<br /> ));<br /> ;第二步，更新40,73<br /> (setq ent (subst (cons 40 code40)(assoc 40 ent) ent))<br /> (setq ent (subst (cons 73 code73)(assoc 73 ent) ent))<br /> ;第三步，添加新的49、74<br /> (mapcar '(lambda(x)(setq ent (append ent (list (cons 49 x)(cons 74 0))))) vallist)<br /> (princ ent)<br /> (entmod ent)<br /> <br />   );defun

本文可作为entmake创建图元的补充：
entmake创建图元必要条件(慢慢更新)
http://bbs.mjtd.com/forum.php?mo ... 482&fromuid=7303580

依然小小鸟

给力 同为结构人  感谢楼主为标准化画图做的贡献

lxw320

強烈支持！！！！

原地踏步

请问如何创建复杂线型？（带字符串的）

林霄云

原地踏步 发表于 2018-9-20 20:48
请问如何创建复杂线型？（带字符串的）

先取得复杂线型dxf的定义数据：(entget (tblobjname "ltype" "复杂线型名称“))

依然小小鸟

林霄云 发表于 2018-9-25 08:51
先取得复杂线型dxf的定义数据：(entget (tblobjname "ltype" "复杂线型名称“))

我有另外一个思路 我觉得不如自己做一个dwt模板文件 更省事

原地踏步

林霄云 发表于 2018-9-25 08:51
先取得复杂线型dxf的定义数据：(entget (tblobjname "ltype" "复杂线型名称“))

所谓“创建”，就是图中原本不存在的。用tblobjname只能返回nil。

skg123

学习一下，

cghdy

林霄云 发表于 2018-9-25 08:51
先取得复杂线型dxf的定义数据：(entget (tblobjname "ltype" "复杂线型名称“))

不清楚哪些是必要的，哪些是多余的，生成不出来