<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
<title>Zwcad+ VBA drawing line problem</title>
<link>http://www.zwsoft.com/forum/viewthread.php?tid=2418</link>
<description>I am trying to draw a simple line with VBA code. 
Code is very simple and it works under Zwcad2011.
But it dosn't work uder Zwcad+2012. 
I try this Zwcad+ ver.num=2012.08.30(5622) and Windows7-64bit.
Zwcad+ doesn't recognize &quot;ZwcadLine&quot;. What should I write for that. 

Sub drawline()
 Dim lineObj As ZwcadLine
 Dim startpoint(0 To 2) As Double
 Dim endpoint(0 To 2) As Double
 startpoint(0) = 0
 startpoint(1) = 0
 startpoint(2) = 0
 endpoint(0) = 10
 endpoint(1) = 5
 endpoint(2) = 0
 Set lineObj = ThisDocument.ModelSpace.AddLine(startpoint, endpoint)
End Sub

Thanks,</description>
<author>akaptan1932</author>
<pubDate>2012-09-07 14:19:06</pubDate>
<item><link>http://www.zwsoft.com/forum/viewthread.php?tid=2418&amp;pid=15941</link>
<description>Yes, code is working now.
Thanks.</description>
<author>akaptan1932</author>
<pubDate>2012-09-09 22:23:40</pubDate>
</item><item><link>http://www.zwsoft.com/forum/viewthread.php?tid=2418&amp;pid=15932</link>
<description>Good to hear that, and you're welcome :)</description>
<author>huangy8949</author>
<pubDate>2012-09-08 08:45:46</pubDate>
</item><item><link>http://www.zwsoft.com/forum/viewthread.php?tid=2418&amp;pid=15930</link>
<description>Yes.
I successfully ported my VBA code from AutoCAD to ZWCAD+ simply by changing &quot;Acad&quot; substrings to &quot;Zcad&quot; and several &quot;ac&quot; entries to &quot;zc&quot; (for example, zcActiveViewport, zcWorld, zcDisplayDCS, etc.)
Thanks,</description>
<author>seav735587</author>
<pubDate>2012-09-07 20:30:04</pubDate>
</item><item><link>http://www.zwsoft.com/forum/viewthread.php?tid=2418&amp;pid=15926</link>
<description>Yes, you are right. 

Is your code works now?</description>
<author>huangy8949</author>
<pubDate>2012-09-07 18:01:48</pubDate>
</item><item><link>http://www.zwsoft.com/forum/viewthread.php?tid=2418&amp;pid=15920</link>
<description>Change code a little.
....
Dim lineObj As ZcadLine
....
Set lineObj = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint)
....</description>
<author>seav735587</author>
<pubDate>2012-09-07 16:36:48</pubDate>
</item>  </channel>
</rss>