vba奇怪的问题

gogogo168

问题1:


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


问题2:


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



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

雪山飞狐_lzh

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

gogogo168

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

雪山飞狐_lzh

getpoint怎么不行？

gogogo168

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

雪山飞狐_lzh

你的CAD和我的不一样么？


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

gogogo168

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

雪山飞狐_lzh

在【相关软件下载】找找