[Apelsinov]

Решил я написать программку для простановки выносок на трубы.
Не первая попытка.
Поискал по форумам о выносках.
Нашел лисп-произведение тов.Смирнова для этого дела. - это примерно то что у меня и получается всегда.
(кстати тов.Смирнову просьба - нельзя ли заиметь исходники?)

А именно - блок с атрибутами к которому тянется выносная линия.

Минус таких решений:
Выноска не является единым объектом.
Править ее приходится STRETCH, перенося после выносную линию.

-------------------------------------------------------

Мне очень нравятся выноски что есть в СПДС - но там недостаток в возможности дальнейшей автоматизации. т.к. весь диалог в окне, а сам объект выноски не поддается созданию средствами неСПДС.

Хотя кое что у меня с ними получилось, но коряво, очень.
--------------------------------------------------------

Так вот вопрос к обществу:
Кто и как делает выноски. Какими инструментами пользуется. Какие есть для этого программы?
(про СПДС не надо - это понятно)
Может у кого есть наработки?

[vk]

Сообщение от Apelsinov а исходники можно заиметь? конечно, в первую очередь интересует лисп.

Свыше тысячи строк кода, местами кривовато (в том числе и алгоритм), так что когда последний раз делал изменения, уже сам с трудом понимал что написал когда то Ну, если еще не пропало желание разобраться, могу выложить :wink:

[ZZZ]

Apelsinov
Я привел код програмы как пример и принцип использования стандартных функций акада. Моя прога (приведенная выше)настраивает вид стандартных выносок под мои потребности. Сама соль заключается в том что тебе нужно, наврядли моя прога (в полном объёме) тебе пригодится, всётаки специфика есть во всём. В принципе даже под стандартный лидер можно сделать любую свою оболочку (настройки и даже некоторые вычесления), при этом не придумавать свой объект или групировки и т.д.

[Tech]

