[zenon]

Назрело!
В связи с введением динамических блоков начиная с AutoCAD2006, по роду моей деятельности появилась возможность рисовать монтажную схему стоек с указание ее длины в аттрибуте, с автоматическим изменением аттрибута в зависимости от удлинения стойки.
Поэтому назрел вопрос о сквозной нумерации, то бищь присвоении 2му аттрибуту номера стойки в зависимости от ее длины.
см. чертеж
[ATTACH]1190123036.dwg[/ATTACH]
Можно ли расстановку позиций реализовать программно?
ps предварительно расставив стойки.

[Supermax]

Так, установлен следующий факт, если в атрибутах "DLINA" вручную прописать длины, то он эти длины посчитает и атрибут "POZ" промаркирует. Это у меня в трубах. Из свойства "Distance" значение в атрибут "DLINA" не переходит.

[zenon]

Вообщем еще 2 пожелания осталось
1 - ввести команду _regen перед началом работы основной программы.
2 - Добавить возможность вставки префикса и суффикса в позицию.
В остальном программы вполне рабочие.
ps Kpblc а может ввести указание пользователем тега атрибутов длины и позиции, чтоб мышкой тнул и в атрибут (типа 1 - укажите аттрибут длины, 2 - укажите атрибут позиции)???

[Sleekka]

2Supermax #81
прочитай страницу N1 этого топика, если не поможет читай еще раз и так далее пока не дойдет.

[Supermax]

Вот тут возник у меня один вопросик.
Нумерация что только у стоек, или еще есть элементы с номерами?
Если есть еще елементы, то что, у них имя блока тоже Stoyka?
Вот я взял и подредактировал bname.
(= (strcase name)(strcase name)) извините за наглость и лень круто все менять.
Теперь у меня сквозняком все блоки нумеруются, а не только StoyK-и.
Если бы нумерация была "Ст-1", "Ст-2" и т.д. я бы понял, что другие элементы к этим "Ст-" не относятся, а так, голые цифры - непонятно, что дальше делать будете. Или у тех элементов не кружочки, а ромбики, квадратики и т.д.? Или у вас на чертеже кроме стоек нет ничего?

P.S. Sleekka а ты кроме как читать чего-нибудь умеешь?

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

Значит так, попытаюсь разобраться:
Прежде всего, №81 : если атрибуту назначить поле, которое будет брать длину с объекта, то ничего проставлять руками не надо. zenon все отлично показал, даже у меня получилось разобраться. Учитывая, что у Supermax 2007 или 2008, ситуация упрощается - лично у меня не удалость в 2006 взять значения прямо с динамического свойства (хотя и не отрицаю такую возможность). А так... Сделать атрибут невидимым, в него поле и(или) формулу и всех делов. Забирай
> №72 : Я ж говорил... А сейчас я задаю достаточно каверзный вопрос: что делать, если в блоке атрибут1, свойство1 и свойство2 одинаковы, но разница в свойстве34? А что делать, если в выбранном блоке отсутствует атрибут, куда вставлять позицию? А что делать...
Для конкретных труб выполнить задачу "взять длину, тип материала, диаметр; длину округлить с шагом 100 вверх и проставить позицию в атрибут с тэгом PositionForSpecification" вполне выполнима. Но это тоже будет конкретное решение конкретной задачи.
> #82 : ну у меня регенерация после выполнения происходит (правда, только после успешного). Префикс и суффикс можно и тут сделать, можно и воспользоваться готовыми решениями (варианты выкладывались и здесь, и на autocad.ru - найти только надо).
> PS: можно, но явно не сегодня. Завтра, и то, если VVA не опередит

[Дима_]

2Slekka ну в кратце так - контрольная сумма - функция которая дает уникальное число определенной разрядности к набору данных - в основном служит для проверки, в моем случае используется остаток длинны от 23 (делим длинну на 23 остаток и есть контрольная сумма) - то есть варианты могут быть от 0 до 22, почему 23 - это простое число (делится только на себя и единицу) соответственно вероятность совпадения равна 1/23. То есть моя функция на 23, 46, 460 - выдаст одно и тоже число - 0 - это и есть коллизия. Чтобы уменьшить вероятность коллизии надо взять большее простое число, но и разброс будет больше - число следует подбирать по прикидкам кокое количество групп может максимально использоваься. Про trunc - это округление до целого в меньшую сторону - делим на 23 округляем в меньшую, умножаем на 23 - разница и есть остаток. В общем как-то так. Если непонятно спрашивай. :wink:

[Sleekka]

2Дима_
Все теперь стало понятно, спасибо
Остался еще 2 вопроса
1)откуда ты узнал про trunc (неужели arx формулы декомпилировал)?
2) может там еще чего такого полезного есть?

