[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

_____________________________________________________________________________________________________________

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

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

Inferi, а тебе зачем?

[trushev]

Сообщение от Inferi Есть список координат '((x1 y1 z1) (x2 y2 z2) (x3 y3 z3) (x4 y4 z4)).

Вероятная причина: координаты точек тоже списки, а этого не видно.

[ShaggyDoc]

Сообщение от Inferi Как вернуть (x1 y1 z1) (x2 y2 z2) (x3 y3 z3) (x4 y4 z4), то есть как бы раскрыть внешние скобки? Была идея:

Слово "вернуть" - неверное. Возвращает результат функция в виде какого-то единственного значения, а вернуть четыре значения не сможет. Это единственное значение и есть список списков координат.

А вот обращаться к подспискам этого общего списка надо уже каждый раз отдельно, например функцией nth (по номеру в списке, начинающемуся с нуля).

[VVA]

Сообщение от Inferi Есть список координат '((x1 y1 z1) (x2 y2 z2) (x3 y3 z3) (x4 y4 z4)). Как вернуть (x1 y1 z1) (x2 y2 z2) (x3 y3 z3) (x4 y4 z4), то есть как бы раскрыть внешние скобки?

Сообщение от ShaggyDoc А вот обращаться к подспискам этого общего списка надо уже каждый раз отдельно, например функцией nth (по номеру в списке, начинающемуся с нуля).

Либо поэлементно с помощью foreach

Код:

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

(foreach pt  '((x1 y1 z1) (x2 y2 z2) (x3 y3 z3) (x4 y4 z4))
(princ "\nPoint ")(princ pt)
)

[ShaggyDoc]

Сообщение от VVA Либо поэлементно с помощью foreach

Совершенно верно. А как именно - зависит от того, как организована вся программа. Надо ли отдельно по нескольку раз использовать подсписки, т.е. назначать им какие-то имена переменных (по-бейсиковски) или всё можно в одном foreach проделать (по-лисповски).
Потому Кулик Алексей aka kpblc первым делом и спросил "а тебе зачем"?

[Inferi]

Спасибо всем за объяснение, было ошибочное мнение, что можно "скормить" всю конструкцию, раскрыв перед этим скобки, функции inters. Обошелся обычными car, cadr и прочее.

[Inferi]

Доброго времени суток! Создаю полилинию через vla, с помощью метода vla-SetBulge преобразую линейные сегменты в дуговые, вопрос следующий: можно ли не командными методами заштриховать полилинию с дуговыми сегментами?

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

Можно, почему нет? Создаешь объект штриховки, задаешь ему OuterLoop (если не ошибаюсь), потом выполняешь Evaluate.

[Inferi]

Разобрался, спасибо!

Код:

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

 
(setq hatchObj (vla-AddHatch model_space acHatchPatternTypePreDefined "SOLID" :vlax-true acHatchObject))
(setq myPolyObj (vlax-ename->vla-object (car (entsel))))
(setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
(vlax-safearray-put-element outerLoop 0 myPolyObj)
(vla-AppendOuterLoop hatchObj outerLoop)
(vla-Evaluate hatchObj)
(vla-Update hatchObj)

[kurstep]

Здравствуйте , подскажите как удалить все вхождения блока и сам блок определенного имени (допустим "nameblock") - причем блок находится и в модели и в листах

[Сергей812]

в инете достаточно примеров удаления заданного по имени блока на лиспе) В чем вызвано затруднение то?

[kurstep]

Если вы мне скинете ссылку я буду очень благодарен, я честно искал но не нашел(

[VVA]

Сообщение от kurstep искал но не нашел(

Delete Blocks
Lisp routine to delete blocks
Lisp for filtering certain blocks and delete them
Delete Block from multiple Layouts
Remove / Delete Block from multiple Layouts at the same time

[Inferi]

Доброго времени суток! Подскажите, возможно ли запустить функцию, имя которой которой хранится в переменной. Например я использую функцию суммирования воздуховодов (duct_sum), в первом случае нужно после ее вызова открыть диалог (duct), во-втором диалог (draw_duct_reducer). Хотел передать в качестве аргумента (duct_sum / "(duct)"), и (duct_sum / "(draw_duct_reducer)") соответственно, и в конце кода функции (duct_sum) открыть соответствующие диалоги. Возможна ли такая реализация или стоит избегать таких "костылей"?

[Дима_]

Сообщение от Inferi Подскажите, возможно ли запустить функцию, имя которой которой хранится в переменной

Можно:

Код:

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

 
(defun abc (x) (+ x x))

(apply (read "abc") '(5))

Сообщение от Inferi или стоит избегать таких "костылей"?

Да

[VVA]

Сообщение от Inferi возможно ли запустить функцию, имя которой которой хранится в переменной.

как вариант

Код:

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

(defun draw_duct_reducer ()(alert "draw_duct_reducer")(princ))
(defun duct()(alert "duct")(princ))
(defun duct_sum (x / func)
  (if (= x 1)(setq func duct)(setq func draw_duct_reducer))
  (func)
  (princ)
  )

пример

Код:

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

(duct_sum 1)
(duct_sum 2)

----- добавлено через ~4 мин. -----
почитал еще раз, наверное так

Код:

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

(defun draw_duct_reducer ()(alert "draw_duct_reducer")(princ))
(defun duct()(alert "duct")(princ))
(defun duct_sum (x func)
  (func)
  (princ)
  )

Пример

Код:

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

(duct_sum 1 duct)
(duct_sum 2 draw_duct_reducer)

[Vladimir_Sergeevich]

Всем доброго времени суток!
Столкнулся с весьма любопытной ситуацией. Рисую полилинию с помощью vla-addLightWeightPolyline. Пока система координат лежит в одной плосткости (ось z смотрит вверх) все нормально, никаких проблем. НО! Тут столкнулся со случаем, когда пск перевернута вверх тормашками (ось z ушла вниз) и вдруг передавемый список вида

Код:

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

 ((-0.168002 259.556 0.0) (-1.96325 260.428 0.0) (-3.83184 261.135 0.0) (-5.75204 261.691 0.0) (-7.70688 262.111 0.0) (-9.68363 262.413 0.0) (-11.6731 
262.616 0.0) (-13.6692 262.739 0.0) (-15.6682 262.803 0.0) (-17.668 262.826 0.0) (-19.668 262.829 0.0))

воспринимается как

Код:

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

 ((0.168002 259.556 0.0) (1.96325 260.428 0.0) (3.83184 261.135 0.0) (5.75204 261.691 0.0) (7.70688 262.111 0.0) (9.68363 262.413 0.0) (11.6731 
262.616 0.0) (13.6692 262.739 0.0) (15.6682 262.803 0.0) (17.668 262.826 0.0) (19.668 262.829 0.0))

Почему vla-addLightWeightPolyline при перевернутой ПСК зеркалит координаты относительно начала координат по оси X??

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

При работе с ActiveX, насколько я помню, координаты передаются в МСК. Попробуй создавать через entmake, с одновременным заданием 210 группы. Ну или потом меняй свойство Normal.

[Vladimir_Sergeevich]

Алексей, список номер раз и так в мск. Но, при перевернутой СК, воспринимается как отзеркаленный.
Попробуй поставить (vl-cmdf "_.ucs" "_3" '(0 0) '(10 0) '(10 -10)) и отрисуй vla-addLightWeightPolyline.
Я почти списал у Полещука:

Код:

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

 (if (not owner) (setq owner (sad-get-CurrentSpace))) ;;если не указано другого - активное пространство активного документа	
(setq pt_lst ;;convert to 2d-point-list
	(apply 
		'append 
		(mapcar 
			'list 
			(mapcar 'car pt_lst)
			(mapcar 'cadr pt_lst)
		) 
	) 
	i 0
) 
(if (> (length pt_lst) 2)
  (setq obj 
	(vla-addLightWeightPolyline	
		owner 
		(vlax-make-variant
			(vlax-safearray-fill
				(vlax-make-safearray
					vlax-vbDouble
					(cons 0 (1- (length pt_lst)) )
				) 
				pt_lst
			)
		) 
	)
  ) 

з.ы. действительно "Normal = (0.0 0.0 -1.0)"
з.з.ы что то тут не чисто...

Код:

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

 Команда: (vla-put-normal (vlax-ename->vla-object (car (entsel))) (vlax-3d-point '(0.0 0.0 0.0)) )
Выберите объект: ; ошибка: Ошибка Automation. Неверный ввод

ага, сам дурак... (0.0 0.0 1.0)

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

Я ж говорю - потом поменяй свойство Normal