[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

[Выделить все]

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[koMon]

без activex вряд ли(

[megabeton]

Тогда сразу вопрос - а как указать на пространство блока?
??? vla-get-ModelBLOCK ??? (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object)))
Совсем чайник пока в Активексе, дайте наводку.

[koMon]

это просто указатель на не/именованный блок из коллекции блоков

[Кулик Алексей aka kpblc]

http://www.cad.dp.ua/stats/vla_doc.php

[megabeton]

Добавить точку (линию, текст и пр.) в пространство модели - просто.
(vla-addPOINT (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3D-point '(0. 0. 0.)))
Применяем метод и передаем соответствующие аргументы.

Добавить точку в блок пока не получается.
(vla-addPOINT (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)) (vlax-ename->vla-object (car (entsel)))) (vlax-3D-point '(0. 0. 0.)))
ошибка: Слишком много фактических параметров

По логике дилетанта рассуждаю следующим образом.
Использую метод vla-addPOINT, указываю на блок (делаю запрос свойства vla-get-Blocks с аргументом объект, т.е. конкретный блок) в пространстве модели/документа/объекта и передаю аргумент "координаты точки". Где ошибка?

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (vla-addpoint (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                        (vla-get-effectivename (vlax-ename->vla-object (car (entsel))))
              ) ;_ end of vla-item
              (vlax-3d-point '(0. 0. 0.))
) ;_ end of vla-addpoint

[proel]

... прошу удалить мой вопрос как уже не актуальный.

[Browning Zed]

Господа, подскажите, как из ssget получить набор, к которому можно обращаться через vla-функции? Например, получаем набор выбора:

Код:

[Выделить все]

 (setq ss   (ssget '((0 . "LWPOLYLINE"))))

Далее, преобразуем его, и записываем в переменную X, чтобы после появилась возможность изменять свойства объектов:

Код:

[Выделить все]

 (vla-put-color X 1)
 (vla-put-linetype X "Continuous")

и т.д.

[skkkk]

Код:

[Выделить все]

 (setq ss (ssget '((0 . "LWPOLYLINE"))))
(if ss
	(repeat (setq i (sslength ss))
		(setq X (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
		(vla-put-color X 1)
		(vla-put-linetype X "Continuous")
	)
)

[Browning Zed]

Спасибо.

----- добавлено через ~11 ч. -----
Как присвоить объектам RGB цвет через vla?

Код:

[Выделить все]

 (setq ss (ssget '((0 . "LWPOLYLINE"))))
(if ss
	(repeat (setq i (sslength ss))
		(setq X (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
		(vla-put-truecolor X (list '(255 255 255))); белый цвет
	)
)

Вместо (list '(255 255 255)), насколько я понимаю, нужно сослаться на какой-то объект, имеющий соответствующий цвет. Но как это сделать?

[Сет]

Подскажите, как нарисовать простую полилинию по двум вершинам?
Пробую вот такой код:

Код:

[Выделить все]

 
(setq pt1 (list 1 1))
(setq pt2 (list 2 2))
(vla-AddPolyline model_space (vlax-safearray-fill 
    (vlax-make-safearray vlax-vbDouble '(0 . 1))
    (append pt1 pt2)))

Здесь model_space - указатель на пространство модели.
В итоге получаю ошибку:

сбой функции vlax-safearray-fill. Неверный список инициализации. #<safearray...>

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (setq *model* (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq p1 (list 1. 1.))
(setq p2 (list 2. 2.))
(vla-addlightweightpolyline *model*
                            (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 3)) (append p1 p2))
                            ) ;_ end of vlax-make-variant
) ;_ end of vla-AddLightWeightPolyline

[Сет]

Кулик Алексей aka kpblc, а почему в функции vlax-make-safearray указана точечная пара (0 . 3), а не (0 . 1), как у меня? Я так понимаю, это значения индексов первого и последнего элементов массива. Если всего этих элементов два (две точки-вершины полилинии), то зачем мне массив на 4 элемента, который создается с помощью точечной пары (0 . 3)? Или координаты двухмерной точки в массиве занимают две позиции?

[Кулик Алексей aka kpblc]

Потому что вершин 2, у каждой по 2 координаты. Итого 4 элемента. От 0 до 3.

----- добавлено через 13 сек. -----
И не забудь преобразовать savearray в variant.

[koMon]

Сообщение от Кулик Алексей aka kpblc И не забудь преобразовать savearray в variant.

это точно будет лишнее.

----- добавлено через ~4 мин. -----

Сообщение от Сет а почему в функции vlax-make-safearray указана точечная пара (0 . 3), а не (0 . 1), как у меня?

определяется одномерный массив на 4 члена (первый член будет иметь индекс в массиве 0, последний 3), в который затем загоняются поочерёдно координаты X, Y вершин полилинии. 2 вершины 4 члена, 3 - 6, ....

----- добавлено через ~10 мин. -----

Сообщение от Browning Zed Как присвоить объектам RGB цвет через vla?

если назначать цвет, использую ActiveX, то и выбор объектов лучше имхо делать на нём же и быстрее работать будет и проще к объектам выборки обращаться. например назначить всем выбранным полилиниям цвет R255G255B255 можно так.

Код:

[Выделить все]

 
(setq filter_list '((0 . "LWPOLYLINE"))
	  group_code_array (vlax-make-safearray vlax-vbinteger (cons 0 (1- (length filter_list))))
	  group_value_array (vlax-make-safearray vlax-vbvariant (cons 0 (1- (length filter_list))))
	  array_index 0
	  color_object (vlax-create-object (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2)))
)
(vla-setrgb color_object 255 255 255)		;устанавлbваем RGB цвет для назначения его выбранным полилиниям
(if (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))) "Pline_Collection"))))
		(vla-delete (vla-item (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))) "Pline_Collection"))
)
(repeat (length filter_list)
	(vlax-safearray-put-element group_code_array array_index (car (nth array_index filter_list)))
	(vlax-safearray-put-element group_value_array array_index (cdr (nth array_index filter_list)))
	(setq array_index (1+ array_index))
)
(setq pline_collection (vla-add (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))) "Pline_Collection"))
(vla-selectonscreen pline_collection group_code_array group_value_array)
(vlax-for every_pline pline_collection
	(vla-put-colormethod (vla-get-truecolor every_pline) acColorMethodByRGB)
	(vla-put-truecolor every_pline color_object)
)
(vla-delete (vla-item (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))) "Pline_Collection"))
(princ)

[Сет]

Есть такая задача. Пользователь последовательно указывает три точки. При этом две первые точки задают прямую, а третья точка чаще всего не лежит на ней. Задача состоит в том, чтобы найти координаты точки p3', которая будет находиться на прямой, заданной точками p1 и p2 и максимально близко от точки p3. Есть простой, но трудоемкий способ через лобовые геометрические вычисления. Но может быть у лиспа есть функционал, который позволяет решить эту задачу проще? Или может кто-то для себя писал такую функцию под свои нужды?

[Browning Zed]

----- добавлено через 44 сек. -----

Сообщение от koMon цвет R255G255B255 можно так

Спасибо большое! В очередной раз выручил, сенсей.

[koMon]

Сообщение от Сет Есть такая задача.

если построить, например, вспомогательный отрезок, то искомая точка может быть найдена при помощи функции (VLAX-CURVE-GETCLOSESTPOINTTO).
хотя можно и используя (inters)

Код:

[Выделить все]

 (setq pt1 (getpoint "\n1-я точка: ")
	  pt2 (getpoint "\n2-я точка: ")
	  pt3 (getpoint "\n3-я точка: ")
	  pt3_12 (print (inters pt1 pt2 pt3 (polar pt3 (+ (* 0.5 pi) (angle pt1 pt2)) 5.0) nil))
)

[Сет]

Сообщение от koMon если построить, например, вспомогательный отрезок, то искомая точка может быть найдена при помощи функции (VLAX-CURVE-GETCLOSESTPOINTTO). хотя можно и используя (inters)

А можно ли в моем примере получить еще две точки, лежащий на прямой p1-p2, на определенном расстоянии от точек p1 и p2 снаружи отрезка p1-p2? На картинке точки помечены красным. При этом нужно учитывать, что пользователь может задать точки в обратном порядке, то есть задать направление сверху вниз влево, а не снизу вверх вправо, как у меня на картинке.

[Сет]

Сообщение от Сет А можно ли в моем примере получить еще две точки, лежащий на прямой p1-p2, на определенном расстоянии от точек p1 и p2 снаружи отрезка p1-p2?

Разобрался. С помощью функции polar.