2013-05-06 明经AutoCAD.VBA编程(45054712) 群聊记录：谁有将块沿多义线路径按一定间距插入的代码

明经快报

周~~ 16:24:04

谁有将块沿多义线路径按一定间距插入的代码

一缕阳光 16:26:03

啥叫多义线?

多段线吗?

sqbao 16:26:16

pline?

周~~ 16:26:27

对多段线polyline

二维多段线

一缕阳光 16:27:26

这个主要多段线上面取点问题

获取点坐标 不就可以插入块了

周~~ 16:28:17

有相关的代码吗，望指教

小学生 16:28:52

网上好象有LISP的

周~~ 16:29:12

我想要VBA的

sqbao 16:29:18

lisp明经上好像有

一缕阳光 16:29:19

没有

sqbao 16:29:19

。

lisp一样用吧。

一缕阳光 16:29:36

几何好的 可以自己都能算出来

[qqimg]oldimg/{BB5F35CD-4E0F-FDC7-29E4-1C51EC2B5C58}.jpg[/qqimg]

周~~ 16:29:48

那你能否发个代码过来

一缕阳光 16:29:53

就是这样 按一定距离 获取点坐标

一缕阳光 16:30:32

看看明经论坛上面有没有

CADExcelVBLisp 16:36:34

VBA极难做出来,Lisp可以。实际是定距等分。

实际你要的是整数桩号的坐标。

sqbao 16:37:01

divide

一缕阳光 16:38:13

没有凸度的多段线 很好算的

周~~ 16:43:58

[qqimg]oldimg/{8EFB1F0D-4E8C-A282-CF16-01D0FC07A412}.jpg[/qqimg]高手可以给段代码吗

sqbao 16:44:22

找lisp吧

vb真够呛

小学生 16:45:33

是说VB.NET吗？VB不会用，VB.NET很容易做出来

sqbao 16:46:13

.net就是objectarx了

一缕阳光 16:46:14

vb.net

呵呵 说说思路

带凸度的多段线

sqbao 16:46:51

divide的以后提取点？

小学生 16:47:18

跟凸度无关

一缕阳光 16:47:26

定长度取点 和等分还是有区别的吧

小学生 16:47:51

有函数，直接在曲线上取一定距离的点

sqbao 16:48:11

好强大。

一缕阳光 16:48:34

多段线也可以?

sqbao 16:48:42

然后循环语句？

一缕阳光 16:49:08

恩 那就很简单了

一缕阳光 16:50:24

没凸度的 vba也很简单

sqbao 16:50:44

vba怎么做？

一缕阳光 16:50:57

根据距离和角度取点

但是肯定要算了

明经快报

清风明月名字897 18:56:49

请问，将图元的Z坐标归零的VBA代码怎么写？
object.Move oint1, oint2 

坐标不知道怎么填

明经快报

狐偃 20:43:21

[qqimg]oldimg/{8AEF9C2F-98B8-687B-6114-361E40A7AE6D}.jpg[/qqimg]我要编一个这样的下拉列表，程序怎么写啊，列表内容有q235-A,45钢，40Cr，40CrNi，20CiNi
求大神给编一下 啊

sqbao 20:47:46

Private Sub Form_Load()
With Form1.Combo1
     .AddItem "q235-A"   
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With
End sub

这是vb的代码 不是vba的

前提 你窗体名称Form1

组合框名称combo1

有声 20:48:43

看得出有硕士水准

狐偃 20:49:01

我要VBA的

sqbao 20:51:09

vba不是和vb 6.0一会事么

狐偃 20:51:20

这个房里面还是不出现下拉列表啊，大神求解决啊

sqbao 20:51:48

。。

这必然的

vba代码需要改动一点

狐偃 20:52:21

请指导啊

sqbao 20:54:12

习惯用vb了 忘了vba怎么初始加载放在那儿。

With Form1.Combo1
     .AddItem "q235-A"   
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With

