CASS宗地标注文字简单的单个排版插件

1、打开cass软件，在“地籍”中”绘制权属线“命令，绘制一个宗地，并标注文字。提前设好参数，可以和我的图一样。

3、双击AutoCAD对象中的ThisDrawing,在其右侧代码窗口输入以下代码。Publi罕铞泱殳c TestLoad As BooleanPrivate Sub AcadDocument_EndCommand(ByVal CommandName As String) If Not TestLoad Then ThisDrawing.SendCommand "(defun c:as()(vl-vbarun ""az1"")(princ))(princ)" & vbCr TestLoad = True End IfEnd Sub

6、选择文字，可以从右下囿鹣分胰向左上框选，最终文字前后顺序为文字原来生成时的顺序。如果文字时一个一个点选的，最终排序会是点击选择的前后顺序。选择第一点第二点，第三点如图。第一点与第二点，确定的直线方向为文字排齐侯的底边方向。第三点如图所示可以选上边线段的任意点，第三点目的时确定，宗地两边距离，进一步确定文字便宜距离。