[VAV]

Прошу прощения за столь примитивную просьбу!!
Помогите сделать лисп, вызывающий команду ПРЯМАЯ, так чтобы она была была уже ориентирована вертикально/горизонтально и чтобы она вычерчивалась в конкретном слое (например ПРЯМАЯ), определенной толщины (например 0,09) и определенным цветом (например синяя). Если со слоем слишком заморочно, то хотя бы чтобы цвет и толщину имела уже заданную лиспом. Благодарю за помощь

[Boxa]

Режим орто + палитра инструментов. Лисп тут не нужен.

[Profan]

А про какую программу идет речь? В AutoCAD'е нет команды "ПРЯМАЯ".

[skkkk]

Boxa, не все любят палитры, а у иных наоборот - палитры заняты очень плотно уже чем-то другим, например, библиотекой блоков, и добавлять туда еще что-то не хочется... Плюс режим ОРТО нужно отдельно включать/выключать, а это лишние действия.
VAV, лисп тут будет очень простым, нужно только понять, одну ли прямую чертить в рамках одного вызова или как в штатной программе - пока не завершишь правой кнопкой или Enter'ом? И как выбирать горизонтальность/вертикальность? Через опцию, как в штатной команде или указанием второй точки, как в режиме ОРТО? Или на вертикальную одна кнопка, на горизонтальную - другая?
И тут еще есть момент: нужно ли цвет и вес задавать жестко или все же ПоСлою, а настройки слоя установить уже "синий" и "0.09"? И всегда ли слой уже есть или все же надо создать программно, если его еще нет в чертеже? А если есть, но с другими настройками? Перенастроить?
Вроде такая простая задачка, а вон сколько вопросов создает, и то - наверняка что-то я да не учел еще.

----- добавлено через ~5 мин. -----
Profan, как нет? У меня в 2011-м есть. Так и забиваю в комстроке ПРЯМАЯ, а по-английски - _XLINE

[Vladimir_Sergeevich]

а как насчет того что бы сделать пару новых кнопок и макросы ни них типа такого:
_-layer;у;<layer_name>;;_xline;в;
_-layer;у;<layer_name>;;_xline;г;
з.ы. кад русский, поэтому опции локализованные.
з.з.ы. имхо, толщина и цвет должны задаваться слоем

[VAV]

Сообщение от Boxa Режим орто + палитра инструментов. Лисп тут не нужен.

Спасибо, не подходит. Слишком заморочно.

skkkk, Хотелось бы чтобы, как в шатной программе: пока не завершишь энтером; чтобы на горизонтальные линии была одна команда, на вертикальные - другая. По поводу слоев/толщин/цветов: в принципе без разницы, как будет проще тому, кто поможет написать этот лисп. Для меня главное чтобы цвет был синим и толщина, близкая к нулю. А если что, цвет и толщину я вручную и сам смогу подправить в лиспе при необходимости. Как-то так )
skkkk, Vladimir_Sergeevich, спасибо за макросы, но я стараюсь минимально пользоваться кнопками. Все необходимое выношу на клавиатуру

[skkkk]

VAV, помогаю создать лисп:

Код:

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

 (vl-load-com)
(defun C:HOR-XLINE () (draw-xline "_H"))
(defun C:VERT-XLINE () (draw-xline "_V"))
(defun draw-xline
		  (dir		/	     *error*	  adoc
		   oldCLAYER	oldCECOLOR   oldCELTYPE	  oldCELWEIGHT
		   layername	col	     vla-obj-lay
		  )
  (defun *error* (msg)
    (if	oldCLAYER
      (setvar "CLAYER" oldCLAYER)
    ) ;_ end of if
    (if	oldCECOLOR
      (setvar "CECOLOR" oldCECOLOR)
    ) ;_ end of if
    (if	oldCELTYPE
      (setvar "CELTYPE" oldCELTYPE)
    ) ;_ end of if
    (if	oldCELWEIGHT
      (setvar "CELWEIGHT" oldCELWEIGHT)
    ) ;_ end of if
    (princ msg)
    (princ)
  ) ;_ end of defun *error*
  (setq	adoc	 (vla-get-ActiveDocument (vlax-get-acad-object))
	oldCLAYER    (getvar "CLAYER")
	oldCECOLOR   (getvar "CECOLOR")
	oldCELTYPE   (getvar "CELTYPE")
	oldCELWEIGHT (getvar "CELWEIGHT")
	layername    "ПРЯМАЯ"
  ) ;_ end of setq
  (setvar "CECOLOR" "BYLAYER")
  (setvar "CELTYPE" "BYLAYER")
  (setvar "CELWEIGHT" -1)
  (if (null (tblsearch "LAYER" layername))
    (progn
      (vla-Add (vla-get-Layers adoc) layername)
      (setq col		(vla-GetInterfaceObject
			  (vlax-get-acad-object)
			  (strcat "autocad.accmcolor."
				  (vl-princ-to-string (atoi (getvar "acadver")))
			  ) ;_ end of strcat
			) ;_ end of vla-GetInterfaceObject
	    vla-obj-lay	(vla-Item (vla-get-Layers adoc) layername)

      ) ;_ end of setq
      (vla-put-ColorIndex col 5) ; номер цвета
      (vla-put-TrueColor vla-obj-lay col)
      (vla-put-LineWeight vla-obj-lay 9) ; вес линий
    ) ;_ end of progn
  ) ;_ end of if
  (setvar "CLAYER" layername)
  (vl-cmdf "_XLINE" dir)
  (while (> (getvar "CMDACTIVE") 0) (vl-cmdf pause))


  (*error* "")
  (princ)
) ;_ end of defun
(princ
  "\nЗагружены пользовательские команды HOR-XLINE и VERT-XLINE"
) ;_ end of princ
(princ)