[Дима_]

Взято из хелпа 2006:
sin(угол)
Синус угла

cos(угол)
Косинус угла

tang(угол)
Тангенс угла

asin(вещ)
Арксинус числа. Аргумент должен лежать в пределах от –1 до 1

acos(вещ)
Арккосинус числа. Аргумент должен лежать в пределах от –1 до 1

atan(вещ)
Арктангенс числа

ln(вещ)
Натуральный логарифм числа

log(вещ)
Десятичный логарифм числа

exp(вещ)
Натуральная экспонента числа

exp10(вещ)
Десятичная экспонента числа

sqr(вещ)
Квадрат числа

sqrt(вещ)
Квадратный корень числа (неотрицательного)

abs(вещ)
Абсолютная величина числа

round(вещ)
Число, округленное до ближайшего целого

trunc(вещ)
Целая часть числа

r2d(угол)
Преобразование угла из радиан в градусы. Например, r2d(pi) преобразует pi радиан в 180 градусов

d2r(угол)
Преобразование угла из градусов в радианы. Например, d2r(180) преобразует угол 180 градусов в радианы и возвращает значение, равное константе pi

pi
Константа «пи»

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

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

Мало ли что крыс сказал, я не бог. По слухам (но не помню где мелькнуло), вроде были попытки сделать полностью программное создание дин.блока на лиспе, но результата истории я не знаю - не следил. Очевидно, что надо расковыривать динамический блок , созданный самостоятельно (и словари и РД, с ним связанные). Меня на это не хватило

[Дима_]

2Крыс - скажи честно у тебя на твой Ник "звоночек" стоит? :?:

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

Да не, TelepatApplication наконец хоть как-то заработал, но коннектится только на общедоступные адреса, к пользователям - ну ни в какую, хоть тресни Connection timeout, User have a rest или еще чем-то таким же непотребным матерится.

[Елпанов Евгений]

Сообщение от Дима_ Взято из хелпа 2006: sin(угол) Синус угла cos(угол) Косинус угла tang(угол) Тангенс угла asin(вещ) Арксинус числа. Аргумент должен лежать в пределах от –1 до 1 acos(вещ) Арккосинус числа. Аргумент должен лежать в пределах от –1 до 1 atan(вещ) Арктангенс числа ln(вещ) Натуральный логарифм числа log(вещ) Десятичный логарифм числа exp(вещ) Натуральная экспонента числа exp10(вещ) Десятичная экспонента числа sqr(вещ) Квадрат числа sqrt(вещ) Квадратный корень числа (неотрицательного) abs(вещ) Абсолютная величина числа round(вещ) Число, округленное до ближайшего целого trunc(вещ) Целая часть числа r2d(угол) Преобразование угла из радиан в градусы. Например, r2d(pi) преобразует pi радиан в 180 градусов d2r(угол) Преобразование угла из градусов в радианы. Например, d2r(180) преобразует угол 180 градусов в радианы и возвращает значение, равное константе pi pi Константа «пи» Вообще в акаде много интересного, но никак не могу придумать импорт данных в параметры, сам Крыс сказал что дело гиблое, а тут как говорится возразить нечего.

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

Код:

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

tang(угол) 
Тангенс угла 

asin(вещ) 
Арксинус числа. Аргумент должен лежать в пределах от –1 до 1 

acos(вещ) 
Арккосинус числа. Аргумент должен лежать в пределах от –1 до 1 

ln(вещ) 
Натуральный логарифм числа 

exp10(вещ) 
Десятичная экспонента числа 

sqr(вещ) 
Квадрат числа 

round(вещ) 
Число, округленное до ближайшего целого 

trunc(вещ) 
Целая часть числа 

r2d(угол) 
Преобразование угла из радиан в градусы. Например, r2d(pi) преобразует pi радиан в 180 градусов 

d2r(угол) 
Преобразование угла из градусов в радианы. Например, d2r(180) преобразует угол 180 градусов в радианы и возвращает значение, равное константе pi

PS. Конечно, сделать их на лиспе или любом другом языке, не проблема, но хотелось бы ясности...

[VVA]

>Елпанов Евгений Присоединяюсь, ткните на первый раз пальцем (во второй раз придется фэйсом) , где этот trunc прописан. Что-то я в редакторе блока его не нашел

[Дима_]

No problem:
[ATTACH]1190354040.JPG[/ATTACH]

[Дима_]

сложно найти черную кошку в темной комнате...
[ATTACH]1190354300.dwg[/ATTACH]

[Елпанов Евгений]

Сообщение от Дима_ No problem: [ATTACH]1190354040.JPG[/ATTACH]

