[ZZ_top]

Всем привет

Можно-ли в таблице свойств объекта ("Properties") менять значения через командную строку? (например, сделать viewport "locked", поставить значение масштаба 1/100 и т.д.)

Спасибо.

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

Программно (то есть лиспом) - можно. Засунув весь лисп в ком.строку - по идее тоже.

Код:

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

Command: (defun test () (vl-load-com) (if (and (= (type (setq vp (vl-catch-all-apply (function (lambda () (vlax-ename->vla-object (car (entsel "\nSelect VP <Cancel> : ")))))))) 'vla-object) (= (vla-get-ObjectName vp) "AcDbViewport")) (vla-put-DisplayLocked vp :vlax-true)))
Command: (test)

Но! Тут срабатывает ограничение, и полностью код не влезает.
В AutoCAD 2008 приходится делать так:

Код:

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

Command: (defun test () (vl-load-com) (if (and (= (type (setq vp 
(vl-catch-all-apply (function (lambda () (vlax-ename->vla-object (car (entsel 
"\nSelect VP <Cancel> : ")))))))) 'vla-object) (= (vla-get-ObjectName vp) 
"AcDbViewport"))
((_> (vla-put-DisplayLocked vp :vlax-true)))

И потом уже запускать (test)

[twilight]

Сообщение от Кулик Алексей aka kpblc Программно (то есть лиспом) - можно.

-vports

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

А, например, слой или тип линии для видового экрана так поменять можно? При этом для существующего видового экрана.

[twilight]

Сообщение от Кулик Алексей aka kpblc А, например, слой или тип линии для видового экрана так поменять можно? При этом для существующего видового экрана.

change

Макросами удобнее. В основном вещи меняются по одному принципу. Например закрываются все видовые экраны на листе, а если открывается то только выделенный. Или слой делается текущим по выделенному объекту, а не по набранному руками имени. Слои вставляются из шаблона, а не создается руками со сменой цвета, веса, имени. Поэтому быстрее вызвать алиасом готовую команду, а не набивать в командной строке шифровку Центру.

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

Вообще-то намного проще (по крайней мере мне) написать один (!) универсальный лисп, который будет делать чо хочу. А вызывать уже его, передавая необходимые параметры.

[twilight]

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

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

twilight, примеры макросов на моих кнопках:

Код:

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

^C^C^P(defun c:cadware() (if (not *kpblc-activedoc*) (alert "Программа не установлена!")) (_kpblc-draw-trim-line nil));cadware;
^C^C^P(defun c:cadware() (if (not *kpblc-activedoc*) (alert "Программа не установлена!")) (_kpblc-draw-trim-line t))

Ничего, работают