编程加载.MLN（多线样式定义文件）的代码

newer

How to load a .MLN file (multiline style definition file) programmatically  

Question:

How do I load a .MLN file (multiline style definition file) programmatically?
Answer
Answer:

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.

游客，如果您要查看本帖隐藏内容请回复

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.

/db_自贡黄明儒_

学习学习，搞定这个文件，就可同时时画几根线了。以两都是画好一根再来偏移

/db_自贡黄明儒_

是论坛改进了，还是我升级了，回帖不需要验证码了

q3_2006

这个我前几天还研究来着...{:soso_e120:}

st788796

API 的创建 MLineStyle 还有些问题，有些函数设置无效

XDSoft

st788796 发表于 2014-12-14 16:38
API 的创建 MLineStyle 还有些问题，有些函数设置无效

具体是什么，请贴下完善。

st788796

XDSoft 发表于 2014-12-14 16:40
具体是什么，请贴下完善。

增加线没有试出来
_$ (setq ml (xdrx_mline_makestyle "mytest"))
<图元名: 7ef99438>
_$ (xdrx_setpropertyvalue ml "AddElement" 0 0.25 1 (xdrx_object_get "ltype" "continuous") t)
nil
_$ (xdrx_setpropertyvalue ml "AddElement" 1 0.25 1 (xdrx_object_get "ltype" "continuous") t)
nil
_$ (xdrx_setpropertyvalue ml "AddElement" 2 0.25 1 (xdrx_object_get "ltype" "continuous") t)
nil
_$

Acad::ErrorStatus addElement(
    int& index,
    double offset,
    const AcCmColor & color,
    AcDbObjectId linetypeId,
    bool checkIfReferenced = true
);

XDSoft

st788796 发表于 2014-12-14 16:51
增加线没有试出来
_$ (setq ml (xdrx_mline_makestyle "mytest"))

由于SETPROPERTYVALUE函数支持多个属性的修改，如：

(xdrx_setpropertyvalue ent "color" 参数1 "layer" 参数2 .....)

所以要求参数长度是1，否则后边不好继续判断是否是 属性继续操作，所以：

除非是1个参数的，多个参数值要用表形式传递

所以你修改下：


(xdrx_setpropertyvalue ml "AddElement" (list 0 0.25 1 a t)) 看看如何?

其他所有多参数值的都这样，用表传递参数。

wzg356

坐下了慢慢看

st788796

XDSoft 发表于 2014-12-14 17:13
由于SETPROPERTYVALUE函数支持多个属性的修改，如：

(xdrx_setpropertyvalue ent "color" 参数1 "laye ...

ok了, 抽空写个用 API 创建 MLStyle 的介绍
_$ (xdrx_setpropertyvalue ml "AddElement" (list 0 0.25 1 (xdrx_object_get "ltype" "continuous") t))
T

Lispboy

看看代码，学习学习。

434939575

必须看看！先谢谢了@

qyming1996

{:soso_e100:}回复看看

grs432

呵呵！！了解一下！！！

lucas3

/db_自贡黄明儒_ 发表于 2014-12-14 16:03
是论坛改进了，还是我升级了，回帖不需要验证码了

不会吧，长老，我回贴一直都不用验证码呀