[Loban]

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

[Олег (jr.)]

Попробуй как будет работать

Код:

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

(defun C:spd (/ dim1 dim2 dim_en dm_pt elist elist1 elist2 en_pt
	      factor mp_pt nor_pt nw_pt st_pt)
(if (not cal)
(arxload "geomcal"))  
(setq dim_en (car (entsel "\nSelect dimension >> ")))

(setq elist (entget dim_en)
      st_pt (cdr (assoc 13 elist))
      en_pt (cdr (assoc 14 elist))
      dm_pt (cdr (assoc 10 elist))
      )
(setvar "osmode" 675)      
(initget 1)
(setq nw_pt (osnap (getpoint "\nPick point on dimension >> : ") "_nea"))
(setq factor (/ (- (distance st_pt en_pt)(distance dm_pt nw_pt))(distance st_pt en_pt)
		))
(setvar "osmode" 0)
(setq nor_pt (cal "plt (st_pt,en_pt,factor)"))
(setq mp_pt (inters  nor_pt  nw_pt st_pt en_pt nil)) 
(command "._copy" dim_en "" st_pt st_pt)
(setq dim1 (entlast))
(setq elist1 (entget dim1)
      elist1 (subst (cons 14 mp_pt)(assoc 14 elist1) elist1))
(entmod elist1)
(entupd dim1)
(command "._copy" dim_en "" st_pt st_pt)
(setq dim2 (entlast))
(setq elist2 (entget dim2)
      elist2 (subst (cons 13 mp_pt)(assoc 13 elist2) elist2)
      )
(entmod elist2)
(entupd dim2)
(command "._erase" dim_en "")
(setvar "osmode" 675)  
(princ)
)
(prompt "\n\t***\tType SPD to run program\t***\n")
(princ)

~'J'~

[Loban]

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

работает хорошо, единственное придется простучать каждый размер указав точки разрыва, все равно спасибо!!

[Олег (jr.)]

Я думаю единственный способ избежать все
ошибки - именно вручную проделать все эти
многочисленные изменения, настолько интеллектуальные
задачи в общем потоке пока невыполнимы, мало ли какие
ситуации могут быть на практике, если например выбрать
все размеры через SelectionSet
Может я неправ конечно, буду рад, если ошибаюсь.
Так что пока увы...

~'J'~

[Loban]

спасибо в любом случае