2013-08-08 明经AutoCAD.VBA编程(45054712) 群聊记录：群里面能不能每天搞个课题来做一做

明经快报

泽均 09:01:19

群里面能不能每天搞个课题来做一做

小学生 09:07:07

在模型空间画一条线

泽均 09:07:27

太简单了点

泽均 09:08:46

有没有谁有需求的,说出来大家一起做

[dxb365]携雨戏风 09:09:28

后绑定都有几种方法实现啊，

轻舞飞扬 09:10:36

过滤圆直径3

明经快报

小学生 09:21:26

有需求，怕你做不来

小学生 09:25:30

发个帮别人免费写程序的广告

明经快报

[VB&.NET]ppyyff 15:03:03

cad中有一个wipeout的功能，VBA如何实现？

要和Wipeout完全一样的样式

[dxb365]携雨戏风 15:04:09

直接调用cad中的命令不行吗

[VB&.NET]ppyyff 15:04:31

我要批量遮盖 一些区域

不想手动一个一个的去做

[dxb365]携雨戏风 15:07:06

区域有规律吗？把要遮盖的区域带到cad的遮盖命令的参数里贝

[VB&.NET]ppyyff 15:08:14

我只想通过代码来实现而已

[dxb365]携雨戏风 15:08:44

对啊

我说的就是代码啊

没让你在cad里输入啊

就是让程序在cad里输入啊

[VB&.NET]ppyyff 15:13:30

[qqimg]201308/{76C678B1-E612-EB17-AEE4-8A03F9D50815}.jpg[/qqimg]比如这样一张图，我只选择小正方形的两个左下和右上角点，然后就自动把大正方形和小正方形的区域覆盖掉，其中大正方形和小正方形之间距离是固定的

[VB&.NET]ppyyff 15:15:14

[qqimg]201308/{F4C0D7A7-F8E8-E96C-FA5F-508E5F3C2B5A}.jpg[/qqimg]

[dxb365]携雨戏风 15:19:09

你怎么批量啊，再批量不还得手工选择范围啊

还是得人工干预

[VB&.NET]ppyyff 15:21:10

这个只是例子，我只是想问问VBA如何实现的代码，

[VB&.NET]ppyyff 15:22:05

CAD中做一个wipeout，还要点8个角点后才有效果

[dxb365]携雨戏风 15:22:50

对啊，你可以只选两个啊，剩下的让程序自己计算出来传给wipeout做参数不就结了

轻舞飞扬 15:23:06

((-1 . ) (0 . WIPEOUT) (330 . ) (5 . 4C95B) 
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 主物瞎艿? (100 . AcDbWipeout) (90 . 
0) (10 358373.0 -71732.6 0.0) (11 71732.6 0.0 0.0) (12 0.0 71732.6 0.0) (13 1.0 
1.0 0.0) (340 . ) (70 . 7) (280 . 1) (281 . 50) (282 . 50) (283 . 0) 
(360 . ) (71 . 2) (91 . 4) (14 -0.47118 0.468653 0.0) (14 -0.47118 0.5 
0.0) (14 -0.5 0.493803 0.0) (14 -0.47118 0.468653 0.0))

[VB&.NET]ppyyff 15:23:19

关键是VBA没有wipeout函数

轻舞飞扬 15:23:33

能找到对象就做，找不到就不要做，或者不用VBA做！纠结个毛线

[VB&.NET]ppyyff 15:23:47

你这是lisp好不好

[dxb365]携雨戏风 15:23:48

vba中有个调用cad命令的命令来着

好久没做不知道是哪个了

[VB&.NET]ppyyff 15:24:03

sendcommand

[dxb365]携雨戏风 15:24:15

对

[VB&.NET]ppyyff 15:25:00

看来只有用这个方法了

[dxb365]携雨戏风 15:26:28

vba中有好多没法解决的啊，我都是直接sendcommand

[VB&.NET]ppyyff 15:27:26

看来要淘汰这玩意了

[dxb365]携雨戏风 15:27:54

那你用什么啊？

。net？

[VB&.NET]ppyyff 15:28:11

学.net吧

一缕阳光 15:30:07

你连vba都学得磕磕巴巴的

嘿嘿 学.net不更费事

?欢乐 15:31:39

vba 里能通过sendcommand里解决的了那也很了不起了

子易Excel培训 15:32:06

什么问题一定要sendcommand?

[VB&.NET]ppyyff 15:33:18

VBA我自己感觉还好吧，基本大部分问题都能解决

明经快报

[VB&.NET]ppyyff 15:43:35

AutoCAD VBA & VB.NET开发基础与实例教程 第一版当当网上有，呵呵，赶快下单买一本学学.net的

子易Excel培训 15:44:52

.net还是用C#吧.

[VB&.NET]ppyyff 15:45:21

C#学起来累一点，

买本书看看

[VB&.NET]ppyyff 15:46:20

苹果终于在中国做砸了

子易Excel培训 15:46:29

怎么砸的

[dxb365]携雨戏风 15:46:58

不卖的挺好的啊

赚钱就好管你用的人是干吗的

[VB&.NET]ppyyff 15:47:31

我是不用的，看到娱乐城小妹们都是人手一部

小米就会做，先培育大学生用

[qqimg]201308/{B4C8561B-0A7E-2B94-31FB-8DE8734C5344}.jpg[/qqimg]

子易Excel培训 15:49:37

小妹都在用,是不是说明苹果做的比较傻瓜

[VB&.NET]ppyyff 15:52:26

用户群很重要，比如：大众甲壳虫=二奶车，宝马=*二代（老闯祸），口碑做不好后，慢慢大家都不去买了，

一缕阳光 15:53:57

不是不买 是买不起

[dxb365]携雨戏风 15:55:47

哎，做设计的混的连小妹都不如了

[VB&.NET]ppyyff 15:56:00

是的

[dxb365]携雨戏风 15:56:04

你们都是专门编程吗？

还是搞设计

[VB&.NET]ppyyff 15:56:28

搞设计的，只是减少工作强度，

[dxb365]携雨戏风 15:57:00

哪方面设计？

机械还是建筑

[VB&.NET]ppyyff 15:57:26

水利

[dxb365]携雨戏风 15:57:39

水坝设计？

河道？

水电？

[VB&.NET]ppyyff 15:57:54

都设计

[dxb365]携雨戏风 15:58:11

哦，不懂，隔行如隔山啊

[dxb365]携雨戏风 15:59:47

哪个地的啊

你都看什么书学习啊？

明经快报

23:17:46

主要是资料少.没有excel VBA那么一呼百应

23:17:46

苹果的用户群没培育好，都是小姐们在用了！！！！