Воздуховоды динамич блоками, система рисования воздуховодов Опции

[AAANTOXA]

Считаю это удобнее HVAC DUCT немного не мало.
Требуется ваша помощь. Если кому понравится база то просьба её доработать. В круглую фасонину добавить опции вращения и отражения (образец - прямоугольный отвод 90 град). Нарисовать прямоугольные отводы с шагом 10 град (лучше 5 ) (образец тотже) . Называть в соответствии с каталогом провенто (просто для порядка - можно будет что-то типа спецухи сообразить потом).
Просто я сам не успеваю никак доделать её до конца - может кто поможет. По отводику на брата и за пол дня всё будет готово.

Специально оставил на чертеже черновики создания элементов отводов. Сначала рисуем и создаём просто блоки. Потом эти блоки обьединяем в один блок, а потом ему добавляем динамич свойства.

Потом заносим это всё в палитру инструментов свою. (см рис)



Тройники прямоугольные я думаю можно делать опцией "растяжение"/"перемещение"

Врезки прямоугольные "видимость"

Нормальные диффузоры не помешалибы - эти на печать плохо выводятся - стрелки мелковаты.
И тд
Жду жалоб и предложений.
Считаю несмотря на наличие Маджика и тп есть еще куча народу который рисует палочками и черточками и им эта база пригодится.

НОВАЯ БАЗА СМ СООБЩЕНИЕ 14 (уже устарело - самая новая здесь)
Прикрепил файл - вся база в слое 0 для тех у кого четкая организация работы по слоям

Сообщение отредактировал AAANTOXA - 5.12.2008, 14:39

Прикрепленные файлы

 БАЗА___Standard.zip ( 405,77 килобайт ) Кол-во скачиваний: 4674
 БАЗА.jpg ( 36,14 килобайт ) Кол-во скачиваний: 861
 палитры.JPG ( 79,04 килобайт ) Кол-во скачиваний: 1773
 отвод_прямоугольный_30_60_град.zip ( 37,26 килобайт ) Кол-во скачиваний: 7055
 БАЗА_в_нулевом_слое.zip ( 366,84 килобайт ) Кол-во скачиваний: 2717

 

[AAANTOXA]

Считаю это удобнее HVAC DUCT немного не мало.
Требуется ваша помощь. Если кому понравится база то просьба её доработать. В круглую фасонину добавить опции вращения и отражения (образец - прямоугольный отвод 90 град). Нарисовать прямоугольные отводы с шагом 10 град (лучше 5 ) (образец тотже) . Называть в соответствии с каталогом провенто (просто для порядка - можно будет что-то типа спецухи сообразить потом).
Просто я сам не успеваю никак доделать её до конца - может кто поможет. По отводику на брата и за пол дня всё будет готово.

Специально оставил на чертеже черновики создания элементов отводов. Сначала рисуем и создаём просто блоки. Потом эти блоки обьединяем в один блок, а потом ему добавляем динамич свойства.

Потом заносим это всё в палитру инструментов свою. (см рис)



Тройники прямоугольные я думаю можно делать опцией "растяжение"/"перемещение"

Врезки прямоугольные "видимость"

Нормальные диффузоры не помешалибы - эти на печать плохо выводятся - стрелки мелковаты.
И тд
Жду жалоб и предложений.
Считаю несмотря на наличие Маджика и тп есть еще куча народу который рисует палочками и черточками и им эта база пригодится.

НОВАЯ БАЗА СМ СООБЩЕНИЕ 14 (уже устарело - самая новая здесь)
Прикрепил файл - вся база в слое 0 для тех у кого четкая организация работы по слоям

Сообщение отредактировал AAANTOXA - 5.12.2008, 14:39

Прикрепленные файлы

 БАЗА___Standard.zip ( 405,77 килобайт ) Кол-во скачиваний: 4674
 БАЗА.jpg ( 36,14 килобайт ) Кол-во скачиваний: 861
 палитры.JPG ( 79,04 килобайт ) Кол-во скачиваний: 1773
 отвод_прямоугольный_30_60_град.zip ( 37,26 килобайт ) Кол-во скачиваний: 7055
 БАЗА_в_нулевом_слое.zip ( 366,84 килобайт ) Кол-во скачиваний: 2717

 

[Composter]

я вот немного изменил блоки, добавил в них еще один параметр как высота.во первых при составлении спецификации это упрощает подсчет.а во вторых я написал небольшой лисп ,который упрощает проставление размеров воздуховодов на чертежах.

Код

