• SDN
  • Участник
  • На форуме с 3 октября 2012г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Обработка подеревной съёмки

На компьютере установлены следующие программы:Автокад 2006,Геоникс 2006.
Есть 2500 пикетов подеревной съёмки,ставить ус.знак дерева на каждый пикет совсем не хочется.         
В какой из выше указанных программ можно выполнить следующие действия и как это правильно выполнить:
1 Выбрать группу пикетов
2 Присвоить группе пикетов условный знак деревья(без указания высоты рельефа)
Желательна по шаговая инструкция
Какие необходимо выполнить для этого действия.

Ответ от Victor (изменено: Victor, 3 октября 2012г. 14:38:56)

  • Victor
  • Активный участник
  • Откуда: Израиль
  • На форуме с 10 ноября 2007г.
  • Сообщений: 112
  • Спасибо: 11

Re: Обработка подеревной съёмки

Ваш геоникс не вносит деревья? Если пикеты это точки, то можно так. Набрать имя блока и выбрать точки.

(defun c:p+t ( / sk nam_bl nameset setlength i nam_pt sps_pt krd_p)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq sk 1.0)
(setq nam_bl (getstring "\nBlock? "))
(setq nameset (ssget "_:L" '(( 0 . "POINT"))))
(setq setlength (sslength nameset))
(setq i -1)
  (repeat setlength
    (setq i (1+ i))
    (setq nam_pt  (ssname nameset i))
    (setq sps_pt  (entget nam_pt))
    (setq krd_p (cdr(assoc 10 sps_pt)))
    (command "_.insert" nam_bl krd_p sk sk 0.0)
  )
(setvar "Osmode" snp)
)

  • SDN
  • Участник
  • На форуме с 3 октября 2012г.
  • Сообщений: 2
  • Спасибо: 0

Re: Обработка подеревной съёмки

Спасибо. Сейчас попробую. Дмитрий