明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1789|回复: 4

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

 关闭 [复制链接]
发表于 2013-5-6 16:24:04 | 显示全部楼层 |阅读模式
周~~ 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
根据距离和角度取点
但是肯定要算了
 楼主| 发表于 2013-5-6 18:56:49 | 显示全部楼层
清风明月名字897 18:56:49
请问,将图元的Z坐标归零的VBA代码怎么写?
object.Move oint1, oint2 

坐标不知道怎么填
 楼主| 发表于 2013-5-6 20:43:21 | 显示全部楼层
狐偃 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
挺好的学习网站
狐偃 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
这个挺好的
谢谢了
 楼主| 发表于 2013-5-6 21:34:42 | 显示全部楼层
CADExcelVBLisp 21:34:42
List属性添加,这是一个数组直接添加效率更高
CADExcelVBLisp 21:35:24
这是个示例
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 11:27 , Processed in 0.320943 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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