(defun c:zod29 ( / blk_ename bl_ename ent_d Shirina_v Visota_v minpoint maxpoint p1 p2 p3 line_p1 intpt int_p3 int_p4 Diametr_v )
(vl-load-com)
(if    (vlax-method-applicable-p (setq blk_ename(vlax-ename->vla-object(car(setq ent_d(entsel "\nУкажите блок" )))))'GetDynamicBlockProperties)
(if    (listp(setq bl_ename (vl-catch-all-apply 'vlax-safearray->list (list(vlax-variant-value(vla-GetDynamicBlockProperties blk_ename ))))))
(progn    (mapcar '(lambda (att_name)
        (cond    (    (equal (vla-get-PropertyName att_name) "Shirina")    (if
                                            (equal (type(vlax-variant-value(vla-get-Value att_name)))(type ""))
                                            (setq Shirina_v (vlax-variant-value(vla-get-Value att_name)))
                                            (setq Shirina_v (rtos(vlax-variant-value(vla-get-Value att_name))2))
                                        )
                                                                        )
            (    (equal (vla-get-PropertyName att_name) "Visota")    (if
                                            (equal (type(vlax-variant-value(vla-get-Value att_name)))(type ""))
                                            (setq Visota_v (vlax-variant-value(vla-get-Value att_name)))
                                            (setq Visota_v (rtos(vlax-variant-value(vla-get-Value att_name))2))
                                        )
                                                                        )
            (    (equal (vla-get-PropertyName att_name) "Diametr")    (if
                                            (equal (type(vlax-variant-value(vla-get-Value att_name)))(type ""))
                                            (setq Diametr_v (vlax-variant-value(vla-get-Value att_name)))
                                            (setq Diametr_v (rtos(vlax-variant-value(vla-get-Value att_name))2))
                                        )
                                                                        )
        )
        )
        bl_ename
    )
(vla-put-ScaleFactor
(setq etext
    (vla-addtext     (if    (equal 1 (vla-get-activespace(vla-get-activedocument(vlax-get-acad-object))))
                (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
                (vla-get-paperspace(vla-get-activedocument(vlax-get-acad-object)))
            )

        (if    Diametr_v
            (strcat "%%C" Diametr_v )
            (strcat Shirina_v "x" Visota_v)
        )
        (vlax-3d-point(getpoint "\nУкажите точку вставки текста"))
        180
    )
)
0.8)

(vla-GetBoundingBox etext 'MinPoint 'MaxPoint)
(setq     minpoint    (vlax-safearray->list minpoint)
    maxpoint    (vlax-safearray->list maxpoint)
    maxpoint    (list(+(car maxpoint) 50)(-(cadr minpoint)20)(caddr maxpoint))
    minpoint    (list(- (car minpoint) 50)(-(cadr minpoint)20)(caddr minpoint))
    ent_d    (cadr ent_d)
)
(if     (<
        (DISTANCE minpoint ent_d)
        (DISTANCE maxpoint ent_d)
    )
    (setq p1 minpoint     p2 maxpoint)
    (setq p1 maxpoint     p2 minpoint)
)
(setq line_p1
(vla-addline
    (if    (equal 1 (vla-get-activespace(vla-get-activedocument(vlax-get-acad-object))))
        (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
        (vla-get-paperspace(vla-get-activedocument(vlax-get-acad-object)))
    )
    (vlax-3d-point p1)
    (vlax-3d-point ent_d)
)
)
(setq intpt(vlax-safearray->list(vlax-variant-value(vla-IntersectWith line_p1 blk_ename 3))))
(cond    (    (equal (length intpt) 3)    (setq p3 (list(car intpt)(cadr intpt)(caddr intpt)))    )
    (    (equal (length intpt) 6)    (setq int_p3(list(nth 0 intpt)(nth 1 intpt)(nth 2 intpt))    int_p4 (list(nth 3 intpt)(nth 4 intpt)(nth 5 intpt))))
)
(if int_p3    (progn    
(if     (<
        (DISTANCE p1 int_p3)
        (DISTANCE p1 int_p4)
    )
    (setq p3 int_p3)
    (setq p3 int_p4)
)
    )    
)
(vla-put-EndPoint line_p1 (vlax-3d-point p3))
(vla-addline
    (if    (equal 1 (vla-get-activespace(vla-get-activedocument(vlax-get-acad-object))))
        (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
        (vla-get-paperspace(vla-get-activedocument(vlax-get-acad-object)))
    )
    (vlax-3d-point p1)
    (vlax-3d-point p2)
)

)))
(princ)
)

Прикрепленные файлы

 моё.dwg ( 705,61 килобайт ) Кол-во скачиваний: 613

 

[Axel]

я вот немного изменил блоки, добавил в них еще один параметр как высота.во первых при составлении спецификации это упрощает подсчет.а во вторых я написал небольшой лисп ,который упрощает проставление размеров воздуховодов на чертежах.

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

Прмер на основе вашего.

Прикрепленные файлы

 мое.dwg ( 709,25 килобайт ) Кол-во скачиваний: 642

 

[cfox]

мало того что это бы позволило быстро и легко подписывать воздуховоды, так еще бы и сами выноски менялись после регенерации в соответствии с размерами воздуховода!

...Вроде как это и делал сто лет назад, правда на VBA (см мой пост в этой теме от 26.8.2008). Мне показалось, что это никому не нужно...

[Axel]

...Вроде как это и делал сто лет назад, правда на VBA (см мой пост в этой теме от 26.8.2008). Мне показалось, что это никому не нужно...

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

Ваши программы, cfox, очень интересны и имхо на порядок серьезнее чем все то что выкладывается в открытом доступе на двг.ру и пр. сайтах. Своего пользователя они еще найдут.