Спасибо за ответ!
Видимо, я не верно вас понял - вы имели в виду, именно автокадовскую справку, с командами автокада..
Т.е. вы дали список функций, для акадовского калькулятора. А я их искал, хотя был уверен, что их нет, в лисп редакторе...

[VVA]

Сообщение от zenon Вообщем еще 2 пожелания осталось 1 - ввести команду _regen перед началом работы основной программы. 2 - Добавить возможность вставки префикса и суффикса в позицию. В остальном программы вполне рабочие.

Внес исправления в VVA №21

>Supermax
Вот твой файл, с которым работает лисп из поста 21
[ATTACH]1190363101.dwg[/ATTACH]

[VVA]

В 12:45 по Москве обновил пост 21 (устранена одна ошибочка)

а может ввести указание пользователем тега атрибутов длины и позиции, чтоб мышкой тнул и в атрибут (типа 1 - укажите аттрибут длины, 2 - укажите атрибут позиции)???

Пробуй вариант

Код:

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

(defun c:NDB1 ( / adoc ss res name bname atname lst lstLen att poz attTo 
               mip-block-setattr-bylist 
              mip-put-hyperlink 
              mip_MakeUniqueMembersOfList 
              member-i 
              get-all-atts 
              mip-conv-to-str
              *error*
              get-block-name
              )
;;;================================================
;;;======== НАСТРОЙКИ ПРОГРАММЫ ===================
;;;================================================
 (vl-load-com)   
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
;; obj - Ename or Vla object of block 
;; att_list - list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...) 
;;                 Tag_Name - string 
;;                    Value - string 
(defun *error* (msg)(princ msg)(vla-EndUndoMark adoc))
(defun mip-block-setattr-bylist (obj att_list / txt lst) 
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj))) 
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list)) 
  (if (and obj 
           (not(vlax-erased-p obj)) 
           (= (vla-get-ObjectName obj) "AcDbBlockReference") 
      (eq :vlax-true (vla-get-HasAttributes obj)) 
      (vlax-property-available-p obj 'Hasattributes) 
      (vlax-write-enabled-p obj) 
      ) 
    (vl-catch-all-apply 
      (function 
   (lambda   () 
          (foreach at (vlax-invoke obj 'Getattributes) 
            (if (setq lst (assoc(strcase(vla-get-TagString at)) att_list)) 
              (vla-put-TextString at (cdr lst)) 
            ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  )
(defun get-block-name ( blk)
  (cond 
                     ((and (vlax-property-available-p blk 'isdynamicblock) 
                           (= (vla-get-isdynamicblock blk) :vlax-true) 
                           ) ;_ end of and 
                      (vla-get-effectivename blk) 
                      ) 
                     (t (vla-get-name blk)) 
                     ) ;_ end of cond 
  )
(defun mip-conv-to-str (dat) 
  (cond ((= (type dat) 'INT)(setq dat (itoa dat))) 
         ((= (type dat) 'REAL)(setq dat (rtos dat 2 12))) 
        ((null dat)(setq dat "")) 
        (t (setq dat (vl-princ-to-string dat))))) 
(defun mip-put-hyperlink (ENAME URLDescription) 
  (if (eq (type ENAME) 'ENAME) 
    (setq ENAME (vlax-ename->vla-object ENAME)) 
  ) ;_ end of if 
  (vlax-for hyp (vla-get-hyperlinks ENAME) (vla-delete hyp)) 
  (vla-add (vla-get-hyperlinks ENAME) 
           "about:blank" 
           URLDescription 
  ) ;_ end of vla-add 
) ;_ end of DEFUN 

;;;Удаляет одинаковые (дубликаты) элементы из списка 
;;;(defun mip_MakeUniqueMembersOfList  ( lst / OutList head) 
;;;  (while lst 
;;;    (setq head (car lst) 
;;;          lst (vl-remove head lst) 
;;;          OutList (append OutList (list head)))) 
;;;  OutList 
;;;  ) 
(defun mip_MakeUniqueMembersOfList  ( lst / OutList head) 
  (while lst 
    (setq head (car lst) 
          lst (vl-remove-if '(lambda(pt)(equal pt head 1e-6)) lst) 
          OutList (append OutList (list head)))) 
  OutList 
  ) 
(defun member-i ( lst num / i) 
 (setq i 0)(while (and lst (not(equal (car lst) num 1e-6))) 
    (setq i (1+ i) lst(cdr lst))) 
  (if (equal (car lst) num 1e-6) i nil)) 
  (defun get-all-atts (obj) 

  (if (and obj 
      (eq :vlax-true (vla-get-HasAttributes obj)) 
      (vlax-property-available-p obj 'Hasattributes) 
       
      ) 
    (vl-catch-all-apply 
      (function 
   (lambda   () 
     (mapcar (function (lambda (x) 
               (cons (vla-get-TagString x) 
                (vla-get-TextString x) 
               ) 
             ) 
        ) 
        (append (vlax-invoke obj 'Getattributes) 
           (vlax-invoke obj 'Getconstantattributes) 
        ) 
     ) 
   ) 
      ) 
    ) 
  ) 
) 
;;;============================================================= 
;;;====================== MAIN PART ============================ 
;;;============================================================= 
  (vla-StartUndoMark adoc)
  (and
  (setq ss (car(nentsel "Укажите атрибут, откуда брать длинну :")))
  (if (= (cdr(assoc 0 (entget ss))) "ATTRIB")
    (setq atname (cdr(assoc 2 (entget ss))));_Имя аттрибута откуда брать
    (progn(alert "Это не атрибут") nil))
  (setq poz (car(nentsel "Укажите атрибут, куда писать результат :")))
  (if (= (cdr(assoc 0 (entget poz))) "ATTRIB")
    (setq attTo (cdr(assoc 2 (entget poz))));_Имя аттрибута куда вбивать
    (progn(alert "Это не атрибут") nil))
  (or
    (= (setq bname(strcase(get-block-name (vla-ObjectIDToObject adoc (vla-get-OwnerID (vlax-ename->vla-object ss))))));_Имя блока
       (strcase(get-block-name (vla-ObjectIDToObject adoc (vla-get-OwnerID (vlax-ename->vla-object poz)))))
       )
    (alert "\nАтрибуты должны входить в один блок")
    )
  (setq *PREF* (mip-conv-to-str *PREF*))
  (setq *SUFF* (mip-conv-to-str *SUFF*))
  (princ "\nВведите префикс или Пробел - нет <")(princ *PREF*)(princ ">: ")
  (setq *PREF* (getstring t))
  (princ "\nВведите суффикс или Пробел - нет :")(princ *SUFF*)(princ ">: ")
  (setq *SUFF* (getstring t))
  (if (= *PREF* " ")(setq *PREF* "") t)(if (= *SUFF* " ")(setq *SUFF* "") t)         
  (if (and (setq ss (ssget  '((0 . "INSERT")(66 . 1))))
           (setq lstLen (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
           )
    (progn
      (vla-regen adoc acactiveviewport)    
      (foreach blk 
               (mapcar 'vlax-ename->vla-object lstlen) ;_ end of mapcar 
        (setq name (get-block-name blk)) ;_ end of setq 
        (if (= (strcase name)(strcase bname)) 
          (setq lst (cons blk lst))) 
         ;_ end of if 
        ) ;_ end of foreach 
      (setq lstLen (mapcar '(lambda(x)(cdr(assoc (strcase atname)(get-all-atts x)))) lst)) 
      (setq lstLen (mapcar 'atof(vl-remove-if 'null lstLen)))
      (setq lstLen (mip_MakeUniqueMembersOfList lstLen)) 
      (setq lstLen (vl-sort lstLen '(lambda(a b)(< a b)))) 
      (princ "\n Позиция  Длинна")(setq poz 1) 
      (foreach blk lstlen 
        (princ "\n")(princ poz)(princ "  -  ")(princ blk) 
        (setq poz (1+ poz)) 
        ) 
      (foreach blk lst 
        (if (and 
              (setq att(cdr(assoc (strcase atname)(get-all-atts blk)))) 
              (setq att (atof att)) 
              (setq poz (member-i lstlen att)) 
              ) 
          (progn 
            ;_Маркиреум 
            (mip-put-hyperlink blk (itoa(1+ poz))) 
            (mip-block-setattr-bylist blk
              (list (cons (strcase attTo)(strcat *PREF* (itoa(1+ poz)) *SUFF*)))) 
            ) 
          ) 
        )
      t
      ) ;_ end of progn 
    ) ;_ end of if
  )
  (vla-EndUndoMark adoc)
  (princ) 
  )

[Supermax]

VVA, Мой файл в 72 посте. Да и то, только верхняя его часть. А это, так, ваше в моей интерпритации. Мне оно без надобности.
Дублировать длинну в свойствах длинной в атрибутах считаю ошибкой. Надо округлять и редактировать свойсво. Блоки дернуться и подравняются. Заодно и *Unnn тоже подравняются. Нахлесты и недостача станут видны, это тоже плюс.
VVA, я с тобою не прощаюсь, а всем остальным машу ручкой.
Это последнее мое сообщение в этой теме.
Можете не язвить, из "Избранное" я эту тему уже снес.

[zenon]

2 VVA небольшой вопрос? а что там за гиперссылка вываливается?? когда к блоку подводишь курсор?????
[ATTACH]1190382191.jpg[/ATTACH]