Комментарии на: О создании стилей в dwg

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 03 Jul 2019 08:46:35 +0000

Добавил. Хотя, если честно, сейчас я создаю стили через NET - удобно, блин! И быстрее значительно.

От: матвей

матвей — Mon, 01 Jul 2019 19:13:12 +0000

здравствуйте.
в самой первой функции _lispru-style-create-textstyle указан параметр lst, но в самом теле функции есть только _lst. тут нет никакого противоречия?
в комментарии к функции сказано: "lst список дополнительных параметров вида: " . так какого вида этот список?

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Sun, 27 Jan 2013 13:34:31 +0000

Доброго.
Вариантов на самом деле хватает:
1. Можно после получения _res проверять его тип: если строка, то получаем указатель. vla- - значит, ничего дополнительно делать не надо.
2. Можно пойти немного более геморройным путем:
Коллекция текстовых стилей документа (если работать через ActiveX):
Допустим, что name у нас задан - "LispRuTextStyle":

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(defun test (/ name doc)
(setq name "LispRuTextStyle"
doc (vla-get-activedocument (vlax-get-acad-object))
) ;_ end of setq
(if (/= (type (setq res (vl-catch-all-apply
(function
(lambda ()
(vla-item (vla-get-textstyles doc) name)
) ;_ end of LAMBDA
) ;_ end of function
) ;_ end of VL-CATCH-ALL-APPLY
) ;_ end of setq
) ;_ end of type
) ;_ end of /=
(setq res (vla-add (vla-get-textstyles doc) name))
) ;_ end of if
res
) ;_ end of defun

В результате мы гарантированно получим указатель на созданный стиль. А потом уже его настраивать
---
P.S. Привел наиболее часто лично мною употребляемые варианты. Уверен, что можно "навертеть" еще три раза по столько же - было бы желание

От: ghostt

ghostt — Sat, 26 Jan 2013 09:22:40 +0000

Что-то через activeX не очень получается:
если стиль существует, то вместо vla-указателя в переменой res строка и, соответственно, при задании свойств (vla-put-fonftfile и др..) ругается . Подскажите, как можно получить vla-указатель на существующий неактивный стиль? Где почитать про доступ к объектам TextStyles?

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 17 Mar 2011 20:16:57 +0000

Готово!

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 17 Mar 2011 13:40:05 +0000

Ок, вечером попробую полностью расписать

От: Do$

Do$ — Thu, 17 Mar 2011 13:09:27 +0000

Не поставленная галочка "Я не робот" убила мое сообщение
В общем, меня отсутствие библиотечной функции не смутило, я просто заменил "(_kpblc-conv-ent-to-ename ent)" на "ent"
Если есть желание, возможность и есть о чем рассказать - почему бы и не сделать отдельный топик про аннотативность. Будет интересно почитать, ума набраться
Я не робот!

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 17 Mar 2011 09:56:29 +0000

Под служебной функцией подразумевается _kpblc-conv-ent-to-ename. Обычно я просто стараюсь все коды закидывать в lsp-файлы, доступные для прямого скачивания.
Подумал, что, может, будет иметь смысл сделать вообще отдельный топик по вопросу аннотативности... Есть смысл или нафиг?

От: Do$

Do$ — Thu, 17 Mar 2011 09:24:46 +0000

Служебную функцию? С дополнительными проверками - преобразованиями? Иль что имеется в виду?
"Все эти вещи" - это что? Что-то моя туго понимать...

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 17 Mar 2011 06:37:20 +0000

Ну, было дело. Пока не прижало, так и думал
P.S. Служебную функцию не оформлял. Если надо, можно все эти вещи закинуть в отдельный lsp для загрузки (если, конечно, надо ;)).