• Михаил
  • Восстановленный участник
  • На форуме с 23 апреля 2005г.
  • Сообщений: 47
  • Спасибо: 0

Тема: Нужна программа, которая бы заменила точку на блок

Мне нужна программка которая могла бы точку заменить на блок(замена точки на блок "дерево или куст"), блок я же нарисовал!  СРОЧНО ПОМОГИТЕ пожалуйсто!!!
с Меня пиво!!!

  • Vitalij
  • Активный участник
  • Откуда: Литва
  • На форуме с 7 марта 2004г.
  • Сообщений: 673
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

А каким образом? Точки уже в чертеже и делается ьзахват ь мышкой? Или же точки ешхе не загружены в чертеж, а имеется их список? Если второй вариант, лучше, чтобы список был с кодом точки, тогда можно точки сразу вгружать в чертеж блоками, в зависимости какой код у точки подбираем блок и его вставляем. (ехто вариант решения)

  • masun
  • Восстановленный участник
  • На форуме с 11 октября 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

я в свое время написал такую програмку на vb
выделяешь все нужные точки и автоматом проставляются на них нужные блоки
если еще актуально - пиши

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

Re: Нужна программа, которая бы заменила точку на блок

> Михаил
Если я ничего не напутал, то вот:

(defun C:CHG_P_BLK ( / blk ss p i n _at _ce _at)
  (setq _ce (getvar "CMDECHO")) (setvar "CMDECHO" 0)
  (setq _at (getvar "ATTREQ"))  (setvar "ATTREQ" 0)
  (command "_.UNDO" "_Begin")
  (if (setq blk (getstring "\nУкажите имя блока: ")) (progn
    (princ "\nВыберите точки: ")
    (if (setq ss (ssget '((0 . "POINT")))) (progn
      (setq i 0 n (sslength ss))
      (while (< i n)
        (setq p (cdr (assoc 10 (entget (ssname ss i)))))
        (command "_.-insert" blk (trans p 0 1) 1 1 0.0)
        (entdel (ssname ss i))
        (setq i (1+ i))
      ) ;; endof (while
    )) ;; (if (progn
  )) ;; (if (progn
  (command "_.UNDO" "_End")
  (setvar "CMDECHO" _ce)
  (setvar "ATTREQ" _at)
  (princ)
)

Запускается командой CHG_P_BLK

  • На форуме с 12 октября 2004г.
  • Сообщений: 173
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

Забавно! А, зачем это надо?
Сразу блоки нельзя было вставить?

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

Re: Нужна программа, которая бы заменила точку на блок

> Ольга
Наверное этот чертеж был сделан не "вручную", а какой-то программой...

  • На форуме с 12 октября 2004г.
  • Сообщений: 173
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

Да, я понимаю, что рукопашная вставка точек с последующей их заменой на блоки - это из раздела Юмор. Не об этом речь.
Раньше тоже мечтала о такой программе, до тех пор пока не разобралась с настройками импорта MID\MIF файлов. При работе с Лэндом вроде тоже всего хватает, если поработать с ключами описаний точек... Если ни то, ни другое не подходит, можно вставить блоки средствами Мар при создании Node-топологии.
Но, все равно остаются сомнения, может еще просто не пришлось столкнуться с такой ситуацией, когда без такой программы не обойтись? Потому и спрашиваю - для чего реально это понадобилось? Вдруг тоже пригодится? :)

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

Re: Нужна программа, которая бы заменила точку на блок

> Ольга
Как говорят у нас на Украине: "Щоб було...". В хозяйстве все пригодится. biggrin

  • На форуме с 12 октября 2004г.
  • Сообщений: 173
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

Да :) Спасибо! Уже скопировала

  • ХуМа
  • Восстановленный участник
  • На форуме с 9 августа 2005г.
  • Сообщений: 10
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

Люди если вы работаете в ЛДД, то там есть автоматическая возможность отрисовки блоков на точках. Причем вид блока определяет код точки

  • Zerg
  • Восстановленный участник
  • На форуме с 15 марта 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

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

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

Небольшая проблема - блоки разворачиваются ровно на 1 градус. Приходится в ручную отбирать вставленные блоки и "отворачивать" их обратно. АКАД 2007 РУС

  • Mip
  • Восстановленный участник
  • На форуме с 18 февраля 2005г.
  • Сообщений: 210
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

> >Владислав
На всякий случай проверь сам блок, возможно при его создании была допущена ошибка с поворотом.

  • off
  • off
  • Активный участник
  • Откуда: Ростов-на-Дону
  • На форуме с 24 июня 2006г.
  • Сообщений: 264
  • Спасибо: 0

Re: Нужна программа, которая бы заменила точку на блок

https://www.caduser.ru/forum/topic21135.html
Здесь было обсуждение этой темы.