2013-07-23 明经AutoCAD.VBA编程(45054712) 群聊记录：那是遮掩命令

明经快报

巴山夜雨 08:38:33

那是遮掩命令

明经快报

ppyyff 09:40:55

VBA好像不能实现裁剪功能吧

小学生 09:47:11

肯定能

sqbao 09:48:20

貌似很复杂

ppyyff 09:48:23

您提示下该咋样做

小学生 09:48:59

向命令行发命令

sqbao 09:49:19

sendcommand.

轻舞飞扬 09:49:26

原来一条线+两个点。变成两条线+4个点。自己看着办吧

ppyyff 09:49:33

晕，这样多复杂呀

这个算法很复杂

轻舞飞扬 09:50:01

圆变圆弧

ppyyff 09:50:15

块咋办

轻舞飞扬 09:51:12

块你想让它切就切，不想让它切就不切

ppyyff 09:51:19

填充咋办，

sqbao 09:51:19

vba貌似真没有太好的方法

ppyyff 09:51:27

是的

轻舞飞扬 09:51:51

说白了最好全给你做好了就是最好的方法了

小学生 09:52:26

不只VBA，哪个也没有

ppyyff 09:53:03

昨天我问的复制功能，如何实现将选择集内容复制到剪切板上，我还没弄明白

sqbao 09:53:12

lisp也得弄明亮

遍历

再一个个复制

ppyyff 09:53:39

[qqimg]201307/{ED45FDD9-279F-AD1A-EC58-F22FB69D0F1D}.jpg[/qqimg]

ppyyff 09:54:25

将选择集内容进行复制，但是只是CAD内部复制，可是如何实现将内容复制到一个新文件中去

轻舞飞扬 09:54:30

dim copys(sss1.count-1)

小学生 09:54:51

剪帖板，要用到API

ppyyff 09:54:56

好的，我修改下数据定义

明经快报

ppyyff 10:06:34

API如何调用，能发一个出来吗

小学生 10:07:10

百度

明经快报

ppyyff 10:17:31

百度里找不到，使用VBA复制一个选择集的内容到新文件中去的方法

小学生 10:20:11

我以为你要找API的使.

ppyyff 10:20:19

CopyObjects

小学生 10:20:46

对的

ppyyff 10:21:29

但是我不会用

小学生 10:22:37

有样例

明经快报

ppyyff 11:24:36

谢谢大家，我弄好了

ppyyff 11:25:06

[qqimg]201307/{1DB66566-A789-052B-C307-6ECBF96D93E6}.jpg[/qqimg]

下一步看看裁剪如何弄

ppyyff 11:33:41

以前买了本VBA开发精彩实例里面也没有裁剪的

ppyyff 11:34:48

才发现书面上写了“明经通道强力推荐”

