|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.04.2014, 12:10 | #1 |
Новичок
Джуниор
Регистрация: 19.04.2014
Сообщений: 2
|
ошибка argument not optional
В экселе составил таблицу которая по по некоторым параметрам высчитывает координаты точек некоторой фигуры. И составил код для автокад чтобы в нём эта фигура по этим координатам вычерчивалась. И выдаёт мне ошибку, там где в коде выделено красным.И не знаю как её устранить.
Sub autocad() Dim acadapp As AcadApplication Dim acad As Object Set acad = CreateObject("AutoCad.Application") acad.Visible = True acad.WindowState = acMin Dim t As AcadModelSpace t = acad.ActiveDocument.ModelSpace Dim polyline As AcadLWPolyline Dim P(0 To 9) As Double P(0) = Range("B3"): P(1) = Range("C3") P(2) = Range("B7"): P(3) = Range("C7") P(4) = Range("B11"): P(5) = Range("C11") P(6) = Range("B12"): P(7) = Range("C12") P(8) = Range("B20"): P(9) = Range("C20") Set polyline = t.AddLightWeightPolyline(P) opl.Closed = True Dim polyline1 As AcadLWPolyline Dim P1(0 To 31) As Double P1(0) = Range("B20"): P1(1) = Range("C20") P1(2) = Range("B4"): P1(3) = Range("C4") P1(4) = Range("B19"): P1(5) = Range("C19") P1(6) = Range("B5"): P1(7) = Range("C5") P1(8) = Range("B18"): P1(9) = Range("C18") P1(10) = Range("B6"): P1(11) = Range("C6") P1(12) = Range("B17"): P1(13) = Range("C17") P1(14) = Range("B7"): P1(15) = Range("C7") P1(16) = Range("B16"): P1(17) = Range("C16") P1(18) = Range("B7"): P1(19) = Range("C7") P1(20) = Range("B15"): P1(21) = Range("C15") P1(22) = Range("B8"): P1(23) = Range("C8") P1(24) = Range("B14"): P1(25) = Range("C14") P1(26) = Range("B9"): P1(27) = Range("C9") P1(28) = Range("B13"): P1(29) = Range("C13") P1(30) = Range("B10"): P1(31) = Range("C10") Set polyline = t.AddLightWeightPolyline(P1) End Sub Безымянный.jpg |
24.04.2014, 12:14 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
пробуйте устранить так:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
24.04.2014, 12:35 | #3 |
Новичок
Джуниор
Регистрация: 19.04.2014
Сообщений: 2
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка Warning: mysql_num_rows(): supplied argument is not a valid MySQL result resource | Leks123 | PHP | 42 | 16.08.2013 00:06 |
Ошибка с3867 function call missing argument list | enjo | Общие вопросы C/C++ | 11 | 13.11.2012 17:49 |
Ошибка: error C2783: 'T __cdecl sumF(void)' : could not deduce template argument for 'T' | julia9311 | Общие вопросы C/C++ | 6 | 04.07.2012 07:34 |
Ошибка типа cannot convert `float*' to `float' for argument `1' ... | Trackman | Помощь студентам | 3 | 23.05.2011 17:09 |
Ошибка Invalid argument | StartMis | Общие вопросы Delphi | 7 | 24.11.2010 00:35 |