[acidburst]

Здравствуйте. Похоже форум приобрел еще одного почемучку :-)

Простое условие

Код:

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

(if (not (tblobjname "_.style" "XXXX"))
  (command "_.-style" "XXXX" "romans.shx" "2.5" "1" "0" "N" "N" "N"))

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

[VVA]

Я думаю просто обычная невнимательность
Из справки

(tblobjname table-name symbol) Arguments table-name A string that identifies the symbol table to be searched. The argument is not case-sensitive. Valid table-name values are "LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT". ...

Среди символьных таблиц есть таблица "STYLE", но нет таблицы "_.style". Как говорится, найдите 2 отличия.
И если уж используешь универсальную нотацию в command, то используй ее доконца

Код:

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

(command "_.-style" "XXXX" "romans.shx" "2.5" "1" "0" "_N" "_N" "_N")

[acidburst]

Прошу прощения, просто в книжке В.Света было написано

"При любой степени русификации AutoCAD его ядро остается английским. Если перед английским именем комманды поставить знак подчеркивания, а затем точку (_.), то комманда будет извлечена из самого ядра и сработает правильно в любом случае."

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

Спасибо.

Может быть подскажете разницу в создании тесчтового стиля посрездством vla-add, entmakex, command? принципиальную разницу.

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

acidburst, ты немного путаешь команды и их опции, мне кажется...

[acidburst]

Не отрицаю и не исключаю.
3 дня с нуля читать про лисп в перерывах между работой, а потом с первого раза свести все вместе обычно не реально.
Поэтому и написал на форуме, ибо путаюсь в трех соснах.

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

Скажу честно - искать лениво, поэтому просто на сайте у себя опубликовал: http://autolisp.ru/2010/03/04/localization/
На форуме все это было, и не раз. И, по-моему, с более подробным разбором.

[acidburst]

Я вот тоже обчитавшись ставлю (_.), в том числе и почитав вашего ресурса.
Сейчас попробовал

Код:

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

(if (not (tblobjname "STYLE" "XXXX"))

изменить на

Код:

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

(if (not (tblobjname "_STYLE" "XXXX"))

и почему-то не работает, хотя это явно опция для комманды tblobjname
Кулик Алексей aka kpblc,зная о том что вы полубог в lispe, даже неудобно вас отвлекать такими пустяками.

[Do$]

Все эти точки-подчеркивания при написании LISP-кода применяются только в аргументах функций command и vl-cmdf.

[acidburst]

другого пока не умею, уж извините.

VVA, а что у вас за справка такая? Я нажимая контрол+ф1 получаю:

Returns the entity name of a specified symbol table entry (tblobjname table-name symbol) Arguments table-name A string that identifies the symbol table to be searched. The argument is not case-sensitive. symbol A string identifying the symbol to be searched for. Return Values The entity name of the symbol table entry, if found. The entity name returned by tblobjname can be used in entget and entmod operations. Examples The following command searches for the entity name of the block entry “ESC-01”: Command: (tblobjname "block" "ESC-01") <Entity name: 1dca368>

[Do$]

Ну почему же, я вижу, что уже освоены функции tblobjname, not, if

[acidburst]

not, if, также как + - = из курсов программирования на паскале.
tblobjname не освоен, потому как есть вопрос по испольхованию "STYLE"

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

tblobjname - не команда, а функция лиспа. И работает она с таблицами файла dwg (грубо говоря, можно считать, что dwg есть база данных). Имена таблиц стандартны и не локализуются.

[acidburst]

Извиняйте (. Впредь постараюсь побольше читать поменьше спрашивать.

[Александр Ривилис]

Сообщение от Do$ Все эти точки-подчеркивания при написании LISP-кода применяются только в аргументах функций command и vl-cmdf.

Еще (ssget) и (osnap)

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

Ну, про опции (ssget) можно ооочень долго распространяться

[VVA]

Сообщение от acidburst VVA, а что у вас за справка такая?

Названия символьных таблиц table-name даны в описании функции tblnext

[gomer]

Блн, сколько можно такой пофигизм наблюдать... Зачем ипользовать '(command ...)' А потом в лучшем случае подавлять вывод в кс с помощью 'cmdecho нельзя что ли etnmake использовать или, например, АктивИкс, на худой конец

Код:

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

(defun cdx-AddLayer (LayerName LayerColor LayerLType / LyrObj)
;;; Добавляет в текущий документ слой с заданным именем
;;; (cdx-AddLayer "Layer 4" 4 *cdl_lt_cen*)
;;; (cdx-AddLayer "Layer 6" 6 *cdl_lt_hid*)
;;; (cdx-AddLayer "Layer 42" 42 nil)
  (if (member LayerName (cdx-LayerNameList))
	(setq LyrObj (vla-Item (vla-get-Layers *cdl_actvdoc*) LayerName))
	(setq LyrObj (vla-Add  (vla-get-Layers *cdl_actvdoc*) LayerName))
  )
  (vla-put-Color LyrObj LayerColor)
  (if
    (and
      LayerLType
      (or
        (member LayerLType (cdx-LineTypeNameList))
        (not (vl-catch-all-apply 'vla-Load (list (vla-get-LineTypes *cdl_actvdoc*) LayerLType (findfile *cdl_lt_file*))))
      )
    )
    (vla-put-LineType LyrObj LayerLType)
  )
  LyrObj
)

думаю смысл должен быть понятен
зы И вообще есть такие, кто справку хотя б на 80, не, на 75% прочитал...

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

gomer, а ты читал, что надо создавать текстовый стиль, а не слой?
И, если разбирать твой код - то там тоже не все гладко. Слой будет печататься или нет? А если печататься, то с каким стилем? А слой будет блокироваться или нет? А как насчет заморозки? И заморозки в новых ВЭ? А что будет, если в файле не загружен тип линии? А можно ли обработать нетекущий файл?
Если ты публикуешь кусок своей библиотеки, то либо предупреждай о неработоспособности кода, либо предоставляй все полностью. В том числе и назначения глобальных переменных.

[Александр Ривилис]

Сообщение от gomer нельзя что ли etnmake использовать или, например, АктивИкс, на худой конец

Ты тоже через три дня после начала изучения AutoLisp начал пользоваться (entmake) и ActiveX? Ну-ну...

[gomer]

-> kpblc:
это даже не лисп, а алгоритм, но суть та же (кстати исходный алгоритм с tblobjname часто применяется и для слоев):
Если нет нобходимого стиля или слоя, он создается автоматически с минимальными настройками, по возможности подгружаются шрифт или тип линии соответственно.
По поводу заморозки слоев : зачем слой создавать и сразу его замораживать
->Александр Ривилис:
К сожалению нет, каждую функцию по-отдельности "обсасывал", но потом оказалось, что их не так уж много...