Может и не совсем по теме, есть интересная примочка "POS", Вл. Колосова (http://dwg.ru/dwl/74), для простановки позиций в виде блока с возможностью редактирования без использования редактора блоков.

[Apelsinov]

vk
Нет, желание не исчезло.
Писать, конечно, буду свое. Вариант leader+block понравился больше всего. Автоматизация самих значений выносок по типу как у Лентяя (хотя использование расширенных данных как-то настораживает, потому как не видно их невооруженным глазом, нужны инструменты для задания и чтения...не знаю...но попробую).
Часть кода уже есть, просто не хочется изобретать велосипедов.
Пришлете - буду благодарен.

[Никита В.]

Посмотрел я на вас уманов - впечатляет!
У меня все проще... СПДС мне не понравился по обьективным причинам, поетому я решил создат универсальную выноску в виде динамического блока!!! :twisted:
Приложенный файлик все иллюстрирует!!!
Сразу предупреждаю я его еще эдитить буду...
Выноска разрабатывалась применительно к строительству...
Кроме самой выноски там много чего еще интересного :evil:
[ATTACH]1131997708.dwg[/ATTACH]

[Лентяй]

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

Гы-ы-ы, я всегда знал, что этим кончится! Потому и наваял другую прогу, чтобы изменять расширенные данные примитивов в соотвествии с измененным текстом выноски и, соот-но, наоборот. Держите, уж, ибо аз есмь добр днесь.

Код:

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

(defun getxdt (obj / vls xdt)
  (vla-GetXData obj "INFO" 'xtp 'xdv)
  (setq vls (mapcar '(lambda (x) (vlax-variant-value x))
		    (cdr (vlax-safearray->list xdv))));setq
  (strcat (car vls) "-" (cadr vls) "(" (caddr vls) ")")
);defun
;
(defun txt-updt (txt0 / tpt ht atp mtxt)
  (setq tpt (vla-get-InsertionPoint txt0)
	ht (vla-get-Height txt0)
	atp (vla-get-AttachmentPoint txt0)
	csp (vlax-invoke adoc "ObjectIDtoObject" (vla-get-OwnerID txt0)))
  (vla-delete txt0) (vlax-release-object txt0)
  (while clst (setq tx (strcat tx (cdr (car clst)) "\\P")
		    clst (cdr clst)));while
  (setq mtxt (vla-addMtext csp tpt 0 (vl-string-right-trim "\\P" tx)))
  (vla-put-Height mtxt ht) (vla-put-AttachmentPoint mtxt atp)
);end
;
(defun xdt-updt (txt / cz serv mat obj vls xtp xdv tbrp)
  (while clst 
    (setq obj (vlax-invoke adoc "ObjectIDtoObject" (cdar clst)))
    (vla-GetXData obj "INFO" 'xtp 'xdv)
    (setq tln (vl-string-right-trim ")"	(substr txt 1 (vl-string-search "\\" txt)))
	  sz (substr tln 1 (vl-string-search "-" tln))
	  serv (vl-string-left-trim (strcat sz "-") (substr tln 1 (vl-string-search "(" tln)))
	  mat (vl-string-left-trim (strcat sz "-" serv "(") tln)
	  vls (mapcar '(lambda (x) (vlax-make-variant x vlax-vbString))
		      (list "INFO" sz serv mat))
	  xdv (vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 3)) vls));setq
    (vla-SetXData obj xtp xdv)
    (setq tbrp (vl-string-search "\\" txt))
    (setq txt (if tbrp (substr txt (+ 3 tbrp)))
	  clst (cdr clst));setq
  );while
);defun
;
(defun C:COTUPD ( / br ass tx txt hor kw sp sx sy id tln clst)
  (setq	adoc (vla-get-ActiveDocument (vlax-get-acad-object))
	sm (getvar "SNAPMODE") om (getvar "ORTHOMODE")
	tx "");setq
  (prompt "\n Select Callout Bracket: ")
  (if (null FASTSEL) (load "FASTSEL")) (fastsel)
  (setq ass (vla-get-ActiveSelectionSet adoc)
	br (vla-item ass 0)
	hor (if (vl-member-if '(lambda (x) (= (vla-get-rotation br) x)) '(0 pi)) 0 1));setq
  (setq	txt0 (vlax-ename->vla-object (car (entsel "\n Select Callout: ")))
	txt (vla-get-TextString txt0));setq
  (initget "Data Text")
  (setq kw (getkword "\n Update [Data/Text]: ? <Data>"))
  (if (null kw) (setq kw "Data"))
  (vlax-for ln ass
    (if (or (= (vla-get-ObjectName ln) "AcDbLine")
	    (= (vla-get-ObjectName ln) "AcDbPolyline"))
      (progn (setq xp (vlax-invoke br "IntersectWith" ln acExtendNone)
		   sx (car xp) sy (cadr xp))
	(mapcar '(lambda (x y) (if (= kw x)
		 (setq id (vla-get-ObjectID ln)
		       clst (cond ((= hor 1) (cons (cons sy y) clst))
				  ((= hor 0) (cons (cons sx y) clst))))));lambda
	    '("Data" "Text") (list id (getxdt ln)));mapcar
  )));vlax-for
  (setq clst (vl-sort clst '(lambda (e1 e2) (< (car e1) (car e2)))))
  (if (= kw "Data") (xdt-updt txt) (txt-updt txt0))
);end

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

[kabzzz]

Закинул предыдущий код в файл getxdt.lsp, перед всеми defun поставил c:, сделал кнопку где написал ^C^C^P(if (not C:getxdt) (load "getxdt")) getxdt

Выбираю примитив (отрезок) давлю кнопку, в командной строке пишется GETXDT ; error: too few arguments.

И вобще, что есть расширенные свойства и как их редактировать?

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

Сообщение от kabzzz Закинул код в файл getxdt.lsp, перед всеми вуагт поставил c:, сделал кнопку где написал ^C^C^P(if (not C:getxdt) (load "getxdt")) getxdt Выбираю примитив (отрезок) давлю кнопку, в командной строке пишется GETXDT ; error: too few arguments. И вобще, что есть расширенные свойства и как их редактировать?

В зачем ставить c: перед defun или вообще менять код? Он и так должен работать.

[kabzzz]

просто я не знаю как активировать лисп если не стоит c:
Если можно, поделитесь, что в кнопку писать?

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

^C^C^P(if (not (c:COTUPD)) (load "getxdt.lsp"));cotupd;
ЯТД, так.

[getr]

Так вот вопрос к обществу:
Кто и как делает выноски. Какими инструментами пользуется. Какие есть для этого программы?
(про СПДС не надо - это понятно)
Может у кого есть наработки?
Я пользуюсь прогой Александра Косенко (на основе Г.Поспелова).
Хотя там есть следующие глюки:
1-при выборе флага S=...* и в выпадающем списке "Ничего" отрисовки
выноски не происходит;
2-при выборе флага "Введите текст" и также "Ничего" происходит отрисовка выноски S=3*.
А так на мой взгляд просто и удобно.
Вот этот лисп:
***********************************************************************
; stroka.lsp v.1.3 *
; & stroka.dcl *
; Copyright by Sash (Александр Косенко) *
; Для AutoCAD r.15 *
; 03 ноября 2002 г *
; E-Mail: kosap@yanex.ru *
;***********************************************************************
; На базе программы stroka.lsp
; Модифицировано:
1. шрифт 7 по умолчанию.
; 2. Убрал из s=4мм* слово мм, вроде как не по ЕСКД.
; 3. По умолчанию выберается первый вариант.
; 4. Введены значения по умолчанию - с ними удобнее.
; 5. Пофиксил глюк связанный с простановкой стрелки после ее снятия -
; снимайте теперь на здоровье хоть 2 раза - хоть 20 :)
; 6. Добавил выбор шрифта из раскрывающегося списка - никаких левых шрифтов.
; Либо редактируйте список shrift, а лучше используйте шрифт gosta_w.shx.
; Дорос до v1.1.
; 7. Заметил баг при задании координаты напрвления совпадающей со второй точкой.
; не обрабатывается данное исключение. Взял и исправил.
; 8. v1.2. Избавился от указания направления. Позиции проставляются на слое
; Dim его вы можете заменить на любой используемый вами для этих целей
; 9. Работают привязки, причем корректно.
;10. Добавил возможность выбора начала выноски. v.1.3.
;
;***********************************************************************
; stroka.lsp *
; & stroka.dcl *
; Copyright by PG (Genchik Pospelov) *
; Для AutoCAD r.14-15 *
; 17.июня 1999 г *
; E-Mail: gepos@mail.ru *
;***********************************************************************

