• На форуме с 23 января 2011г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Lisp.Код для извлечения координат из атрибутов примитивов

Нужен код на лиспе для извлечения начальных и конечных координат из примитивов.

Ответ от Alan (изменено: Alan aka Александр Назаров, 23 января 2011г. 15:00:39)

  • Alan
  • Активный участник
  • Откуда: Украина / Киев
  • На форуме с 2 апреля 2002г.
  • Сообщений: 1,345
  • Спасибо: 15

Re: Lisp.Код для извлечения координат из атрибутов примитивов

Vak пишет:

Нужен код на лиспе для извлечения начальных и конечных координат из примитивов.

Ну это есть в самом простом учебнике по ЛИСП

Команда: (setq ename (entsel))

Выберите объект: (<Имя объекта: 7ef59f78> (62.398 220.059 0.0))
Команда: (setq edata (entget (car ename)))
((-1 . <Имя объекта: 7ef59f78>) (0 . "LINE") (330 . <Имя объекта: 7ef59cf8>) (5 
. "EF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . 
"AcDbLine") (10 -43.4905 185.983 0.0) (11 197.566 262.954 0.0) (210 0.0 0.0 
1.0))

Дальше выбор нужного

  • На форуме с 23 января 2011г.
  • Сообщений: 2
  • Спасибо: 0

Re: Lisp.Код для извлечения координат из атрибутов примитивов

Не.мне надо потом координаты в БД запихнуть, а не просто в строке увидеть.

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Lisp.Код для извлечения координат из атрибутов примитивов

Vak пишет:

Нужен код на лиспе для извлечения начальных и конечных координат из примитивов.

Что есть начальные и конечные координаты для примитива окружность (CIRCLE) или примитива точка (POINT) или ...?