[dextron3]

Как работает:

1. Выбираем линию (стержень)
2. Вводим нахлест
3. Разбивается с длиной 11750мм (стандартная длина арматуры) + прибавляется введенный нахлест

Смещение стержней относительно друг друга 50мм, чтобы не сливались на чертеже

см. рисунок

[ATTACH]1183983170.JPG[/ATTACH]


:roll: :roll: :roll:

[dextron3]

Обратите внимание тема осталась без ответов! [sm2700]

[Profan]

Действительно, ответ заставляет себя ждать.

[p_sh]

dextron3

потому что есть готовые решения в автокаде и в аллплане

[dextron3]

А лиспиком поделиться некому не хочетца?
[sm1403]

[DonJad]

А если сделать тип штриховки соответсвующий?

т.е. в shx файле прописать этот штырь, а потом в описании штриховки через 1175 их вставлять с разными значениями по y

[dextron3]

нереально
штриховкой такого не сделаешь

[Profan]

в shx файле прописать этот штырь

А в другом shx прописать кочергу. Это будет арматура, загнутая под прямым углом на длину анкеровки.

[VVA]

По быстрому получилось так

Код:

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

(defun C:Nahl (/ adoc Sl Nah Sm ent pt1 pt2 ang ang90 Dl ss *error* clay)
  (defun *error* (msg)
    (princ msg)(setvar "CLAYER" clay)(princ))
  (setq clay (getvar "CLAYER"))
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (vla-startundomark adoc) 
  (initget 7) 
  (setq Sl (getdist "\nДлина стержня: ")) 
  (initget 7) 
  (setq Nah (getdist "\nДлина нахлеста: ")) 
  (initget 7) 
  (setq Sm (getdist "\nСмещение стержней: ")) 
  (if (setq ss (ssget "_:L" '((0 . "LINE")))) 
    (progn 
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) 
        (setq pt1   (cdr (assoc 10 (entget ent))) 
              pt2   (cdr (assoc 11 (entget ent))) 
              pt1   (trans pt1 0 1) 
              pt2   (trans pt2 0 1) 
              ang   (angle pt1 pt2) 
              ang90 (+ ang (* pi 1.5)) 
              Dl    (distance pt1 pt2) 
              pt2   nil 
        ) ;_ end of setq
        (if (> Dl Sl)
        (progn  
        (setvar "CLAYER" (cdr(assoc 8 (entget ent))))
        (while (> Dl Sl) 
          (command "_.LINE" 
                   "_none" 
                   pt1 
                   "_none" 
                   (setq pt1 (polar pt1 ang Sl)) 
                   "" 
          ) ;_ end of command 
          (setq pt1 (polar pt1 (+ ang pi) Nah)) 
          (if (setq pt2 (not pt2)) 
            (setq pt1 (polar pt1 (+ ang90 pi) Sm)) 
            (setq pt1 (polar pt1 ang90 Sm)) 
          ) ;_ end of if 
          (setq Dl (+ (- Dl Sl) Nah)) 
        ) ;_ end of while 
        (if (> DL 1) ;_Остаток 
          (progn 
            ;(setq pt1 (polar pt1 (+ ang pi) Nah)) 
            (command "_.LINE" "_none" pt1 "_none" (polar pt1 ang Dl) "") 
          ) ;_ end of progn 
        ) ;_ end of if
        (entdel ent)
        )
        )  
      ) ;_ end of foreach 
    ) ;_ end of progn 
  ) ;_ end of if
  (setvar "CLAYER" clay)
  (vla-endundomark adoc) 
  (princ) 
) ;_ end of defun

Код:

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

^C^CNahl;11750;700;50

*** 11.07.2007
12.07.2007
Исправлено по предложению в постах ниже

[dextron3]

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

см. рисунок

[ATTACH]1184161279.JPG[/ATTACH]

:roll: :roll: :roll:

2) Почему выделение работает только поэлементно, а не прямоугольной областью? (т.е. хочется выделять сразу много line)

Ждем коррективы

[VVA]

Исправил код в посте №9

[dextron3]

Обнаружил Баги:

1) Если объект меньше заданной длины, то его расчленять не надо (по лиспу он увеличивается без расчленения)

2) Все объекты превращаются в текущий слой (нельзя ли сделать чтобы в каком были в том и остались)

3) См. картинку
[ATTACH]1184170933.JPG[/ATTACH]
неровные нахлесты, т.е. некоторые почемуто увеличиваются в два раза, а коротенькие удлиняются

[dextron3]

Вот файл для экспериментов
[ATTACH]1184171322.rar[/ATTACH]
в нем зарисовки из верхнего поста, на всякий случай

[dextron3]

последний нахлест почемуто получается двойной

[dextron3]

Вот еще скрин
:?: :?: :?:
[ATTACH]1184174407.JPG[/ATTACH]

[Влад]

>dextron3 Это наверное двойная нахлестка (согласно СНИП) при стыковке в одном сечении более 50% арматуры

[VVA]

Новый вариант в №9

[X-DeViL]

Стандартная длина поставки арматурный стержней 11700, а не 11750

[shnn]

А как насчет требования сдвига стыков на 1,5Lн ?

dextron3 Вы уже на данный момент должны VVA месячную зарплату

[Zouss]

причем явно не в тенге