[mmax]

Гопода, я начал этим заниматься совсем недавно, буквально в этом месяце. И у меня уже есть грандиозные планы например: чтобы автокад рисовал какие нибудь стандартные детали сам (болты, гайки шурупы итд)

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

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

Вобщем я хотел бы все свои вопросы помещать в этот топик и надеюсь на поддержку знающих людей.

Всем заранее благодарен.

[Shoorup]

Сообщение от VVA Пока лентяй будет наматывать километры, двигая мышку с текущей позиции курсора до кнопки и обрато, не лучше ли ему кликнуть правой кнопрой мыши и выбрать "Отменить выбор". Побереги экран для более полезных кнопок.

С этим я вкурсе - но это 2 щелчка мышью

Zouss, спасибо за подсказку чего-то тормознул и не поискал хорошо. Хотя искал...

[Shoorup]

Еще проблемка-вопросик: Нужно нарисовать точку из штриховки.
Делаю я ее так:

Код:

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

^C^C_circle;\_d;1.25;_-bhatch;_s;_l;;_p;SOLID;;

но мне нужно удалить окружность которая была создана для штриховки.
Как это проделать?

[Zouss]

Shoorup, чем вам не нравится команда Donut?

Код:

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

^C^C_Donut;0;1.25

если же программным путем, то сразу после создания окружности сохраняем ее имя

Код:

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

(setq cname (entlast))

и после выполнения всех необходимых операций удаляем ее

Код:

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

(entdel cname)

[Shoorup]

Zouss, Donut в процессе эксплуатации не оправдал себя. 1.я причина: при растягивании некоторых объектов иногда захватывается точка и получается квадратное кольцо - что ни есть гуд. 2.я причина: при использовании привязки иногда привязывается к маркеру не к тому которому надо. У Donutа их 4 и расположены они не так как хотелось бы, а у штриховки один маркер и точно по центру - что очень удобно.

[VVA]

Пробуй так

Код:

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

 
^C^C_circle;\_d;1.25;(setq en (entlast));_-bhatch;_s;_l;;_p;SOLID;;_erase;!en;;

[Shoorup]

Zouss, Спасибо еще раз
VVA, сделал так:

Код:

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

^C^C_circle;\_d;1.25;(setq c125 (entlast));_-bhatch;_s;_l;;_p;SOLID;;(entdel c125);

у меня 3 кнопки (1, 1.25, 1.5)

[VVA]

Еще вариант без лиспа

Код:

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

^C^C_expert;5;_circle;\_d;1.25;_-group;_c;tmp;;_l;;_-bhatch;_s;_l;;_p;SOLID;;_erase;_g;tmp;;

[Shoorup]

VVA, изящно!
Не понял только как работает и для чего переменная _expert - 5?

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

А, может, как-нибудь так?

Код:

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