[VBA/VB/C#]efan2000 11:41:27

裁剪的算法很复杂，涉及几十个不同对象之间的裁剪，不是一个实例能搞定的。

狐偃 11:42:01

谁能给开发一下就好了，自己剪太麻烦了

ppyyff 11:42:35

是的

ppyyff 11:43:20

我在网上查了，都查不到，也许是太复杂，所以没人愿意发到网上来

[VBA/VB/C#]efan2000 11:45:21

以前给测绘方面的做过，也只能解决常用的对象类型。

ppyyff 11:46:10

其实就常用的也行了

[VBA/VB/C#]efan2000 11:46:11

特别大数据量时，内、外裁的性能也不是很高。

ppyyff 11:46:42

现在计算都不是问题，大不了开着机子出去玩，

ppyyff 11:48:10

我看到南方那个测绘软件好像可以，这个估计就是您做的吧

[VBA/VB/C#]efan2000 11:48:13

其实主要就是判断点的位置

ppyyff 11:48:18

好像是lisp语言的

无痕/ws 11:48:28

用线绘个框作为裁剪边界，再发个trim命令，用F栏选的方式沿剪切边拦一圈。这样不行吗？

[VBA/VB/C#]efan2000 11:48:37

呵呵，我没做过南方。

[VBA/VB/C#]efan2000 11:49:19

不行，比如，填充的边界没有了，要先还原边界，再裁剪，再填充。

ppyyff 11:50:47

不想用sendcommand

无痕/ws 11:51:09

要做到切干净，是不好弄，好多图块都不好切开。

[VBA/VB/C#]efan2000 11:51:39

边界丢失，VB是解决不了的，需要Lisp或者.NET

ppyyff 11:52:04

用.NET做

有没有.net的比较好用书

我懒得去书店找，你们那个帮推荐一本，我买本学学

[VBA/VB/C#]efan2000 11:55:20

图块的裁剪，要通过坐标变换，判断需不需要重新生成块，新的块可以采用匿名块，比较好。

轻舞飞扬 11:57:37

http://bbs.mjtd.com/thread-75624-1-1.html

轻舞飞扬 12:00:58

自己用的，不支持块等觉得复杂的图元就行了。商用的另说

多一步炸开，又不麻烦

ppyyff 12:02:22

块炸开就是了

有些测量图弄了些组合体炸不开，郁闷

ppyyff 12:06:31

吃饭去了

[zhoumh989][x星空]魂 12:15:04

谁知道图层顺序怎么调整
object.MoveToBottom (Objects) 

这俩objsect怎么区别

明经快报

[zhoumh989][x星空]魂 12:55:23

难道cad2004不能用图层后置的函数

[VBA/VB/C#]efan2000 12:56:26

图层没有前后置，只有对象。

[VBA/VB/C#]efan2000 12:56:59

CAD里的图层仅仅是对象的一个属性，其归类作用。

[zhoumh989][x星空]魂 12:57:39

在cad2004里执行对象后置命令，失效sentityObj.MoveToBottom arr

SortentsTable 对象

[zhoumh989][x星空]魂 13:02:04

在cad2004里执行到最后移动的时候失效了

明经快报

ppyyff 15:28:50

cad2007以后的版本那个好用点？

小学生 15:32:25

都挺好

小学生 15:35:06

你们现在什么版本的？

ppyyff 15:35:19

2007

小学生 15:36:02

哦

我一直用的08的

09、10、13都偶尔用一下

ppyyff 15:36:58

我们只有04 07 10 11 12 13

小学生 15:37:58

还真不少，只有07是正版吧

ppyyff 15:38:09

全是正版的

不用盗版

小学生 15:38:38

我们全是盗版

ppyyff 15:38:53

还是civil 3D版

小学生 15:40:57

多少钱一套啊？

ppyyff 15:41:35

1万多团购价，今年涨了，好像到1.7万

太黑了

小学生 15:42:33

嘿嘿，好

ppyyff 15:42:38

[qqimg]201307/{B2D7A766-FC01-96E2-DB17-808682D5CC24}.jpg[/qqimg]

小学生 15:42:43

说明程序有价值啊

ppyyff 15:42:44

这多版本

小学生 15:42:56

说明程序员有价值啊

ppyyff 15:43:04

是的

就没国产的做一个

小学生 15:43:42

你们买那多版本干吗用啊

看你们不象是软件公司啊

ppyyff 15:44:03

每年都要买点

我们是设计院

小学生 15:44:56

看样子是钱多，烧的

Jing 15:45:02

上 BIM 的项目多吗？

轻舞飞扬 15:45:47

BIM特指土建

ppyyff 15:46:07

多呀

Jing 15:46:24

大概占总项目的多少？

ppyyff 15:46:36

不买他们产品，他们就发律师函

Jing 15:47:21

你不出BIM设计就没事

Jing 15:48:36

加 BIM 设计费提高 30% ？

ppyyff 15:49:49

主要是单位要弄三维设计，才买了3D版

Jing 15:50:05

你不是设计院？

ppyyff 15:50:15

但是一直没做起来

Jing 15:50:24

[qqimg]201307/{F3710241-B851-5EA6-79E8-AAB91970A634}.gif[/qqimg]

ppyyff 15:52:01

做的也是给领导汇报用的，没有提高生产效益

明经快报

[liuweiisme]WLIU 16:05:36

批量修改图纸如何做 我单个的已经完成了

明经快报

?欢乐 16:16:33

做个循环打开各个图纸不就得了……