如何用LISP加载 .MLN 文件

Free-Lancer

How to load a .MLN file using LISPBy Augusto Goncalves
There isn't a ready-to-use API function that loads a .MLN file in Lisp, VBA and ARX. Normally you can do this only by using the MLSTYLE dialog.
Of course, it's possible to create the dictionary entry of a multiline style definition programmatically with either API. The following code shows how to read the .MLN file in Lisp and how to create the MLINESTYLE objects defined in it.

2. (defun c:LoadMlStyles (/ mlFileName)
   
3.    (setq mlFileName (getstring "\nEnter MLN file name: "))
   
4.    (if (/= nil mlFileName)
   
5.       (LoadMln mlFileName)
   
6.    )
   
7.    (princ)
   
8. )
   
9. 
   
10. 
    
11. (defun LoadMln (mlnFile / f mlineDict same newStyle xName)
    
12.    (setq mlnFile (findfile mlnFile))
    
13.    (setq f (open mlnFile "r"))
    
14.    ;;(setq f (open mlnFile "r"))
    
15.    (if (= NIL f)
    
16.       (princ "\nInvalid MLN file.\n")
    
17.       (progn
    
18.          ;; Get the MLINESTLYE dictionary.
    
19.          (setq mlineDict (dictsearch
    
20.                (namedobjdict) "ACAD_MLINESTYLE"))
    
21.          ;; Create the beginning of an MLINESTYLE object.
    
22.          (setq same (list (cons 0 "MLINESTYLE")
    
23.                              ;;(cons 102 "{ACAD_REACTORS")
    
24.                              ;;(cons 330 (cdr (assoc -1 mlineDict)))
    
25.                              ;;(cons 102 "}")
    
26.                              ;;(cons 330 (cdr (assoc -1 mlineDict)))
    
27.                                  (cons 100 "AcDbMlineStyle")
    
28.                           )
    
29.          )
    
30.          ;;
    
31.          ;; Read the data of the MLINESTYLE
    
32.          ;;
    
33.          (while (/= nil (setq mlStyle (ReadObject f)))
    
34.             ;; Create the complete MLINESTYLE object.
    
35.             (setq newStyle (append same mlStyle)
    
36.                      xName    (entmakex newStyle)
    
37.             )
    
38.             ;; Append it to the MLINESTYLE dictionary.
    
39.             (dictadd (cdr (assoc -1 mlineDict))
    
40.                (cdr (assoc 2 newStyle))
    
41.                xName
    
42.             )
    
43.          )
    
44.       )
    
45.    )
    
46.    (close f)
    
47.    (princ)
    
48. )
    
49. 
    
50. (defun ReadObject (f / ObjectList firstLine code value)
    
51.   (setq ObjectList nil)
    
52.   ;; Skip the 'MLSTYLE'.
    
53.   (setq firstLine (read-line f))
    
54.   (if (/= nil firstLine)
    
55.    (progn
    
56.      (while (/= 0 (setq code (atoi (read-line f))))
    
57.         (setq value (vl-string-trim " " (read-line f)))
    
58.         (if (or (= code 2)
    
59.                   (= code 3)
    
60.                   (= code 6)
    
61.             )
    
62.            (setq ObjectList (append ObjectList
    
63.            (list (cons code value))))
    
64.         )
    
65.         (if (or (= code 70)
    
66.                   (= code 62)
    
67.                   (= code 71)
    
68.              )
    
69.            (setq ObjectList (append ObjectList
    
70.            (list (cons code (atoi value)))))
    
71.         )
    
72.         (if (or (= code 51)
    
73.                 (= code 52)
    
74.           )
    
75.           ;; Code 51 and 52 must be converted into degrees.
    
76.           (setq ObjectList  
    
77.             (append ObjectList  
    
78.             (list (cons code  
    
79.             (angtof value 0)))))
    
80.           )
    
81.           (if (= code 49)
    
82.            (setq ObjectList  
    
83.            (append ObjectList
    
84.            (list (cons code (atof value)))))
    
85.           )
    
86.        )
    
87.    )
    
88.   )
    
89.   ObjectList
    
90. )