Подразумевается, что перед запуском лиспа ВСЁ уже сделано ПРАВИЛЬНО, а именно: слой "ПРЯМАЯ" в чертеже существует, ему назначен цвет - синий, тип линий - нужный, вес линий - 0.09. Если слоя не существует, он создастся с настройками в соответствии с техзаданием. В комментариях в коде указано, где эти настройки поменять.

Текущие (активные до запуска лиспа) цвет, тип и вес могут быть любыми, но мы с Владимиром Сергеевичем и не только рекомендуем использовать значения "ПоСлою", кроме особых, обоснованных случаев.

[VAV]

skkkk, огромное спасибо за помощь, все работает. А сложно будет сделать, чтобы слой с заданными параметрами создавался автоматически?

[Profan]

Есть команда "ПРЯМАЯ", забыл совсем, это конструкционная линия...

[skkkk]

Сообщение от VAV чтобы слой с заданными параметрами создавался автоматически?

Обновил в #7.

[Boxa]

Offtop:
XLinePP
Внутри две команды : AddXLineV и AddXLineH
Толщина и цвет линии вынесены в файл настроек.
Скомпиленный вариант для 2014 акада.

[VAV]

skkkk, Boxa, благодарю за помощь!!!!!!!

[skkkk]

Offtop: Ха-ха-ха, Boxa-скромняга, так застенчиво намекал на штатные возможности, а у самого вон какой туз в рукаве
К сожалению попробовать не могу - КАД только 2011-й
А оффтоп - это потому что в шапке лисп?

[Boxa]

Offtop: Ну да, ведь тема про лисп.
Не было у меня туза, собрал по быстренькому из готовых шаблонов. Никогда раньше с xline не работал и в справке ничего нет. Любопытство победило.

[skkkk]

Boxa, похоже, я забыл отметить, что система у меня х64...

Не удалось загрузить сборку. Сведения об ошибке:
System.BadImageFormatException: Невозможно загрузить файл или сборку
"file:///C:\Users\Admin\Desktop\xline_pp_2011.dll" или один из зависимых от них
компонентов. Сборка создана в более поздней версии среды выполнения чем
текущая, и не может быть загружена.
Имя файла: "file:///C:\Users\Admin\Desktop\xline_pp_2011.dll"
в System.Reflection.Assembly._nLoad(AssemblyName fileName, String codeBase,
Evidence assemblySecurity, Assembly locationHint, StackCrawlMark& stackMark,
Boolean throwOnFileNotFound, Boolean forIntrospection)
в System.Reflection.Assembly.InternalLoad(AssemblyName assemblyRef, Evidence
assemblySecurity, StackCrawlMark& stackMark, Boolean forIntrospection)
в System.Reflection.Assembly.LoadFrom(String assemblyFile)
в Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
в loadmgd()
Предупреждение: регистрация привязки сборок выключена.
Чтобы включить регистрацию ошибок привязки сборок, установите значение
параметра реестра [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) в 1.
Примечание. Регистрация ошибок привязки сборок может привести к некоторому
снижению производительности.
Чтобы отключить эту функцию, удалите параметр реестра
[HKLM\Software\Microsoft\Fusion!EnableLog].
Команда: AddXLineV
Неизвестная команда "ADDXLINEV". Для вызова справки нажмите F1.

[Boxa]

Offtop: Да, мой косяк. Сборки компилил с. Net 4.5, а для 2011 нужен 3.5
Завтра исправлю эту оплошность.

Обновил архив в 14 сообщении.

[Boxa]

Offtop: Продолжил некоторый эксперимент.

Переопределил имена команд и добавил еще парочку
Простая вставка : XLineV и XLineH
Вставка с предпросмотром: XLineJigV и XLineJigH

Код открытый, лежит тут: XLinePP.
Скомпиленный вариант во вложении.

ЗЫ.
Т.к. я не программер, то критику к коду хотелось бы услышать.