CAD执行一个带参数的命令（com接口VB语言）

主要用到函数说明：

MxDrawXCustomFunction::Mx_SendStringToExecute

执行一个带参数的命令。详细说明如下：

参数 说明

CString sCmaName
命令名

Param
命令参数

VB中实现代码说明：


1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Dim param As MxDrawResbuf

Set param = New MxDrawResbuf

param.AddString "CECOLOR"

‘5是autocad颜色索引，5003是dxf组码，这里约定传5003才有效。

param.AddLong 5, 5003

‘设置颜色系统变量

MxDrawX1.CallEx "Mx_SetSysVar", param

‘设置线型。

MxDrawX1.AddLinetype "MyLineType3", "30,-10"

param.RemoveAll

‘CELTYPE当前线型的系统变量名

param.AddString "CELTYPE"

‘是设置的值，线型取MyLineType3,5005是dxf组码，这里约定传5005才有效。

param.AddString "MyLineType3", 5005

MxDrawX1.CallEx "Mx_SetSysVar", param

‘调用绘制矩形命令

param.RemoveAll

param.AddString "Mx_Rectang"

‘是绘制矩形的线宽.这是命令参数。

param.AddDouble 10

MxDrawX1.CallEx "Mx_SendStringToExecute", param

原文地址：https://www.cnblogs.com/yzy0224/p/11007944.html

时间： 2024-10-02 02:04:00

CAD执行一个带参数的命令（com接口VB语言）的相关文章

一个带参数的Shell的例子

#!/bin/bash # Program: # LZSH server log filter # History: # 2014/07/01 Kom First release # 2014/07/03 Kom Remote and multi-param support # Set PATH PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:~/bin export PATH # Set script name

[服务器]脚本：批处理带参数ping命令 发送邮件脚本

1.批处理带参数ping命令 @echo offecho Input you IP address ......set /p IP=echo Your IP number is %IP%.ping %IP%set IP=pause 2.发送告警脚本 For counter = 1 To 3 Step 1SendMailNext Public Sub SendMailNameSpace = "http://schemas.microsoft.com/cdo/configuration/"

CAD向控件注册一个命令（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_RegistUserCustomCommand 向控件注册一个命令,用户在命令行输入命令名这个字符串,就会触发执行命令事件 命令事件的id就是该注册时的id值,详细说明如下: 参数 说明 CString sCommandName 命令名称 LONG lId 命令id VB代码实现如下: 1 2 3 4 5 6 Set param2 = New MxDrawXLib.MxDrawResbuf param2.AddString

shell 创建带参数的命令方法

主要用到case in,和shift命令. shift 命令是从参数数组中,删除当前第一个参数. while [ "$1" != "" ] do case $1 in -pn | --prjname ) shift prj_name=$1 ;; -ge | --gitemail ) shift git_email=$1 ;; -gn | --gitname ) shift git_name=$1 ;; -h | --help ) usage exit 1 ;; *

关于datagrid查询时，封装了pojo对象，该对象必须要有一个带参数的构造器，否则会报错Unable to locate appropriate constructor on class

---------------------------------------------------------- 实体类中 public CategoryBeanPojo(Integer id, String type, Boolean hot, String login,            String name, String pass, Integer aid) {        super();        this.id = id;        this.type = ty

CAD与用户互在图面上得到一个矩形框（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::ExApp_CutDwg 与用户互在图面上得到一个矩形框,详细说明如下: 参数 说明 IN DOUBLE dX1 保存范围的左下角位置X值 IN DOUBLE IN dY1 保存范围的左下角位置Y值 IN DOUBLE dX2 保存范围的右上角位置X值 IN DOUBLE IN dY2 保存范围的右上角位置Y值 sFile 保存的文件名 主要用到函数说明: MxDrawXCustomFunction::Mx_GetCorner 与

CAD把一个dwg文件，或者图像文件当着一个背景导入（com接口VB语言）

主要用到函数说明: MxDrawXCustomFunction::Mx_OpenBackgroundFile 把一个dwg文件,或者图像文件当着一个背景导入.详细说明如下: 参数 说明 CString sFileName DWGBMPJPG文件路径,,文件件名为空时,清空背景文件 LONG lightColor = 0x505050 背景灰度显示颜色,灰度显示的颜色,默认值为0x505050 BOOL isZoomE = TRUE 是否自动把调用ZoomE操作,默认值为1 BOOL isUpDi

CAD绘制一个图象标记对象（com接口VB语言）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 Private Sub DrawImageMarkImp()     'Dim

CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)

由一个自定义实体事件中的id得到自定义实体对象.该函数只能在自定义实体事件中调用. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 If sEventName = "MxDrawXCustomEntity::explode" Then             Dim param66 As M