[bdfy]

Есть ряд данных в екселе.
-0.906 1.539 4.106 6.805 9.646
4.408 6.853 9.420 12.119 14.960
в верхнем ряду - нижняя граница, в нижнем ряду - верхняя граница диапазона. итого пять областей. надо их построить на одной оси. заштриховав. и границы подписав.
примерный пример во вложении (на три зоны правда). высота прямоугольников значения не играет.
в екселе построить ничего подобного нельзя вот думаю что использовать. Насколько сложно это сделать в автокаде ? лисп пример похожий может найдется ?

[Дима_]

Код:

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

(defun reg ( / sht obj lst n hi stlb sz size)
(setq n 0
stlb 5 ; Количество столбцов
size 0.1; размер штриховки
hi 5 ; высота области - параметры можно менять
sz 1; расстояния между размерами
)
(repeat (* stlb 2) (setq lst (append lst (list (getreal "Вводите данные построчно ")))))
(repeat stlb (command "_rectang" "_none" (list (nth n lst) 0) "_none" (list (nth (+ stlb n) lst) hi))
(command "_-hatch" "_p" "ansi31" size (* 45 (rem n 8)) "_s" "_last" "" "")
(entmod (subst (cons 62 (1+ (rem n 5))) (assoc 8 (entget (entlast))) (entget (entlast))))
(command "_dimlinear" "_none" (list (nth n lst) hi) "_none" (list (nth (+ stlb n) lst) hi) "_h"
	"_none" (list (nth n lst) (+ hi (* sz (1+ n)))))
(setq n (1+ n))
)
);end of defun

Береш данные из экселя в буфер обмена, в ком строке автокада пишешь "(reg) " и вставку.

[bdfy]

не работает

Command: _appload diplom1.lsp successfully loaded. Command: reg REGION Select objects: *Cancel* None found. Command: _pasteclip Specify insertion point:

и вставляется просто из буфера таблица екселевская
пробовал имя команды поменять и перегрузить лисп- вообще unknown команда. автокад 2006 лисп загружал как обычно..

[Дима_]

Вводить надо "(reg)" а не "reg", и когда буфер вставляешь проследи чтоб курсор в командной строке был.

[bdfy]

спасибо. здорово. что-то похожее. только штриховку как разную для всех (или хотя бы 4 рядом находящихся) разную выставить ? в идеале еще и разного цвета. иначе разобрать зоны сложно

[Дима_]

По просьбам трудящихся модернизировал в 2 посте.

[bdfy]

По просьбам трудящихся модернизировал в 2 посте.

спасибо конечно, но трудящиеся еще не счастливы
такую цветную штриховку невозможно различить. зон наложения не видно как минимум (т.е прозрачны зоны должны быть, просвечивать друг через друга) лучше всего было бы иметь станд. косую как в первом варианте, просто повернутую на 45 град. для каждой зоны.
эхъ, и крайние точки зон бы еще указать на рисунке...

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

Прозрачной заливки в AutoCAD, по-моему, не существует. Это не Corel.

[Дима_]

штриховки можешь сам поставить любые 3 строка кода
sht (list "ansi31" "ansi38" "brick" "cross" "flex"); варианты штриховок
то, что в кавычках они и есть - подстваь какие нравяться, а что значит крайние точки зон указать - это мне к сожалению не догадаться - пример давай.

[bdfy]

а что значит крайние точки зон указать - это мне к сожалению не догадаться - пример давай.

значения из ряда данных показать на схеме надо. чтоб помещались всегда повернуть придется. как на рисунке в общем примерно.

sht (list "ansi31" "ansi38" "brick" "cross" "flex"); варианты штриховок

лучшая штриховка это ведь просто сплошные линии.а это ansi31 просто с разными углами. всякая экзотики ввиде бриков или крестиков плохо различима визуально особенно при чернобелой печати

[Дима_]

Ух взялся так взялся, подправил в существующим посте - размеры ставит в текущем размерном стиле - подпровляей его (размерный стиль) на свое усмотрение.

[bdfy]

Ух взялся так взялся

спасибо, но к сожалению ошибься я. не тот скриншот закинул в сообщение проставлять надо границы зон.

меня вот еще что всегда интересовало... вызвать лисп из внешнего приложения (к примеру из скрипта Visual Basic ) можно ли теоретически ? т.е связь с екселем на каком уровне в автокаде ? как в визио ведь нельзя напрямую ячейки екселевской таблицы считать ?
или может можно из ком. строки (читай из шела через VB тот же) сразу запустить лисп с заданными параметрами ?

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

Все указывает на использование либо системных переменных USER*, либо реестра, либо класса VLAX.CLS (только его сейчас лично мне найти не удалось). Еще вариант - идти через CreateObject("VL") или что-то наподобие того (вроде на caduser.ru был код с этими кусками). Также можно посмотреть:
http://www.theswamp.org/index.php?topic=20519.0;all
http://autolisp-exchange.com/forum/showthread.php?t=63
http://mfgcommunity.autodesk.com/dis...geID%3D4824521
Хотя, если честно, лично я не очень понимаю необходимость подобного шага...

[Дима_]

Держи - надеюсь последний, по поводу VB - не берусь - я там ни в зуб ногой

Код:

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

(defun reg ( / sht obj lst n hi stlb size)
(setq n 0
stlb 5 ; Количество столбцов
size 0.1; размер штриховки
hi 5 ; высота области - параметры можно менять
)
(repeat (* stlb 2) (setq lst (append lst (list (getreal "Вводите данные построчно ")))))
(repeat stlb (command "_rectang" "_none" (list (nth n lst) 0) "_none" (list (nth (+ stlb n) lst) hi))
(command "_-hatch" "_p" "ansi31" size (* 45 (rem n 8)) "_s" "_last" "" "")
(entmod (subst (cons 62 (1+ (rem n 5))) (assoc 8 (entget (entlast))) (entget (entlast))))
(command "_dimordinate" "_none" (list (nth n lst) 0) "_x" "_none" (list (nth n lst) (- 0 (/ hi 5))))
(command "_dimordinate" "_none" (list (nth (+ n stlb) lst) 0) "_x" "_none" (list (nth (+ n stlb) lst) (- 0 (/ hi 5))))
(setq n (1+ n))
)
);end of defun

[bdfy]

Держи - надеюсь последний

ага. спасибо огромное фактически идеальное решение.

Хотя, если честно, лично я не очень понимаю необходимость подобного шага...

оно не только и не столько для этой задачи нужно. Есть другие. К примеру: есть схемка в автокаде. есть расчет в екселе. данные этого самого расчета хорошо бы нанести на схемку.
лучшее решение что придумал - связанные ячейки из екселя кидать на схему в визио. но при печати таким образом рамка (границы ячейки) вокруг вставленных чисел видна. не совсем эстетично. вот думаю какие теоретические решения еще есть...