[Victorovich]

Всем Здрасьте !!!

Объясните пожалуйста как на AutoLisp написать программу отрисовки полилинии и вывода ее длины рядом с ней, например в ее начале.

Трудность возникла в самом начале:
как сначала отрисовать полилинию, а потом извлечь данные о ее длине. Иначе говоря – по какому событию программа узнает что отрисовка полилинии закончена и откуда взять длину???


Заранее ВСЕМ спасибо.

[VVA]

1.Как узнать и откуда взять

Код:

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

(defun C:TEST ()
(setvar "CMDECHO" 1)
(command "_.PLINE")
(while (> (getvar "CMDACTIVE") 0)(command pause))
(setq pl (entlast)) ;_Полилиния  
(command "_LENGTHEN" pl "")
(setq dl (getvar "PERIMETER"))
(setq dl (rtos dl 2 2)) ;_Округляем до 2 знаков
(setq pt (cdr(assoc 10 (entget pl)))) ;_Точка отрисовки
(setq txt (entmakex
      (list
        (cons 0 "TEXT")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbText")
        (cons 72 0)           ;_ выравнивание влево
        (cons 1 dl)
        ;(cons 7 style) ;_Текущий стиль
        ;(cons 8 layer) ;_Текущий слой
        (cons 10 pt)
        (cons 11 pt)
        (cons 40 (getvar "TEXTSIZE")) ;_Текущей высотой текста
        ) ;_ list
      ) ;_ entmakex
 )
  )

Еще почитать
http://dwg.ru/f/showthread.php?t=12911
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=33159gI

[Victorovich]

спасибо,
очень тебе благодарен