[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]

Сообщение от Владимир Егорьев А как-нибудь виртуальную биссектрису угла можно сделать,аналогично виртуальной точки BT?

Для этого нужно вычислить виртуальный угол

Нет,ну это безусловно.А вот как задать виртуальную биссектрису относительно которой зеркалить?Или нарисовать линию с последующим её удалением?

Добавлено.

Угол то будет как раз между левой стороной первой основной грани и правой стороной последней основной грани.Отсчёт граней соответственно слева направо.

[gomer]

ну так сложите эти углы и разделите на два это будет нужный угол, расстояние любое больше нуля

[Елпанов Евгений]

Сообщение от gomer ну так сложите эти углы и разделите на два это будет нужный угол, расстояние любое больше нуля

Советую быть по аккуратнее с такими кодами! Допустим один угол равен 350 градусов, а второй 10. В данном случае, нужно получить угол без направления, в общем случае, все может быть сложнее...

[gomer]

Сообщение от Елпанов Евгений Советую быть по аккуратнее с такими кодами!

ну, так есть же еще опорные точки

Елпанов Евгений & gomer

Если я правильно понял Елпанов Евгений-он обратил внимание на то что алгоритм кода не исключает возможностей вводить в качестве исходных данных углы отличные от 360 градусов,которые подразумевают не только отрисовку развёрток закмкнутого многогранного профиля.
Это качественное замечание если я его всё таки правильно понял.
Действительно я предпологал ещё и этим же кодом выполнять развёртки так называемых обечаек из которых будут собираться замкнуты профиля.
Но я пока до этого не дошёл.

[Елпанов Евгений]

я только хотел показать:
(350 + 10) / 2 = 180
но если нарисовать две линии, одна под углом 350, а другая 10 градусов, то луч - вектор, будет направлен под углом 0 градусов.
Другими словами, в некоторых случаях, результат выдает угол для обратного вектора.

Подобная ошибка, очень часто сильно выматывает начинающих программистов - есть код, он почти всегда работает верно, но иногда дает совершенно не верные результаты. Ошибка в сравнении углов или получении направления (угла), после простейших математических действий не вызывающих сомнений!

[gomer]

Ошибка в сравнении углов или получении направления (угла), после простейших математических действий не вызывающих сомнений!

ну, да... тут подход индивидуальный...

Елпанов Евгений

Вы извините,но я не очень Вас понял.

Хотя.....
Вот появились первые признаки неправильности mirrora.Возможно это то что вы описывали.

[Елпанов Евгений]

Сообщение от Владимир Егорьев Вы извините,но я не очень Вас понял.

нарисовал, как смог...

180 не равно 0

Елпанов Евгений

Вы меня предостерегаите о том что угол в 10 градусов по часовой стрелки от оси Х-это ни есть 10 градусов,а 350?

[gomer]

как есть 24часовая система отсчета времени и 12часовая так и здесь нужно приводить все к диапазону [-пи +пи] тогда разногласий не возникнет...

gomer

Соответственно

Будем считать что я понял мысль Елпанов Евгений

[Елпанов Евгений]

пример задачи:

Код:

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

;; есть треугольник A B C
;; необходимо найти точку P
;; лежащую от вершины B на расстоянии 1 мм
;; и равноудаленную от сторон AB AC
;; есть треугольник A B C
;; необходимо найти точку P
;; лежащую от вершины B на расстоянии 1 мм
;; и равноудаленную от сторон AB AC

;; решение приведеным выше алгоритмом:
(defun test (a b c)
 (mapcar '(lambda (a b) (entmakex (list '(0 . "line") (cons 10 a) (cons 11 b))))
         (list a b c)
         (list b c a)
 )
 (entmakex (list '(0 . "point") (cons 10 (polar b (/ (+ (angle b a) (angle b c)) 2.) 1.))))
)

(test '(0 0) '(5 5)'(5 -5)) ;; точка внутри треугольника

(test '(5 5) '(0 0)'(5 -5)) ;; точка снаружи треугольника

[Ubivec81]

Здравствуйте!
Раз уж тут тема для чайников может кто то научит строить полилинию по списку? Везде где читал есть коды для этого но хочется понять как все это устроено. Скажем так: у меня есть список "i" с элементами типа ((100.0 10.0) (110.0 12.0) (120.0 13.0)) нужно нарисовать полилинию через три точки не замкнув ее. количество элементов в списке может меняться в зависимости от того сколько их будет вводить пользователь. Если есть возможность то в объяснении не применять "VL".

[TararykovDG]

Сообщение от Ubivec81 Здравствуйте! Раз уж тут тема для чайников может кто то научит строить полилинию по списку? Везде где читал есть коды для этого но хочется понять как все это устроено. Скажем так: у меня есть список "i" с элементами типа ((100.0 10.0) (110.0 12.0) (120.0 13.0)) нужно нарисовать полилинию через три точки не замкнув ее. количество элементов в списке может меняться в зависимости от того сколько их будет вводить пользователь. Если есть возможность то в объяснении не применять "VL".

Код:

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

 
(setq i (list '(100.0 10.0) '(110.0 12.0) '(120.0 13.0)))
(apply 'command (append (list "_.pline") i (list "")))

или так

Код:

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

 
(setq i (list '(100.0 10.0) '(110.0 12.0) '(120.0 13.0)))
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length i))) (mapcar '(lambda(x) (cons 10 x)) i)))

[Ubivec81]

TararykovDG, а как насчет научить?:-)
Все заработало отлично именно так как я хотел! но честно говоря сидел и разбирал код в первом примере и никак не могу своими мозгами дойти как это понять ....

Код:

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

 (apply 'command (append (list "_.pline") i (list "")))

вот это в целом я понял , НО если глядеть на него целиком а если рассмотреть

Код:

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

 (append (list "_.pline") i (list ""))

то тут я ни как не пойму что за запись. То что это сливание в один список понятно, но как туда попадают и что делают "List" "_.Pline" и ч то такое (list "") я понять не могу! Прошу пояснения.

[alex8888]

Прошу пояснения

Команда pline с клавиатуры работает примерно так: _pline точка1 точка2 .... точкаN "", где последние кавычки обозначают, что больше точек нет и можно завершить выполнение команды.
Append собирает в список последовательность для команды pline, т.е получаем тоже, что и выше но в виде списка.
Apply заставляет применить функцию (у нас это Command) к списку, который был получен выше.

[Ubivec81]

alex8888, а list тут зачем да при чем 2 раза?

[alex8888]

С помощью list мы даем указание на то, что все, что стоит после него считается списком. Не беда, что это всего лишь название команды или двойные кавычки. В целом получится именно тот список, что нам нужен.
Если бы в условии было определенное количество точек для полилинии, то выражение упростилось бы до одного list, хотя там вообще все будет просто и без наворотов типа append и apply.