乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 90|回复: 4

用thisdrawing.sendcommand画的CAD图元能返回给一个变量吗?

[复制链接]

46

主题

261

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
445
发表于 2004-1-3 21:21:00 | 显示全部楼层 |阅读模式
如题.用thisdrawing.sendcommand(_circle 2,2,0 4 )画的圆能返回给一个变量吗?
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-1-3 21:33:00 | 显示全部楼层
用SelSet.Select acSelectionSetLast,构造新选择集SelSet,然后将选择集的第一个实体赋给实体变量即可。
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-1-3 21:34:00 | 显示全部楼层
通过比较模型空间的实体的数目差异来判断。
  1. Sub test()
  2.    
  3.     ' 返回当前模型空间的实体数目
  4.     Dim n As Long
  5.     n = ThisDrawing.ModelSpace.Count
  6.    
  7.     ' 调用Circle命令绘制圆
  8.     ThisDrawing.SendCommand "circle 2,2,0 4 "
  9.    
  10.     ' 如果执行成功,则会生成新的实体
  11.     Dim circleObj As AcadCircle
  12.     If ThisDrawing.ModelSpace.Count > n Then
  13.         Set circleObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
  14.         circleObj.Color = acRed
  15.     End If
  16. End Sub
回复

使用道具 举报

11

主题

37

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
81
发表于 2004-1-4 11:09:00 | 显示全部楼层
个人看法,efan2000兄的方法更好。
回复

使用道具 举报

12

主题

135

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
183
发表于 2004-1-6 08:50:00 | 显示全部楼层
我个人认为直接使用vba的画线功能更好。不会在命令行留下痕迹。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:43 , Processed in 2.628704 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表