天气与日历 切换到窄版

 找回密码
 立即注册
中国膜结构网
十大进口膜材评选 十大国产膜材评选 十大膜结构设计评选 十大膜结构公司评选
查看: 163|回复: 1

ObjectArx acedCommand实现镜像功能

[复制链接]

该用户从未签到

主题

0

回帖

2912

积分

管理员

积分
2912
发表于 2024-2-27 15:41:53 | 显示全部楼层 |阅读模式
  1. // 对选中的实体逐个实现镜像功能
  2.                 ads采用name ents;
  3.         ads采用point pt1, pt2;
  4.         if (acedSSGet(NULL, NULL, NULL, NULL, ents) != RTNORM) {
  5.             return;
  6.         }
  7.         if (acedGetPoint(NULL, L"Pt:", pt1) != RTNORM) {
  8.             return;
  9.         }
  10.         if (acedGetPoint(pt1, L"Pt:", pt2) != RTNORM) {
  11.             return;
  12.         }
  13.         ads采用name singleEnt;
  14.         long len = 0;
  15.         acedSSLength(ents, &len);
  16.         for (int i = 0; i < len; i++)
  17.         {
  18.             ads采用name entname;
  19.             acedSSName(ents, i, entname);
  20.             acedSSAdd(entname, NULL, singleEnt);
  21. #if 采用MSC采用VER >= 1700
  22.             acedCommandS(RTSTR, 采用T("MIRROR"),
  23.                 RTPICKS, singleEnt,
  24.                 RTSTR, 采用T(""),
  25.                 RTPOINT, pt1,
  26.                 RTPOINT, pt2,
  27.                 RTSTR, 采用T("N"),  // 此代表是否保留镜像之前实体
  28.                 RTSTR, 采用T(""),
  29.                 RTNONE);
  30. #else               
  31.             acedCommand(RTSTR, 采用T("MIRROR"),
  32.                 RTPICKS, singleEnt,
  33.                 RTSTR, 采用T(""),
  34.                 RTPOINT, pt1,
  35.                 RTPOINT, pt2,
  36.                 RTSTR, 采用T("N"),  // 此代表是否保留镜像之前实体
  37.                 RTSTR, 采用T(""),
  38.                 RTNONE);
  39. #endif               
  40.             acedSSFree(singleEnt);
  41.         }
  42.         acedSSFree(ents);
复制代码

 

 

 

 

ObjectArx acedCommand实现镜像功能

该用户从未签到

主题

0

回帖

2912

积分

管理员

积分
2912
 楼主| 发表于 2024-2-27 15:42:42 | 显示全部楼层
  1. // 对选中的实体整体实现镜像功能
  2.                 ads采用name ents;
  3.         ads采用point pt1, pt2;
  4.         if (acedSSGet(NULL, NULL, NULL, NULL, ents) != RTNORM) {
  5.             return;
  6.         }
  7.         if (acedGetPoint(NULL, L"Pt:", pt1) != RTNORM) {
  8.             return;
  9.         }
  10.         if (acedGetPoint(pt1, L"Pt:", pt2) != RTNORM) {
  11.             return;
  12.         }
  13. #if 采用MSC采用VER >= 1700        
  14.         acedCommandS(RTSTR, 采用T("MIRROR"),
  15.                 RTPICKS, ents,
  16.                 RTSTR, 采用T(""),
  17.                 RTPOINT, pt1,
  18.                 RTPOINT, pt2,
  19.                 RTSTR, 采用T("N"),  // 此代表是否保留镜像之前实体
  20.                 RTSTR, 采用T(""),
  21.                 RTNONE);
  22. #else
  23.         acedCommand(RTSTR, 采用T("MIRROR"),
  24.                 RTPICKS, ents,
  25.                 RTSTR, 采用T(""),
  26.                 RTPOINT, pt1,
  27.                 RTPOINT, pt2,
  28.                 RTSTR, 采用T("N"),  // 此代表是否保留镜像之前实体
  29.                 RTSTR, 采用T(""),
  30.                 RTNONE);
  31. #endif                        
  32.         acedSSFree(ents);
复制代码

 

 

 

 

ObjectArx acedCommand实现镜像功能
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|中国膜结构网|中国膜结构协会|进口膜材|国产膜材|ETFE|PVDF|PTFE|设计|施工|安装|车棚|看台|污水池|中国膜结构网_中国空间膜结构协会

GMT+8, 2024-11-1 11:31 , Processed in 0.162844 second(s), 25 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表