[Tesan]

Доброго дня, необходимо построить полилинию с заданной шириной, но чтобы переменная PLINEWID после построения полилинии вернулась в 0 значение. Уважаемый Кулик Алексей aka kpblc очень помог, за что ему большая признательность и предложил лисп такого вида:

Код:

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

 (defun c:plw10 (/ pw)
(setq pw (getvar "plinewid"))
(setvar "plinewid" 10)
(vl-cmdf "_.pline")
(while (/= (getvar "cmdactive") 0) (vl-cmdf pause))
(setvar "plinewid" pw)
) ;_ end of defun

Все хорошо работает рисует полилинию с нужной шириной, но при нажатии ПКМ для вызова команд черчения дуга, прямая, и т.д. команда обрывается. т.е. ПКМ становится аналогом нажатия кнопки esc. В принципе работает вызов расширенных параметров рисования со стрелок клавиатуры, но уже привык вызывать ПКМ. Если нетрудно поправьте пожалуйста лисп немного, чтобы команда не обрывалась при нажатии ПКМ, а давала возможность выбрать параметры рисования.

[Семёныч]

Недостаточно информации или условия неправильно сформулированы.

Сообщение от Tesan при нажатии ПКМ для вызова команд черчения дуга, прямая, и т.д. команда обрывается.

Сама программа нормально работает, однако непонятно, какая команда обрывается при нажатии ПКМ.

[skkkk]

Tesan, тут, вероятно, дело не в коде лиспа, а в настройках Автокада. Штатная команда полилинии тоже также должна отрабатывать в таком случае.

Если мои предположения верны, то в окне настроек (_OPTIONS на вкладке Пользовательские есть Правая кнопка мыши - там нужно выбрать, кажется, в последнем пункте что-то вроде "Контекстное меню, когда доступны опции команды".

[koMon]

c:smart_pline рисует полилинию, с настройкой слоя (не проверяется на блокипровку и т.д.), типа линии, веса... в выпадающем меню с сохранением выбранных параметров в соответствующие переменные. следущий вызов команды использует сохранённые параметры. переменные автокада не трогаются.