[ALFMario]

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

[ALFMario]

или на мысль натолкните... я не знаю как работать со списком

[ALFMario]

...ну хто нибудь может подскажет как найти точку вставки текста ????...

[Profan]

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

Не понял ничего, как ни силился.

[Кулик Алексей aka kpblc]

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

Примерчик бы... Но одна проблема - лично мне за лисп сейчас сесть шансов никаких нет

Сообщение от ALFMario или на мысль натолкните... я не знаю как работать со списком

работать со списком? Как обычно, либо foreach, либо mapcar...

Сообщение от ALFMario ...ну хто нибудь может подскажет как найти точку вставки текста ????...

http://www.arcada.com.ua/forum/viewtopic.php?t=653

[ALFMario]

как найти точку вставки текста так и не понял...

[Profan]

Для однострочного текста:

Код:

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

 
(setq ptt (cdr (assoc 10 (entget (car (entsel "\n Выберите текст: "))))))

[ALFMario]

А если текст был уже выбран, а потом надо узнать его положение
что то вроде такого

Код:

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

(setq	txt (ssget '((0 . "TEXT"))))
  (setq ptt (cdr (assoc 10 (entget (car (txt))))))

Еще нашел такой код, но с что но не могу понять как он работает

Код:

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

;|============================================================================= 
*    Определение точки вставки одно- или многострочного текста 
*    Параметры вызова: 
*   ent   указатель на примитив 
*    Примеры вызова: 
(_kpblc-get-text-point (_KPBLC-GET-ENT-NO-ERROR-BY-TYPE "*TEXT" nil)) 
*    Возвращает точечную пару из DXF-кода и его значения. 
=============================================================================|; 
(defun _kpblc-get-text-point (ent / res) 
  (setq ent (_kpblc-conv-ent-to-ename ent)) 
  (cond 
    ((= (cdr (assoc 0 (entget ent))) "TEXT") 
     (if (or (/= (cdr (assoc 71 (entget ent))) 0) 
        (/= (cdr (assoc 72 (entget ent))) 0) 
        (/= (cdr (assoc 73 (entget ent))) 0) 
        ) ;_ end of or 
       (assoc 11 (entget ent)) 
       ) ;_ end of if 
   (assoc 10 (entget ent)) 
     ) 
    ((= (cdr (assoc 0 (entget ent))) "MTEXT") 
     (assoc 10 (entget ent)) 
     ) 
    (t nil) 
    ) ;_ end of cond 
  ) ;_ end of defun

[ALFMario]

Сборал из кусочков кода то что надо. Всем спасибо.
Особенно спасибо kpblc' y

[dextron3]

ALFMario, ну теперь хоть расскажи для чего тебе это понадобилось, желательно в примерах

[ALFMario]

2dextron3
Надо было умножить значение Rz на расстояние до оси проходящей через центр тяжести относительно оси Х и У

[gomer]

по моему, извращение все должно быть гораздо проще

[ALFMario]

2gomer Может быть и проще, но никто не помог