LINETYPE加载---偷懒篇

阿凯

"_LINETYPE",线型是否已经存在会影响命令。偏偏LINETYPE又不能用TBLSEARCH之类的函数。
网上找到的程序代码需要历遍文件图元，读取一个已经加载的LINETYPE列表，感觉这样影响运行速度。
所以，一直用偷懒的方法（change命令）让CAD自己加载线型：
    (Entmake (list '(0 . "LINE") '(10 0.0 0.0) '(11 0.0 0.0)))
    (COMMAND "CHANGE" (ENTLAST) "" "P" "LT"  "DASHDOT" "")
    (COMMAND "ERASE" (ENTLAST) "")
不用理会线型是否存在。当然自己定制的线型，就直接放在"acad.lin"里了。
这是个懒办法，而已。

Lisphk

楼主，直接：

(vl-cmdf "linetype" "l" "dashed" "acad.lin" "" "")

这样不就行了吗？

阿凯

Lisphk 发表于 2013-11-15 18:08
楼主，直接：

(vl-cmdf "linetype" "l" "dashed" "acad.lin" "" "")

如果文件里没有"dashed"线型呢？是不是多了个回车？

st788796

(vl-catch-all-apply 'vla-load (list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object))) "Dashed" "acad.lin"))

xshrimp

(tblsearch "LTYPE" "DASHDOT") 不能判断吗?

2. 
   
3. (defun xzj-entmake-ltype (nombre descripcion lista-parametros)
   
4.   (entmake
   
5.     (append
   
6.         (list
   
7.           '(0 . "LTYPE")
   
8.           '(100 . "AcDbSymbolTableRecord")
   
9.           '(100 . "AcDbLinetypeTableRecord")
   
10.           (cons 2 nombre)
    
11.           '(70 . 0)
    
12.           (cons 3 descripcion)
    
13.           (cons 72 (ascii (nth 0 lista-parametros)))
    
14.           (cons 73 (- (length lista-parametros) 1))
    
15.           (cons 40 (apply '+ (mapcar 'abs (cdr lista-parametros))))
    
16.         )         
    
17.         (apply 'append
    
18.           (mapcar
    
19.           '(lambda (x) (list (cons 49 x) '(74 . 0)))
    
20.           (cdr lista-parametros)
    
21.           )
    
22.         )
    
23.     )
    
24.   )
    
25. )
    
26. 
    
27. ;;;*DASHDOT,Dash dot __ . __ . __ . __ . __ . __ . __ . __
    
28. ;;;A,.5,-.25,0,-.25
    
29. (xzj-entmake-ltype "DASHDOT" "Dash dot __ . __ . __ . __ . __ . __ . __ . __" '("A" 0.5 -0.25 0 -0.25))
    
30. 
    

<br /> (defun xzj-entmake-ltype (nombre descripcion lista-parametros)<br />   (entmake<br />     (append<br />         (list<br />           '(0 . "LTYPE")<br />           '(100 . "AcDbSymbolTableRecord")<br />           '(100 . "AcDbLinetypeTableRecord")<br />           (cons 2 nombre)<br />           '(70 . 0)<br />           (cons 3 descripcion)<br />           (cons 72 (ascii (nth 0 lista-parametros)))<br />           (cons 73 (- (length lista-parametros) 1))<br />           (cons 40 (apply '+ (mapcar 'abs (cdr lista-parametros))))<br />         )          <br />         (apply 'append<br />           (mapcar<br />           '(lambda (x) (list (cons 49 x) '(74 . 0)))<br />           (cdr lista-parametros)<br />           )<br />         )<br />     )<br />   )<br /> )<br /> <br /> ;;;*DASHDOT,Dash dot __ . __ . __ . __ . __ . __ . __ . __<br /> ;;;A,.5,-.25,0,-.25<br /> (xzj-entmake-ltype "DASHDOT" "Dash dot __ . __ . __ . __ . __ . __ . __ . __" '("A" 0.5 -0.25 0 -0.25))<br /> <br />

阿凯

xshrimp 发表于 2013-11-15 19:46
(tblsearch "LTYPE" "DASHDOT") 不能判断吗?

{:soso_e127:}能......
扔了块破砖，果然受益良多