[X-DeViL]

Господа программеры... Хочу подкинуть идею для программки которая бы выводила в реальном времени те св-ва которые я "захочу"...
т.е. при наведении на объект появлялся рядом списочек как в 2006м каде, но со списком св-в!

Идея понятна? Программка должна работать в режиме "онлайн"... т.е. как только я навожу курсором на объект (без клика) рядом с курсором (местоположение то же настраиваемое должно быть) отоборажается только ТЕ СВ-ВА которые я "хочу"!

Такое возможно?

Сознательно запихнул в "АВТОКАД" ибо прямое отношение к АВТОКАДУ

[Alxd]

Это совсем не сложно делается на ARX.

[X-DeViL]

Вот тебе и идея ))

Еще одно требование... чтобы она как можно меньше жрала ресурсы...

[VadimVG]

... и чтоб этот списочек не всегда появлялся, а только при нажатом ctrl например

[Alxd]

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

[X-DeViL]

Мне видятся 2 варианта!

1. В виде переменной...
2. В виде окошка типа "osnap settings"

Еще можно сделать для каждого типа объектов свои установки...


например, для "dimension" одни св-ва... для полилинии другие )
но главное.... это чтобы мало жрал ресурсов! ))

[Лентяй]

Как говорил один мой знакомый, "на х.я думать. когда уже все придумано". Прогрмма называется Bubbles, скачать можно с www.asuni.com или http://www.bubblecad.com/en/. А ежели кто по бусурмански не понимет, кинтьте емелю - перешлю установочный файл.

[Alxd]

Качаю. Вот только размер настораживает - 2Мб! По моим прикидкам такое приложение должно тянуть на 50кб, ну на 100, если с фенечками...

[X-DeViL]

Даже с дистрибутивом?

Жду коментариев!

Но лучше бы конечно если бы 50 кб

[Alxd]

Не так страшен черт...
Там просто много всего. Локализация на 6-ти языках, дока на 160 кб в PDF и все прочее.
В конечном виде сам модуль загружаемый в AutoCAD 190кб. К нему еще вроде dll лежит и dll локализации. Надо бы локализацию русскую сделать.
Вещица "что надо"! Поставлю всем! Минут через 20.

[X-DeViL]

ой... тока оригинальную англицкую оставь плз ) для меня

[fixo]

Я опять по слабости ума че не так понял, но попробуй:

; Список свойств и значений VLA-объекта ;

(prompt "\nВвести в командной строке: opr \n")

; Временный диалог: ;

(defun my-make-props-dcl ()
(gc)
(setq fname (strcat (getvar "DWGPREFIX") "proptsvalues.dcl"))
(setq fn (open fname "w"))
(write-line "selobj : dialog {" fn)
(write-line (strcat "label = " "\"" "Объект:" "\"" "\"" " " obj_name "\"" ";") fn)
(write-line "spacer_0;" fn)
(write-line ": boxed_row {" fn)
(write-line ": list_box {" fn)
(write-line (strcat "label = " "\"" "ДАННЫЕ ОБЪЕКТА :" "\"" ";") fn)
(write-line (strcat "key = " "\"" "elist1" "\"" ";") fn)
(write-line (strcat "width = 30; height = 20;}") fn)
(write-line "}" fn)
(write-line "spacer_0;" fn)
(write-line "ok_cancel; " fn)
(write-line "spacer_0;" fn)
(write-line ": boxed_column {" fn)
(write-line ": text_part {" fn)
(write-line (strcat "value = " "\"" "© Designed by Oleg Jr" "\"" ";") fn)
(write-line "alignment = left; }" fn)
(write-line "spacer_0;" fn)
(write-line ": text_part {" fn)
(write-line (strcat "value = " "\"" "// From man to man //" "\"" ";") fn)
(write-line "alignment = right; }" fn)
(write-line "}" fn)
(write-line "}" fn)
(close fn)
)

; ;
(vl-load-com)

; Основная функция: ;

(defun Cpr ( / com_list dcl_ix fname obj_name
pr_list val_list vls_list vobj)

(setq vobj (vlax-ename->vla-object
(car (entsel "\nВыбрать объект : >>> \n")))
obj_name (vlax-get-property vobj 'Objectname)
pr_list (acad_strlsort
(vl-remove-if-not (function (lambda (x)
(if (and (vlax-property-available-p vobj x t)
(not (eq x "COORDINATE"))
(not (eq x "CONSTANTWIDTH"))
(not (eq x "WEIGHTS"))) x)))
(mapcar (function (lambda (x) (substr x 9)))
(vl-remove-if-not (function (lambda (x)
(wcmatch (strcase x) "VLA-GET-*")))
(atoms-family 1)))))
val_list (mapcar (function (lambda (x)
(vlax-get-property vobj x))) pr_list)
vls_list (mapcar (function (lambda (x)(vl-prin1-to-string x)))
val_list)
com_list (mapcar (function (lambda (x y)(strcat x " <*> " y)))
pr_list vls_list))
(my-make-props-dcl)
(setq dcl_ix (load_dialog "proptsvalues.dcl"))
(new_dialog "selobj" dcl_ix)
(start_list "elist1")
(mapcar 'add_list com_list)
(end_list)
(if (= (start_dialog) 1)
nil
)
(vl-file-delete fname)
(vlax-release-object vobj)
(setq pr_list nil
val_list nil
vls_list nil
com_list nil)
(princ)
)

[X-DeViL]

Вкратце ты понял правильно! Но! Это надо делать ДИНАМИЧНО... чтобы список св-в объекта появлялся автоматически когда я навожу курсор на объект... и если я увожу курсор с объекта оно исчезает...

[fixo]

Не-а, мне это не по зубам, тут надоть реактор
прилеплять...

[Alxd]

Я с Лентяем согласен. Нафига писать то, что уже написано?! Эти бублы бесплатные. Качай и юзай! Сделаны вроде качественно.

[X-DeViL]

Я чо против что ли? <ушел качать>