gogogo168 发表于 2004-9-16 21:49:00

vba奇怪的问题

问题1:


我想改变acadlwpolyline的顶点位置,因此,我改变它的coordinates(0)和coordinates(1)的值,结果,点并没有移动,,,,请问是什么原因????????如何移动其中的一个点????


问题2:


我用thisdrawing.utility.getinteger(,"请输入整数")的时候,提示语句"请输入整数"是乱码,只有回车后才变正确,,,,请问是什么原因????如何解决????



有哪个大侠知道??????多谢了

雪山飞狐_lzh 发表于 2004-9-16 22:06:00

Public Sub tttt()<BR>Dim a As AcadLWPolyline<BR>Set a = ThisDrawing.ModelSpace(0)<BR>b = a.Coordinate(0)<BR>b(0) = 0<BR>a.Coordinate(0) = b<BR>a.Update<BR>End Sub<BR>

gogogo168 发表于 2004-9-16 22:07:00

还有一个问题:我想编一个根据点\弧度\距离画线的程序,,我想做成在画第一个点的时候能像autocad那样能用鼠标点选也能用坐标输入,但getpoint和getstring好像实现不了这样的功能哦?????哪个大侠能告知一二!!!!不胜感激

雪山飞狐_lzh 发表于 2004-9-16 22:12:00

getpoint怎么不行？

gogogo168 发表于 2004-9-16 23:13:00

因为必须先选点啊!!!!我想像autocad那样,可以选点,也可以输坐标,,就比如像pl命令,可以用鼠标选点,也可以直接输坐标,,,而getpoint用户必须先选点

雪山飞狐_lzh 发表于 2004-9-17 00:01:00

你的CAD和我的不一样么？


我的可以用鼠标选点,也可以直接输坐标

gogogo168 发表于 2004-9-17 20:21:00

请问斑竹大人在哪里可以下载autocad2005带解密的啊????

雪山飞狐_lzh 发表于 2004-9-17 20:54:00

在【相关软件下载】找找
页: [1]
查看完整版本: vba奇怪的问题