API应用 创建MlineStyle

st788796

Mline 故名思义就是 多个线，默认的 mlinestyle 为 1 个单位，两侧各偏移 0.5 的双线，自己可以通过修改来增加线 (Element) 增加的 线 有几个参数控制：
1 偏移距离
2 颜色
3 线型

API  中创建 Mlinestyle  函数是

功  能：	创建MLINE样式
调用格式：	(xdrx_mline_makestyle  <名字> [样本样式名])
返 回 值：	实体名
说    明：	样本样式名如果不给，取当前系统默认的作为样本。

仅仅是创建还不能满足我们的需求，接下来就要增加 Element 来满足使用要求，API 提供的是 xdrx_setpropertyvalue 函数，先看看 mlinestyle 提供了那几个设置方法
Class AcDbMlineStyle:
  ├─AddElement (index offset color linetypeid checkIfReferenced)
  ├─InitMlineStyle (None)
  ├─RemoveElementAt (Int)
  ├─Description (Str)
  ├─SetElement (index offset color linetypeid)
  ├─EndAngle (Int or Real)
  ├─EndInnerArcs (T or Nil)
  ├─EndRoundCap (T or Nil)
  ├─EndSquareCap (T or Nil)
  ├─FillColor (RGB List or Int)
  ├─Filled (T or Nil)
  ├─Name (Str)
  ├─ShowMiters (T or Nil)
  ├─StartAngle (Int or Real)
  ├─StartInnerArcs (T or Nil)
  ├─StartRoundCap (T or Nil)
  ├─StartSquareCap (T or Nil)

增加元素就是 AddElement

1. (xdrx_document_loadlinetype "center");_加载线型
   
2. (xdrx_document_loadlinetype "hidden");_加载线型
   
3. (setq ml     (xdrx_mline_makestyle "mytest");_创建一个 Mline 样式
   
4.       cen    (xdrx_object_get "ltype" "center");_线型 ID
   
5.       hidden (xdrx_object_get "ltype" "hidden");_线型 ID
   
6. )
   
7. (mapcar        '(lambda (x)
   
8.            (xdrx_setpropertyvalue ml "AddElement" x)
   
9.          )
   
10.         (list (list 0 0 3 cen t);_中心线
    
11.               (list 1 0.25 1 hidden t);_ 1/4 虚线线
    
12.               (list 2 -0.25 1 hidden t);_ 1/4 虚线线
    
13.         )
    
14. )
    

(xdrx_document_loadlinetype "center");_加载线型<br /> (xdrx_document_loadlinetype "hidden");_加载线型<br /> (setq ml     (xdrx_mline_makestyle "mytest");_创建一个 Mline 样式<br />       cen    (xdrx_object_get "ltype" "center");_线型 ID<br />       hidden (xdrx_object_get "ltype" "hidden");_线型 ID<br /> )<br /> (mapcar        '(lambda (x)<br />            (xdrx_setpropertyvalue ml "AddElement" x)<br />          )<br />         (list (list 0 0 3 cen t);_中心线<br />               (list 1 0.25 1 hidden t);_ 1/4 虚线线<br />               (list 2 -0.25 1 hidden t);_ 1/4 虚线线<br />         )<br /> )<br />

运行后效果

绘制