[luozh7682]筑路人 20:54:27

VBA跟具体的宿主应用程序相关，不能编译成.EXE或.DLL文件，只有有密码加密保护。

sqbao 20:54:32

你把这个放在程序的第一行试试

飞马 20:54:47

http://www.civilcn.com/?uid=4123216

挺好的学习网站

狐偃 20:56:08

结果我运行后，在下拉列表里还是什么都没有

sqbao 20:56:43

你组合框叫什么名字

狐偃 20:57:23

combox1

亦凡天空 20:57:24

百度下组合框的使用

加入就行了

狐偃 20:58:26

Private Sub ComboBox1_Change()
   With Form1.Combo1
     .AddItem "q235-A"
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With


End Sub

亦凡天空 20:58:47

。。。函数放错了

sqbao 20:58:55

函数不对吧

亦凡天空 20:59:01

放在启动加载函数里

sqbao 20:59:13

放在启动项

With Combobox1
     .AddItem "q235-A"
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With

我不知道vba启动项在哪

用vb习惯了

狐偃 20:59:57

Private Sub UserForm_Initialize()

亦凡天空 20:59:58

。。。。

sqbao 21:00:10

嗯 就放着

With Combobox1
     .AddItem "q235-A"
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With

把这个粘贴上

再看看

第一行可以加一个combobox1.clear以防万一

sqbao 21:01:56

我这弄得匆忙 你注意把"40Cr "里面的空格去掉

狐偃 21:02:44

搞定了

谢谢各位大神

sqbao 21:03:40

你是做化工机械的？

这有点像轴的材料

狐偃 21:04:03

不是

sqbao 21:04:16

哦 这样

狐偃 21:04:24

就是做一个减速器的设计

sqbao 21:04:45

减速器？
课程设计？

狐偃 21:06:21

毕业设计

sqbao 21:06:31

我说呢

你这还不错

我带的本科生屁事都干不了

也不学

清风明月名字897 21:07:16

请问，在LPS中，单行文本类型为“TEXT”, 在VBA中如何取得这个属性呢？

狐偃 21:07:19

对了，虽然这些下拉列表出现了，但是确不能选择

你是大学老师

sqbao 21:07:40

研究生。

清风明月名字897 21:07:41

请问，在LPS中，单行文本类型为“TEXT”, 在VBA中如何取得这个属性呢？

轻舞飞扬 21:08:41

LPS是什么东西

狐偃 21:10:22

Private Sub ComboBox1_Change()
   With ComBox1
     .AddItem "q235-A"
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With


End Sub

我这个程序应该怎么改啊

不然我不能选择

sqbao 21:10:47

。。

说了放在Private Sub UserForm_Initialize()里

狐偃 21:11:09

下拉列表出现了，但不能选择

我放了

Private Sub UserForm_Initialize()
With ComboBox1
     .AddItem "q235-A"
     .AddItem "45钢"
     .AddItem "40Cr "
     .AddItem "40CrNi "
     .AddItem "20CiNi "
  End With

sqbao 21:14:06

With UserForm1.ComboBox1改成这个看看

狐偃 21:17:15

现在是连下拉列表都没了

sqbao 21:17:47

ComboBox1.AddItem "q235-A"

sqbao 21:19:59

Private Sub UserForm_Initialize() 
    ComboBox1.AddItem "q235-A"
    ComboBox1.AddItem "45钢"
    ComboBox1.AddItem "40Cr "
    ComboBox1.AddItem "40CrNi "
    ComboBox1.AddItem "20CiNi "
    ComboBox1.Text="q235-A"
End sub

那就来笨的  看看这个行不行

狐偃 21:21:18

这个终于可以了

太谢谢了

sqbao 21:22:04

你试试好不好用

狐偃 21:22:19

这个挺好的

谢谢了

明经快报

CADExcelVBLisp 21:34:42

List属性添加，这是一个数组直接添加效率更高

CADExcelVBLisp 21:35:24

这是个示例