[Shoorup]

Есть макрос вида:

Код:

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

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

Но подобная множественная вставка не катит. Вставка работает так: нажали на кнопку, указали точку вставки, еще раз нажимаем левую кнопку, и опять указываем точку вставки. Хочеться убрать одно лишнее нажатие.
Как?

[Bull]

Я в макросах не силен. Но попробуй после скобок перед ^p поставить ";"

[Shoorup]

Bull, неа! Не пошло. А непошло потому, что нужно именно тыкнуть на листе левой кнопкой, а не нажать Enter.

[VVA]

Shoorup, Если я правильно понял

Код:

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

^C^C^P_circle;\_d;1.25;(setq c125 (entlast));_-bhatch;_s;_l;;_p;SOLID;;(entdel c125);_COPYM;_L;;@;^P

[Shoorup]

VVA, прикольно работает Спасибо, помогло.

ЗЫ. Не совсем помогло. При первой вставке при уменьшеном виде и включенной привязке. под углом 45 градусов у меня в правый нижний угол на расстояние 10-15 сантиметров копируется откуда ни возьмись круг

[Krieger]

А я нифига не понял, нафига это "^P"

Код:

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

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

[Makswell]

Сообщение от Krieger А я нифига не понял, нафига это "^P"

^P - равносильно (setvar "CMDECHO" 0). Это чтобы то, что возвращают лисповые функции, не отображалось в ком. строке

[Krieger]

Зато без ^P работает.

[Shoorup]

Krieger, оно и с ^P и без него работает.
У меня щас еще одна беда случилась. Эти точки не совсем подходят. Дело в том что к ним не получается привязаться. Может стоит сделать блок и пользовать привязку к точке вставки, но тогда нужно ее устанавливать.
У кого какие предложения есть по выбору альтернативы?

[VVA]

Shoorup, А почему бы тебе не оставить круг?

[Shoorup]

VVA, всмысле? Штриховку с кругом? Тогда привязаться по конточке например не получиться, только по центру. Ненужная привязка может сработать - Квадрант. А привязываться нужно только к центру и желательно по конточке которая наиболее часто используется.
Потыкался и решил:
наверно лучший вариант сделать блок из штриховки в центре штриховки расположить отрезок нулевой длинны. В результате привязаться можно по конточке.
ЗЫ.VVA, а еще можно при выделении точки с кругом можно нечаянно потянуть за маркер и сделать точку больше - наши старики запросто такое провернут

[Krieger]

Сообщение от Shoorup Krieger, оно и с ^P и без него работает.

Понятно, что работает... Без ^P лишнего нажатия левой кнопки не надо делать.

Вставка работает так: нажали на кнопку, указали точку вставки, еще раз нажимаем левую кнопку, и опять указываем точку вставки. Хочеться убрать одно лишнее нажатие.

Конечно делай блок. И вставляй таким макросом (point -это название блока):

Код:

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

*^C^C_-insert;point;\1;1;0;

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

Вот мне интересно, а обязательно макрос, лисп не прокатит?

[Shoorup]

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

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

А с лиспом устойчивее (как правило)

Код:

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