(defun c:LoadMlStyles (/ mlFileName) <br />    (setq mlFileName (getstring "\nEnter MLN file name: ")) <br />    (if (/= nil mlFileName) <br />       (LoadMln mlFileName) <br />    ) <br />    (princ) <br /> ) <br /> <br /> <br /> (defun LoadMln (mlnFile / f mlineDict same newStyle xName) <br />    (setq mlnFile (findfile mlnFile)) <br />    (setq f (open mlnFile "r")) <br />    ;;(setq f (open mlnFile "r")) <br />    (if (= NIL f) <br />       (princ "\nInvalid MLN file.\n") <br />       (progn <br />          ;; Get the MLINESTLYE dictionary. <br />          (setq mlineDict (dictsearch <br />                (namedobjdict) "ACAD_MLINESTYLE")) <br />          ;; Create the beginning of an MLINESTYLE object. <br />          (setq same (list (cons 0 "MLINESTYLE") <br />                              ;;(cons 102 "{ACAD_REACTORS") <br />                              ;;(cons 330 (cdr (assoc -1 mlineDict))) <br />                              ;;(cons 102 "}") <br />                              ;;(cons 330 (cdr (assoc -1 mlineDict))) <br />                                  (cons 100 "AcDbMlineStyle") <br />                           ) <br />          ) <br />          ;; <br />          ;; Read the data of the MLINESTYLE <br />          ;; <br />          (while (/= nil (setq mlStyle (ReadObject f))) <br />             ;; Create the complete MLINESTYLE object. <br />             (setq newStyle (append same mlStyle) <br />                      xName    (entmakex newStyle) <br />             ) <br />             ;; Append it to the MLINESTYLE dictionary. <br />             (dictadd (cdr (assoc -1 mlineDict)) <br />                (cdr (assoc 2 newStyle)) <br />                xName <br />             ) <br />          ) <br />       ) <br />    ) <br />    (close f) <br />    (princ) <br /> ) <br /> <br /> (defun ReadObject (f / ObjectList firstLine code value) <br />   (setq ObjectList nil) <br />   ;; Skip the 'MLSTYLE'. <br />   (setq firstLine (read-line f)) <br />   (if (/= nil firstLine) <br />    (progn <br />      (while (/= 0 (setq code (atoi (read-line f)))) <br />         (setq value (vl-string-trim " " (read-line f))) <br />         (if (or (= code 2) <br />                   (= code 3) <br />                   (= code 6) <br />             ) <br />            (setq ObjectList (append ObjectList <br />            (list (cons code value)))) <br />         ) <br />         (if (or (= code 70) <br />                   (= code 62) <br />                   (= code 71) <br />              ) <br />            (setq ObjectList (append ObjectList <br />            (list (cons code (atoi value))))) <br />         ) <br />         (if (or (= code 51) <br />                 (= code 52) <br />           ) <br />           ;; Code 51 and 52 must be converted into degrees. <br />           (setq ObjectList  <br />             (append ObjectList  <br />             (list (cons code  <br />             (angtof value 0))))) <br />           ) <br />           (if (= code 49) <br />            (setq ObjectList  <br />            (append ObjectList <br />            (list (cons code (atof value))))) <br />           ) <br />        ) <br />    ) <br />   ) <br />   ObjectList <br /> )

You can load a .MLN file from the AutoCAD command line by using the LOADMLSTYLES command. This command asks for the MLN file name. If you want to call this function from Lisp, you can use the (LOADMLN) function. There you can specify the MLN file name.

Once you've loaded a .MLN file, you can set the AutoCAD variable CMLSTYLE to one of the loaded styles, so the next created MLINE will use the style.

hubeihd

使用(vl-load-com)函数将(defun LoadMln ---和(defun ReadObject---置前

sicky111

*.MLN是什么文件？