CorelDraw VBA 线条上的位置坐标求助【续】

[wmkandyk12374]

请问一下！已经线段长度，如果要求线上的点（非节点，而是线段长度的10%位置）的坐标，请问有可能吗！如果可以的话应该如何写，谢谢
假设这个点是线段长度的10%的位置

    Dim s As Shape
    Set s = ActiveSelection.Shapes(1)
    MsgBox "线段长度为： " &  (s.Curve.Length * 25.4) 

[Tiger_Zhao]

这是机器人的提问？
相似的问题，连号的用户id。

[赵4老师]

借助API LineDDA ？ LineDDA The LineDDA function determines which pixels should be highlighted for a line defined by the specified starting and ending points. BOOL LineDDA( int nXStart, // x-coordinate of line's starting point int nYStart, // y-coordinate of line's starting point int nXEnd, // x-coordinate of line's ending point int nYEnd, // y-coordinate of line's ending point LINEDDAPROC lpLineFunc, // pointer to callback function LPARAM lpData // pointer to application-defined data ); Parameters nXStart Specifies the x-coordinate of the line's starting point. nYStart Specifies the y-coordinate of the line's starting point. nXEnd Specifies the x-coordinate of the line's ending point. nYEnd Specifies the y-coordinate of the line's ending point. lpLineFunc Pointer to an application-defined callback function. For more information, see the LineDDAProc callback function. lpData Pointer to the application-defined data. Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. Windows NT: To get extended error information, callGetLastError. Remarks The LineDDA function passes the coordinates for each point along the line, except for the line's ending point, to the application-defined callback function. In addition to passing the coordinates of a point, this function passes any existing application-defined data. The coordinates passed to the callback function match pixels on a video display only if the default transformations and mapping modes are used. QuickInfo Windows NT: Requires version 3.1 or later. Windows: Requires Windows 95 or later. Windows CE: Unsupported. Header: Declared in wingdi.h. Import Library: Use gdi32.lib. See Also Lines and Curves Overview, Line and Curve Functions, LineDDAProc

[wmkandyk12374]

机器人问题？机器人问得出这样的问题的话，那你弄个机器人来表演一下！哈哈！ 其实程序我以前学过pascal两年，后来觉得有用的资料太过少，往往一个问题就要自己就要自己琢磨好多时间，很难搜索到有用资料，并且此语言也不太流行，学好了也没什么前途，就放弃了，现在只做一些网站（PHP）设计和广告设计。 这问题也只是我在使用CorelDraw设计广告的时候遇到的一问题，看一下有没办法使用按钮来得到这个值,并非开发什么插件，因为我对CorelDraw VBA完全不懂,所以更谈不上开发啦！

[Tiger_Zhao]

我的意思是用自动程序将其他论坛的问题贴到这里来了。
wmkandyk12373
wmkandyk12374
你提个问题就换个用户？

[无·法]

楼主开发的这个插件功能是什么啊。想熟练做cdr插件开发必须很熟悉它的api文档。另外可以读一读下人家插件的代码。

[tj210]

coreldraw vba,里有现在的函数就可以实现