(defun c:my-insert-fill-point (/                 adoc
                               *error*           blk_name
                               blk_def           cir
                               hat               fun_layer-status-save
                               fun_layer-status-restore
                               *layer-status*    _cmdecho
                               )

  (defun fun_layer-status-save (/ res)
    (vlax-for item (vla-get-layers adoc)
      (setq res (cons (list item
                            (cons "freeze" (vla-get-freeze item))
                            (cons "lock" (vla-get-lock item))
                            ) ;_ end of list
                      res
                      ) ;_ end of cons
            ) ;_ end of setq
      (vl-catch-all-apply
        '(lambda ()
           (vla-put-lock item :vlax-false)
           (vla-put-freeze item :vlax-false)
           ) ;_ end of lambda
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of vlax-for
    res
    ) ;_ end of defun

  (defun fun_layer-status-restore (lst)
    (foreach item lst
      (vl-catch-all-apply
        '(lambda ()
           (foreach prop (cdr item)
             (vl-catch-all-apply
               '(lambda () (vlax-put-property (car item) (car prop) (cdr prop)))
               ) ;_ end of vl-catch-all-apply
             ) ;_ end of foreach
           ) ;_ end of lambda
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of defun

  (defun *error* (msg)
    (fun_layer-status-restore *layer-status*)
    (if _cmdecho
      (setvar "cmdecho" _cmdecho)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (not (tblobjname "block" (setq blk_name "filled_point")))
    (progn
      (setq blk_def        (vla-add (vla-get-blocks adoc)
                                    (vlax-3d-point '(0. 0. 0.))
                                    blk_name
                                    ) ;_ end of vla-add
            cir            (vla-addcircle blk_def (vlax-3d-point '(0. 0. 0.)) 1.25)
            hat            (vla-addhatch
                             blk_def
                             achatchpatterntypepredefined
                             "SOLID"
                             :vlax-true
                             ) ;_ end of vla-addhatch
            *layer-status* (fun_layer-status-save)
            ) ;_ end of setq
      (vla-appendouterloop
        hat
        (vlax-make-variant
          (vlax-safearray-fill
            (vlax-make-safearray
              vlax-vbobject
              '(0 . 0)
              ) ;_ end of vlax-make-safearray
            (list cir)
            ) ;_ end of vlax-safearray-fill
          ) ;_ end of vlax-make-variant
        ) ;_ end of vla-AppendOuterLoop
      (vla-evaluate hat)
      (vlax-for sub blk_def
        (vla-put-layer sub "0")
        (vla-put-color sub 0)
        (vla-put-lineweight sub aclnwtbyblock)
        (vla-put-linetypescale sub 1.)
        (vla-put-linetype sub "byblock")
        ) ;_ end of vlax-for
      (fun_layer-status-restore *layer-status*)
      ) ;_ end of progn
    ) ;_ end of if
          ;[Basepoint/Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
  (setq _cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (while ((lambda ()
            (prompt "\nУкажите точку вставки <Отмена> : ")
            (vl-cmdf "_.-insert" blk_name "_scale" 1. "_r" 0.)
            (while (/= (getvar "cmdactive") 0)
              (vl-cmdf pause)
              ) ;_ end of while
            ) ;_ end of lambda
          )
   ) ;_ end of while
  (if _cmdecho
    (setvar "cmdecho" _cmdecho)
    ) ;_ end of if
  (fun_layer-status-restore *layer-status*)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

При условии, что лисп загружен, макрос становится

Код:

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

^C^Cmy-insert-fill-point;

[Shoorup]

Кулик Алексей aka kpblc, и всё равно не то. Можно привязаться по касательной, по квадранту,по нормали и всё не туда, не в центр.
Задача ставилась такая: нужна точка к которой можно будет привязвться к центру и исключить возможность привязки например к касательной.
В случае с кольцом можно нечаяно привязаться к одной из четырех точек не по центру. Также недостатком кольца является его возможность растягивания (иногда такое случается). К штриховки привязаться не получиться по кон.точке (почти всегда у всех включена).
Я сделал обыкновенный блок состоящей из штриховки, точки (в центре) и линии нулевой длинны то же в центре штриховки. Для чего все это нужно? Я получаю несколько возможностей привязки к центру моего блока (твставки,конточка,середина,узел,нормаль,ближайшая). Причем привязаться к какой либо другой точке не получится.

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

А osmode (пусть временно) поменять не покатит? Правда, в таком случае смысл лиспа теряется напрочь

[Shoorup]

То-же проскальзывала такая мысль, но привязка нужна не для вставки точки, а для того чтобы например линию к ней подтянуть и привязаться к этой точке по центру. Получается нужно поменять настройки osmode пользователя. По мне, так я редко привязкой пользуюсь (достаточно шага) и каждый раз менять состояние привязки "не кузяво".
В любом случае проблемму кажись решил...

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

А Ctrl+правый пинок мыши?

[Shoorup]

Сообщение от Кулик Алексей aka kpblc А Ctrl+правый пинок мыши?

Дело в том, что я работаю в такой организации, где такой прием знает максимум 3 человека - и даже если я им поделюсь - всеравно им будет пользоваться 3 человека Большую часть моих блоков приходиться продумывать так чтобы у них была "защита от дурака".