[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

_____________________________________________________________________________________________________________

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

[gomer]

Сообщение от AMATOP Вот:

бред какой-то
ВОТ:

Код:

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

 (if (setq ss (ssget '((0 . "LINE"))))
  (mapcar
   '(lambda (x)
	  (angle (cdr (assoc 10 x)) (cdr (assoc 11 x)))
	)
	(mapcar
	  'entget
	  (vl-remove-if
	  'listp
	  (mapcar 'cadr (ssnamex ss))
	  )
	)
  )
)

[Li6-D]

Сообщение от AMATOP Извините, за тупость обильно приправленную, увы, ленью, но ... как создать пустой список? Т.е. переменная, типа список, есть, но внутри ничего нет! Другими словами, это как перед входом в супермаркет - нужно взять тележку, но пустую. А в LISP-е у меня получаеться только тогда, когда в "тележку" какой-нибудь "мусор" закинешь!

nil - и есть пустой список во всех функциях обработки списков (такой же как '() или (list)):
(cons 0 nil) возвращает (0).
Если переменной значение еще не присваивалось, то она и есть уже готовый пустой список.
Кроме того, nil в некоторых логических функциях (<, <=, >, >=, /=) ведет себя как минус бесконечность:
(> -999999999. nil) возвращает T.

Сообщение от Oliver_88 Код: [Выделить все] (setq nabor (ssget)) (setq kolvo (sslength nabor)) (while (< 0 kolvo) (setq kolvo (1- kolvo)) (vl-load-com) (setq object (ssname nabor kolvo)) (setq spisok (cons (vlax-get-property (vlax-ename->vla-object object) 'Angle) spisok)) )

Нет проверки того, что объекты в выборке имеют свойство 'Angle - от этого и ошибка. Надо или проверять с помощью vlax-property-available-p или использовать в ssget фильтр для примитивов нужного типа, например, отрезков (см. сообщение выше).
Зачем (vl-load-com) включать в цикл?
В третей строке раньше правильно было:
(while (<= 0 kolvo)
А еще правильней вместо while применить repeat.
Нет проверки того, что nabor не nil (если пользователь ответил пустым вводом), поэтому возможна ошибка:
Команда: (sslength (ssget))
Выберите объекты:
; ошибка: неверный тип аргумента: lselsetp nil
Без фильтра:

Код:

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

 ((lambda (ss / i spisok obj)
   (vl-load-com)
   (repeat (if ss (setq i (sslength ss)) 0)
     (setq i (1- i)
           obj (vlax-ename->vla-object (ssname ss i)))
     (if (vlax-property-available-p obj 'Angle)
       (setq spisok (cons (vlax-get-property obj 'Angle) spisok))
   ) )
   spisok
 )
 (ssget)
)

[AMATOP]

Сообщение от gomer бред какой-то

Во-первых спасибо, за код отвечающий всем правилам "этикета" - почерпнул для себя много полезного!Правда, не понял зачем еще этот предохранитель:

Код:

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

  (vl-remove-if
	  'listp
	  (mapcar 'cadr (ssnamex ss))
	  )

Во-вторых:"Мы все учились понемногу,
Чему-нибудь и как-нибудь..."
Ну и (набравшись наглости) в третьих: предлагаю блиц "Что? Где? Когда?" А именно: есть куча 3D solids. Нужно проверить каждый на соответсвие определению прямоугольного параллелепипеда. И те что не прямоугольные, снабдить расширенными данными - мол, уродцы.Буду признателен за любые алгоритмы, ну а за код не совестно и в ноги поклониться!

@ Li6-D - спасибо большущее! Для меня это важная новость.

[Oliver_88]

Вот еще что-то такое

Код:

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

   (vl-load-com)
  (setq ssl
	 (vla-get-ActiveSelectionSet
	   (vla-get-activedocument
	     (vlax-get-acad-object)
	     )
	   )
	)
  (vla-Clear ssl)
  (setq i -1)
  (if
    (and
      (not
	(vl-catch-all-error-p
	  (vl-catch-all-apply
	    'vla-SelectOnScreen
	    (list ssl (vlax-safearray-fill
			(vlax-make-safearray
			  vlax-vbInteger
			  (cons 0  0)
			  )
			(list 0)
			)
		  (vlax-safearray-fill
		    (vlax-make-safearray
		      vlax-vbVariant
		      (cons 0  0)
		      )
		    (list "LINE")
		    )
		  )
	    )
	  )
	)
      (/= 0 (vla-get-Count ssl))
      )
    (progn
      (setq arr (vlax-make-safearray
		  vlax-vbDouble
		  (cons 0  (1- (vla-get-Count ssl)))
		  )
	    )
      (vlax-map-collection ssl
	(function
	  (lambda (x)
	    (setq i (1+ i))
	    (vlax-safearray-put-element
	      arr
	      i
	      (vla-get-Angle x)
	      )
	    )
	  )
	)
      (vlax-safearray->list arr)
      )
    )

Li-6D

В третей строке раньше правильно было: (while (<= 0 kolvo)

Вот почему то именно это у меня даёт ошибку
; ошибка: неверный тип аргумента: lentityp nil
Поэтому и поменял на <.
С остальными замечаниями полностью согласен.

[gomer]

Сообщение от AMATOP Правда, не понял зачем еще этот предохранитель:

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

Код:

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

 if (setq ss (ssget '((0 . "LINE"))))
  (mapcar
   '(lambda (x)
	  (angle (dxf 10 x) (dxf 11 x))
	)
	(ss->list ss)
  )
)

ваша ошибка в постановке задачи... угол не может существовать без точек + свойство Angle есть только у отрезков (зная точки можно найти угол) + куча холостых vl-load-com в цыкле и пребразований из типа в тип
Oliver_88, посмотрите на свой код и на мой... Стоит ли овчинка выделки? Не все то золото, что пропиарили... единственное преимущество вашего - реакция на Esc... с помощью библиотечных функций это делается в две строки тем более, что скорости вам иксы не прибавят, данном случае

[Oliver_88]

Offtop: gomer, написал как вариант. Ничего личного.

[gomer]

Сообщение от Oliver_88 написал как вариант

ActiveX - вотчина vba... Там по другому нельзя! Задача же элементарная: берем отрезки и для каждого вычисляем угол...

[AMATOP]

Сообщение от gomer это не предохранитель, а преобразователь набора в список...

Я имел в виду:

Код:

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

   (vl-remove-if
	  'listp...

Ведь mapcar уже даст на выходе список!? Зачем проверка с очисткой?

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

А ты проверь

[AMATOP]

Да, поспешил! - Поленился сначала протянуть до конца строку в окне консоли.

[Michael!]

Доброго времени суток!
Подскажите, какая команда существует в Visual Lisp для выбора последнего отрисованного элемента?
спасибо!

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

entlast, кажется...

[Michael!]

я видимо не так сформулировал вопрос. я хотел через VLA. какой там синтаксис?

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

Если создание объекта (черт, два литра пива дают о себе знать...) выполняется через vla-, то результат создания объекта уже и есть указатель на созданный объект. Я не очень понимаю - в чем, собственно, трудность-то?

[Michael!]

пиво в малых дозах полезно в любых количествах .
дело то вот в чем: я хочу выбрать мин и мах точки у замкнутого контура. знаю как это сделать через VLA (vla-GetBoundingBox obj 'minpoint 'maxpoint). поэтому мне нужно выбрать объект через VLA. он создается копированием. поэтому хочу взять этот OBJ так. (типо как entlast в лиспе).

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

Попробуй так:
(setq res (vla-copy ....
А потом дампить res. Проверить сейчас уже не могу, спать сильно хочу. Если что - днем попробую проверить...

[Michael!]

ладно. до завтра. все равно ничего не понял
в любом случае спасибо!

[Oliver_88]

Код:

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

 (vla-Item (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
	  (1- (vla-get-Count (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))))
	  )

Если рисуешь в листе, нужно заменить vla-get-modelspace на vla-get-paperspace.

[TararykovDG]

Сообщение от Michael! поэтому хочу взять этот OBJ так. (типо как entlast в лиспе).

Ну так и возьми тупо

Код:

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

 
(vlax-ename->vla-object (entlast))

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

Вариант 1:

Код:

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

 (vlax-ename->vla-object (entlast))

Вариант 2:

Код:

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

 (setq res (vla-copy (vlax-ename->vla-object (car (entsel)))))
(vla-move res (vlax-3d-point (getpoint "\nBase point : ")) (vlax-3d-point (getpoint "\nSource point : ")))