(defun c:myhatch (/ pt adoc ent hatch locked)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if (= (type (setq pt
                      (vl-catch-all-apply
                        '(lambda ()
                           (trans (getpoint "\nУкажите центр <Отвали, без тебя тошно> : ")
                                  1
                                  0
                                  ) ;_ end of trans
                           ) ;_ end of lambda
                        ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'list
         ) ;_ end of =
    (progn
      (setq locked (vla-get-lock (vla-get-activelayer adoc)))
      (vla-put-lock (vla-get-activelayer adoc) :vlax-false)
      (setq ent (vla-addcircle
                  (vla-get-modelspace adoc)
                  (vlax-3d-point pt)
                  1.25
                  ) ;_ end of vla-AddCircle
            ) ;_ end of setq
      (setq hatch (vla-addhatch
                    (vla-get-modelspace adoc)
                    achatchpatterntypepredefined
                    "SOLID"
                    :vlax-false
                    ) ;_ end of vla-AddHatch
            ) ;_ end of setq
      (vla-appendouterloop
        hatch
        (vlax-make-variant
          (vlax-safearray-fill
            (vlax-make-safearray
              vlax-vbobject
              '(0 . 0)
              ) ;_ end of vlax-make-safearray
            (list ent)
            ) ;_ end of vlax-safearray-fill
          ) ;_ end of vlax-make-variant
        ) ;_ end of vla-AppendOuterLoop
      (vla-evaluate hatch)
      (vla-erase ent)
      (vla-regen adoc acallviewports)
      (if locked
        (vla-put-lock (vla-get-activelayer adoc) locked)
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Хотя лично я создавал бы блок и не мучался.

[Shoorup]

Кулик Алексей aka kpblc, отличный макрос

[VVA]

Сообщение от Shoorup VVA, изящно! Не понял только как работает и для чего переменная _expert - 5?

На запрос "Выбарите объеткы" помимо _all; _last можно отвечать _group (группа)ю Будет выбрана именованная группа.

• ^C^C - это понятно
• _expert;5; - Подавляет запрос “Это имя уже используется; переопределить его?” (вдруг группа с именем tmp существует?) Считается, что по умолчанию ответили "Да"
• _circle;\_d;1.25; - рисуем круг
• _-group;_c;tmp;;_l;; - создаем группу TMP и запихиваем в нее круг
• _-bhatch;_s;_l;;_p;SOLID;; - рисуем штриховку
• _erase;_g;tmp;; - удаляем опцией группа (_g) группу tmp

[Shoorup]

Еще вопрос:
Не очень понимаю как работает ^P. В каких случаях это будет работать, а в каких нет?

Как в макросах можно подавить запросы в командной строке?

[VVA]

^P - аналог в меню переменной MENUECHO

[Shoorup]

VVA, справку умею открывать - пасибо.
Вопрос не в том что это, а как это работает?
Выдержка из справки для переменной MENUECHO:

Устанавливает битовый код управления эхо-выводом и запросами меню . Код является суммой следующих значений: 1-Подавляет эхо-вывод пунктов меню (переключатель в меню ^P) 2-Подавляет системные запросы во время выполнения команд из меню 4-Подавляет переключателя ^P эхо-вывода пунктов меню 8-Отображает все выводимые и вводимые строки (режим отладки для макросов DIESEL)

Если честно то ничего не понял. Что будет происходить при изменениии переменной? Что за "пункты меню"? Данная переменная работает только с Дизелем?

[Zouss]

эхо-вывод в командную строку, меню в acad это ведь ничего особенного, просто оно (меню) пишет то что нужно в командную строку вместо вас и гораздо быстрее
MENUECHO или ^p это чисто косметика
работает не только с diesel, но и вообще. просто иногда при отладке макросов бывает нужно посмотреть, что же все таки происходит, вот и включаем отображение всех запросов, даже тех на которые сам макрос и отвечает

[Vova]

19-02-06 ММАХ сказал

Гопода, я начал этим заниматься совсем недавно, буквально в этом месяце. И у меня уже есть грандиозные планы например:...

Через 3 дня исполнится 2 года с его последнего сообщения в этой теме. Интересно, как продвинулоь программирование у него за это время?

[Shoorup]

Я следующий "ученик" по программированию на Lisp

[Kline_Kinder]

Люди, помогите чайнику, а?
Наваял когда-то, при неоценимой помощи форумчан программулину.
Она долго работала, радость приносила.
Так долго, что я ее и подзабывать начал.
Потом сменили кад, я подгрузил ее, но программулина работать перестала.
Файл с прогой старый, и не отлажен (конечный вариант не сохранил- да знаю кто я...).
Может это и старая версия, не без багов. Но те баги я хоть и смутно но помню.
Вроде их поправил
Но прога стала выдавать непонятное сообщение в редакторе (окно консоль VL):
$
; ошибка: unknown format directive: "["
А такой не было, это точно.

Я точно помню что раньше хоть в проге и и были дурацкие ошибки, но такой мессаги она мне не давала!

Кстати символа "[" в тексте проги нет совсем!

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

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

Подобное бывало на официальных локализациях AutoCAD 2005 (как с сервис-паком, так и без) и на 2006 (без сервис-пака). На последующих вроде не было.
Выкладывать код лично я особого смысла не вижу - ошибка самого AutoCAD'a (спасибо кривым ручкам локализаторов). Решение на caduser.ru Profan выкладывал - оно сводилось к редактированию штатных dll.

[Kline_Kinder]

Спасиб! Буду смотреть. Только вот ковырять штатную д-библ. честно скажу- страшно.
Да. кад поставили мне -2007 рус