[Григорьев Виктор]

хочу объединить полилинию с конточкой, но ну получается конточка показывается только в самом начале команды, когда написано введите начальную точку, начинаю обводку а дальше конточка не показывается у меня получилось вот так: ^C^C_pline;_endp; , хотелось чтобы команда, _endp работала вместе с полилинией

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

Лиспом попробуй...

Код:

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

(vl-load-com)

(defun c:plend (/ adoc osmode *error*)
  (defun *error* (msg)
    (if osmode
      (setvar "osmode" osmode)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq osmode (getvar "osmode"))
  (setvar "osmode" 1)
  (command "_.pline")
  (while (/= (getvar "cmdactive") 0)
    (command pause)
    ) ;_ end of while
  (setvar "osmode" osmode)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Можно, конечно, и макросом - но привязки тогда придется восстанавливать вручную по завершении кода.

[Григорьев Виктор]

А можете написать макросс, лиспом не знаю как

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

Как использовать лисп, опубликованный на форуме
Макрос:

Код:

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

^C^Cosmode;1;_.pline;

[Григорьев Виктор]

Спасибо огромное, то что мне нужно))