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

Тема: Высоты

Дано: в автокад загружены точки с прибора с координатами X,Y,Z. Необходимо - можно ли высветить высоты автоматом не пользуясь свойствами, а то приходиться входить в свойства, а потом выделяя каждую точку смотреть высоту. Если можно, то как???????
Поподробнее

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

Re: Высоты

Программно т. е. написать програмульку отрисовки значения  Z  точки

  • VH 
  • Активный участник
  • На форуме с 14 июня 2001г.
  • Сообщений: 1,381
  • Спасибо: 7

Re: Высоты

> Vitalij
Товарищ только что задавал тот же дословно вопрос в Приемах работы для Land Desktop - так что (как выразился Кот Матроскин) "...средствА то у нас есть...".

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

Re: Высоты

> VH
Извините, я по тому форуму не гуляю

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

Re: Высоты

Привет Толик и Виталик! Да, такую программу написать несложно. Можно на Visual Basic под AutoCAD. Скиньте свой мэйл мне на почту, чтобы я не забыл и мог Вам ее прислать.

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

Re: Высоты

> Nurbek
Почему молчишь? Выслал тебе свой мэйл.

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

Re: Высоты

(vl-load-com)
(defun C:autoz2    (/ point_nb)
  (if
    (and
      (setvar "tilemode" 1)
      (setq point_nb (ssget '((0 . "POINT"))))
    ) ;_ end of and
     (progn
       (vla-StartUndoMark
     (vla-get-ActiveDocument (vlax-get-acad-object))
       ) ;_ end of vla-StartUndoMark
       (mapcar
     (function (lambda (x)
             (vla-addtext
               (vla-get-ModelSpace
             (vla-get-ActiveDocument
               (vlax-get-acad-object)
             ) ;_ end of vla-get-ActiveDocument
               ) ;_ end of vla-get-ModelSpace
               (rtos (last x))
               (vlax-3d-point x)
               (getvar "textsize")
             ) ;_ end of vla-addtext
           ) ;_ end of lambda
     ) ;_ end of function
     (mapcar
       'vlax-safearray->list
       (mapcar 'vlax-variant-value
           (mapcar 'vla-get-coordinates
               (mapcar 'vlax-ename->vla-object
                   (vl-remove-if
                     'listp
                     (mapcar 'cadr
                         (ssnamex point_nb)
                     ) ;_ end of mapcar
                   ) ;_ end of vl-remove-if
               ) ;_ end of mapcar
           ) ;_ end of mapcar
       ) ;_ end of mapcar
     ) ;_ end of mapcar
       ) ;_ end of mapcar
       (vla-endUndoMark
     (vla-get-ActiveDocument (vlax-get-acad-object))
       ) ;_ end of vla-endUndoMark
     ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun