API应用创建MlineStyle

st788796 · 发表于 2014-12-14 19:13:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

运行后效果

绘制

账号		自动登录	找回密码
密码			立即注册

[教学] API应用 创建MlineStyle

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

[教学] API应用创建MlineStyle