[NikolayKotov]

Очень хочется упростить себе жизнь

Задача - проставить величины ординат на графике, построенном в увеличенном масштабе.

Строю график по данным расчета из Экселя, объединяя 2 ячейки в одну по принципу - Ячейка А1 &","& Ячейка B1. Получается массив координат для построения графика.

Предварительно готовим схему для построения графика.

В автокаде переносим начало координат в начальную точку (у меня под фундаментом). Копируем в буфер обмена значения столбца массива данных из Экселя. При помощи комманды _PLINE или _SPLINE строится график.

А дальше наступает рутинная работа подписи данных на эпюре. Я копирую данные, полученные в Экселе и вставляю их в Автокад специальной вставкой, как Unicode Text, взрываю и поочереди каждое значение подставляю в узлы графика (муторно).

Хочется создать такую команду, которая бы понимала координату Х в нужном мне масштабе (в моем чертежике X/20), считая от ПСК и вписывала бы рядом с графиком. Грубо говоря - я тыкаю на точку, принадлежащую графику, а машина бы мне вписывала координату по Х в масштабе

Значения по оси Х нужны по модулю

Что-то подобное уже есть тут http://www.dwg.ru/f/showpost.php?p=177913&postcount=14

[Zouss]

что мешает использовать ординатные размеры с настроенным масштабным коэффициентом? (команда _dimordinate ставит размеры как раз от 0,0 текущей UCS, системная переменная DIMLFAC со значением скажем 0,05)
да и программы, строящие полилинии по координатам из таблицы exel (или сохраненным из exel текстовым файлам) найти вполне реально

[fixo]

Попробуй

Код:

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

(defun C:GTX (/ p txt xp)
(while (setq p (getpoint "\n   Указать точку графика (ENTER-для завершения): "))
  (setq xp (abs (/ (car p) 20.))
	txt (rtos xp 2 1)
	txt (vl-string-translate "." "," txt))
  (entmake (list (cons 0 "TEXT")
		   (cons 8 "Надписи")
		   (cons 62 256)
                   (cons 10 (trans p 1 0)) 
                   (cons 11 '(0. 0. 0.)) 
                   (cons 1 txt) 
                   (cons 7 "Romans") 
                   (cons 40 125.0)
		   (cons 71 0)
		   (cons 72 0)
                   (cons 73 0)) 
    )
)
  (princ)
  )

~'J'~

[NikolayKotov]

[quote=Fatty;178057]Попробуй

Все шикарно работает . Извиняюсь за нахальство, но можно ли, что бы я сам выбирал масштаб, т.к. не всегда график чертиться в этом масштабе

[fixo]

Попробуй такой вариант, может и не совсем
идеальный:

Код:

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

(defun C:GTX (/ p resp scl txt xp)
(initget 1 "1:1 1:2 1:10 1:20 1:50 1:100 1:200 1:500 1:1000"); <--добавь весь ряд здесь
(setq resp (getkword "\n  Выбрать масштаб: (1:1/1:2/1:10/1:20/1:50/1:100/1:200/1:500/1:1000) : "))
(setq scl (atof (substr resp 3)))
(while (setq p (getpoint "\n   Указать точку графика (ENTER-для завершения): "))
  (setq xp (abs (/ (car p) scl))
	txt (rtos xp 2 1)
	txt (vl-string-translate "." "," txt))
  (entmake (list (cons 0 "TEXT")
		   (cons 8 "Надписи")
		   (cons 62 256)
                   (cons 10 (trans p 1 0)) 
                   (cons 11 '(0. 0. 0.)) 
                   (cons 1 txt) 
                   (cons 7 "Romans") 
                   (cons 40 125.0)
		   (cons 71 0)
		   (cons 72 0)
                   (cons 73 0)) 
    )
)
  (princ)
  )

~'J'~

[fixo]

Забыл добавить, можешь прочитать
данные из Excel с помощью функции exd
См. здесь:

http://www.cadforyou.spb.ru/index.ph...functions_page

Как вариант:
копируешь в Экселе диапазон координат,
в Автокаде в командной строке вводишь: _pline,
вставляешь их в командную строку с помощью Paste,
жмешь Enter

~'J'~