;;;-------------> HELP <------------------------------------------------
(defun ab_prog (ab_progr /)

(if (not (new_dialog "ab_text" DCL_ID)) (exit))
(start_list "ab_progr")
(mapcar 'add_list ab_progr)
(end_list)

(action_tile "accept" "(done_dialog)")
(start_dialog)
)

;;;-------------> WORKING FUNCTION <------------------------------------
(defun w_str ( n stxt sz_t / a_txt p_txt pt1 pt2 pt3 sze)

(cond ((or (= n 1) (= n 2)) (setq a_txt stxt))
((or (= n 3) (= n 4)) (setq a_txt (strcat "S=" stxt "*")))
)
(print n)
(setq pt1 (getpoint "\n Начальная точка ")
pt2 (getpoint pt1 "\n Вторая точка ")
;;; pt3 (getpoint pt2 "\n Направление ")
sze (*(strlen a_txt) sz_t 0.7)
)
(if (= strelka 0) (command "_.DONUT" 0 1 pt1 ""))
(if (>= (car pt2)(car pt1))
(setq pt3 (list (+(car pt2) sze 2.0)(cadr pt2))
p_txt(list (+(car pt2) 1.8)(+(cadr pt2) 1.5))
)
)
(if (< (car pt3)(car pt2))
(setq pt3 (list (-(car pt2) sze 2.0)(cadr pt2))
p_txt(list (+(car pt3) 1.8)(+(cadr pt2) 1.0))
)
)
(if (or(= n 1)(= n 3)) (COMMAND "_.PLINE" pt1 pt2 pt3 (command))
)
(if (or(= n 2)(= n 4)) (progn
(setq sze (polar pt1 (angle pt1 pt2) 3.0))
(COMMAND "_.PLINE" pt1 "w" 0.0 1.5 sze "w" 0.0 0.0 pt2 pt3 (command))
)
)
(COMMAND "_.TEXT" p_txt sz_t 0 a_txt)
)
;;;-------------> MAIN FUNCTION <---------------------------------------
(defun c:stroka2(/ $valueы s1txt s2txt
a_sel sz_txt help_pr
info_pr old_snap strelka
shrift )

(setq old_snap (getvar "osmode")
clar (getvar "CLAYER")
oscor (getvar "OSNAPCOORD")
SshNeedLay "Надписи" ; Вместо "Надписи" введите нужный Вам слой
)

(if(null(tblsearch "LAYER" SshNeedLay))(command"_LAYER" "_N" SshNeedLay "c" "Red" SshNeedLay "LW" "0.25" SshNeedLay ""))

(setvar "osmode" 0)

(setvar "cmdecho" 0)
(setvar "CLAYER" SshNeedLay)
(setvar "OSNAPCOORD" 1)

(setq help_pr (list
" - Программа построения линии выноски - " " "
" Ремейк программы Геннадия Е. Поспелова stroka" " "
" Введите текст в нужную графу,"
" выберете требуемую высоту шрифта и "
" начало выноски. " " "
)
info_pr (list
" - Программа построения линии выноски - "
" Ремейк программы Геннадия Е. Поспелова stroka"
" "
" Программа предназначена для свободного распространения "
" в конструкторской и технологической среде. "
" Авторы снимают с себя ответственность за использование "
" программы. " " "
" Автор - конструктор СКБ \"Автоагрегат\" Косенко Александр "
" 03 ноября 2002г."
" Copyright © \"Sash Ltd\" "
" mailto:kosap@rambler.ru "
)
)

;; open window functions
(setq DCL_ID (load_dialog "stroka.dcl"))
(if (not (new_dialog "stxt" dcl_id)) (exit))
;; Set up some defaults.
(setq s1txt "1"
s2txt "3"
strelka "0"
sz_txt (rtos 7 2 2)
a_sel 1
shrift '("7" "1.8" "2.5" "3.5" "5" "10" "14" "20" "28" "40")
nachalo '("Точку" "Стрелку" "Ничего" "")
)
(set_tile "s1txt" s1txt)
(set_tile "s2txt" s2txt)
(set_tile "sz_txt" sz_txt)
(set_tile "on_s1txt" "1")
(set_tile "on_s2txt" "0")

(start_list "szpop_txt")
(mapcar 'add_list shrift)
(end_list)

(mode_tile "s1txt" 2)
(mode_tile "s2txt" 1)
(start_list "strelka")
(mapcar 'add_list nachalo)
(end_list)


(action_tile "s1txt" "(setq s1txt $value)")
(action_tile "s2txt" "(setq s2txt $value)")
(action_tile "szpop_txt" "(setq sz_txt (nth (atoi $value) shrift))")
(action_tile "strelka" "(setq strelka (nth (atoi $value) nachalo))")


(action_tile "on_s1txt"
"(progn (mode_tile \"s1txt\" 0)(mode_tile \"s1txt\" 2)
(mode_tile \"s2txt\" 1)(setq a_sel 1))")
(action_tile "on_s2txt"
"(progn (mode_tile \"s2txt\" 0)(mode_tile \"s2txt\" 2)
(mode_tile \"s1txt\" 1)(setq a_sel 3))")

(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "help" "(ab_prog help_pr)")
(action_tile "info" "(ab_prog info_pr)")
(setq what_next (start_dialog)
sz_txt (atof sz_txt)
)
(cond ((= strelka "0") (setq strelka 0))
((= strelka "Стрелку") (setq strelka 1))
((= strelka "Ничего") (setq strelka 2))
((= strelka "") (setq strelka 2))
) ;;;;end cond

(setq a_sel (+ a_sel strelka)
)

; При правильном вводе и нажатии кнопки "Ok" - вызов функции
(if (= 1 what_next)
(cond ((<= a_sel 2)(w_str a_sel s1txt sz_txt ))
((> a_sel 2) (w_str a_sel s2txt sz_txt ))
)
)
(unload_dialog dcl_id) ;; unload


(setvar "cmdecho" 1) ;; end-return operation
(setvar "osmode" old_snap)
(setvar "CLAYER" clar)
(setvar "OSNAPCOORD" oscor)


(princ)
)
;;;---------> THE END <------------------------------------------[/color][/size=2]
А вот файл stroka.dcl:

[size=2][color=blue]//--------------------------------------------------------------
//--------------------------------------------------------------
stxt : dialog {
label = "Строка текста";
: row {
: column {
: radio_button {
label = "Введите текст: ";
fixed_width=true;
key = "on_s1txt";
}
: radio_button {
label ="S= ... *";
fixed_width=true;
key = "on_s2txt";
}
}
: column {
: edit_box {
key = "s1txt";
fixed_width=true;
edit_width = 20;
}
: edit_box {
key = "s2txt";
fixed_width=true;
edit_width = 4;
}
}
}
spacer_1;
: popup_list {
label = "Высота текста: ";
key = "szpop_txt";
list="";
edit_width = 5;
fixed_width=true;
}
// : edit_box {
// label = "Высота текста: ";
// mnemonic = "В";
// key = "sz_txt";
// fixed_width=true;
// edit_width = 20;
// }

spacer_1;
// : toggle {
// label = "Стрелка в начале";
// key = "strelka";
// }
: popup_list {
label = "Рисовать в начале: ";
key = "strelka";
}


ok_cancel_help_info;
}
//***************************************************************
//------------------------------------------------------------------------
ab_text : dialog {
label = "О программе";
: list_box {
key = "ab_progr";
height = true;//16;
width = 58;
}
ok_only;
}

//-----------> THE END <--------------------------------------------------
Если кто-то доработает прогу,-буду очень рад,а то писал Косенко а ответа не дождался.

[Apelsinov]

забыл я про эту тему...а зря, программку то я написал, и активно ею пользуюсь, да и не только я.

воть:

Код:

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

(apel-com '(APEL-DRAW-LEADER_2STR_IN
	    (list "Ст."	"%%c" "i=0.0" "К1" "К2"	"K3" "К4" "Пр."	"ВР-"
	     "Опуск")
	   )
)

[getr]

-->Apelsinov
А как запустить Вашу программу?

[Apelsinov]

Сообщение от getr -->Apelsinov А как запустить Вашу программу?

Очень просто:
1. Выкачиваете файл по указанному адресу (в моей форумной подписи) http://autolisp.ru/dwlsp/16 с пользовательскими функциями.

2. Загружаете его в акад: _.appload или лисповое (load "имя файла")

3. Запускаете приведенную функцию.
Запустить ее можно, поместив это выражение на кнопку или toolpalettes (последнее - самое удобное, по-моему). Можно завернуть его в собственную функцию для появления соотв. команды в акаде, например так:

Код:

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

(defun c:test ()
  [поместить тут указанное  выражение]
)

Загрузка вышеприведенного выражения приведет к появлению в акаде команды test.

[pyatifan]

Для меня вопрос решён:
KitoxToolset (лежит в Download) без рекламы, из опыта

[Aragorn]

Тем не менее, пока лучше выносок, чем в СПДСе не нашел

[Natashechka]

такой вопрос, я скачала cd-setup.rar, успешно извлекла файлы, делаю все по инструкции, загружаю Cd-setup.vlx мне пишет успешно загружено, я нажимаю закрыть и в командной строке написано "приложений "кадет" не найдено", далее выгружаю autocad и заново загружаю, далее никаких менюшек дополнительных не появилось, а как работать то?

[AIF]

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

[Bull]

что за команда-то? Какой КАД? (rus|eng)

[AIF]

Акад 2006, 2008. Имена слоев проставляются, выноски - нет. и хорошо бы чтобы программа запрашивала масштабный коэффициент.