[Positron]

Восновном для прямоугольников:
1. Выделить прямоугольник или выбрать
2. Извлеч длинну сторон прмоугольника
3. Округлить последнюю цифру с кратностю 5
например: 888=890, 333=335
4. Ввести отступ (по типу Offset или построить прямоугольник с учотом отступа) от скруглённых сторон
5. Построить прямоугольник от центра старого но с заданым отсупом+округление.

(желательно чтоб команда состояла из 1 ввода отступа и всё, без указания стороны как в offset, или зделать штоб она отбивалась только на внешний контур по умолчанию)

Во вложении пример...

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

Что это было?

[Positron]

Сообщение от Кулик Алексей aka kpblc Что это было?

Это ежедневная работа робота по созданию контура заготовки на центр столярных изделий... резьба по дереву на станке ЧПУ...
А именно, резьба бывает разных размеров...
Сейчас благодаря людям которые помогли -1 проблема... http://forum.dwg.ru/showthread.php?t=43089
и если будет решение и этой, тогда бомба...
Просто заготовки столярам давать с цифрами например 11,5мм или 1382,3мм неправильно, или глупо, некто так делать не будет... поэтому округление будет просто находкой т.к. эти действия производятся в ручную, и в больших количествах ...

[VVA]

Positron, Я как то одному студенту писал (не бесплатно ) лабораторную по лиспу. Условие было такое: полилинией начерчен некий контур, нужно ткнуть мышкой внутри и программа должна распознать внутрь какого контура ткнули и подписать его текстом. Распознаются следуюшие контура:
1. Треугольник (в том числе прямоугольный, равносторонний и равнобедренный)
2. Ромб
3. Квадрат
4. Трапеция
5. Параллелограмм
6. Прямоугольник
7. Круг
В твоем случае квадрат можно считать частным случаем прямоугольника, а можно и ромб с паралллелограммом туда присобачить.
Так как это лабораторная, то код обильно снабжен комментариями.
Это я к тому, что вся математика там есть, можно выкинуть ненужное и п.1 и 2 по твоему Т.З. практически готовы. У меня пока нет на это времени. Может кто-нибудь возьмется

[Disney]

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

Код:

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

(defun c:test (/ offs prim sp t1 t2 t3 tc a b t1n t2n t3n t4n)
  (setq	offs (getint "\nОфсет: ")
	prim
	     (entget
	       (car
		 (entsel
		   "\Прямоугольник: "
		 )
	       )
	     )
	sp   (mapcar
	       'cdr
	       (vl-remove-if-not
		 '(lambda (x) (= (car x) 10))
		 prim
	       )
	     )
	t1   (car sp)
	t2   (cadr sp)
	t3   (caddr sp)
	tc   (polar t1 (angle t1 t3) (/ (distance t1 t3) 2))
	a    (+ (* (fix (/ (* 2 (distance t2 t1)) 10)) 2.5) offs)
	b    (+ (* (fix (/ (* 2 (distance t2 t3)) 10)) 2.5) offs)
	t1n  (polar (polar tc (angle t2 t1) a) (angle t3 t2) b)
	t2n  (polar (polar tc (angle t1 t2) a) (angle t3 t2) b)
	t3n  (polar (polar tc (angle t1 t2) a) (angle t2 t3) b)
	t4n  (polar (polar tc (angle t2 t1) a) (angle t2 t3) b)
  )
  (entmakex
    (list
      '(0 . "LWPOLYLINE")
      '(100 . "AcDbEntity")
      '(370 . 0)
      '(100 . "AcDbPolyline")
      '(90 . 4)
      '(70 . 1)
      (cons 10 t1n)
      (cons 10 t2n)
      (cons 10 t3n)
      (cons 10 t4n)
    ) ;_ list
  ) ;_  entmakex
)

[Positron]

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

Спасибо, работает хорошо!
Вот есть еще вопрос какие цифре в лиспе поменять шоб кратность округления менять? типа не 5, а например 10...(к примеру 1385,3=1390, а не 1385)
Может это мелочь но иногда будет полезно, вить 10 это 1 см...

Если сложно и долго тогда не стоит мучатся, чуть пожее сам разберусь, дето после нового года думаю книгу по лиспам дочитаю

для тех кому надо, комбинация макросов...
^C^C_obvod;\\\_test;5;l;
-тут отступ 5
^C^C_obvod;\\\_test;10;l;
-тут отступ 10

[Disney]

Сообщение от Positron какие цифре в лиспе поменять шоб кратность округления менять? типа не 5, а например 10

Добавил:
1) ввод кратности округления
2) запоминает и ввод по умолчанию предыдущего значения
3) зацикливание после ввода

(defun c:geo_offset
(/ offs okr prim sp t1 t2 t3 tc a b t1n t2n t3n t4n)
(setq geo_offs (if geo_offs
geo_offs
5
)
offs (getint (strcat "\nОтступ<" (itoa geo_offs) ">: "))
geo_offs (if offs
offs
geo_offs
)
geo_okr (if geo_okr
geo_okr
5
)
okr (getint (strcat "\nОкруглять до<" (itoa geo_okr) ">:"))
geo_okr (if okr
okr
geo_okr
)
)
(while
(setq
prim
(entget
(car
(entsel
"\nУкажите прямоугольник: "
)
)
)
)
(setq
sp (mapcar
'cdr
(vl-remove-if-not
'(lambda (x) (= (car x) 10))
prim
)
)
t1 (car sp)
t2 (cadr sp)
t3 (caddr sp)
tc (polar t1 (angle t1 t3) (/ (distance t1 t3) 2))
a (*
(fix (+ 0.5 (/ (+ (distance t2 t1) (* 2 geo_offs)) geo_okr)))
(/ geo_okr 2)
)
b (*
(fix (+ 0.5 (/ (+ (distance t2 t3) (* 2 geo_offs)) geo_okr)))
(/ geo_okr 2)
)
t1n (polar (polar tc (angle t2 t1) a) (angle t3 t2) b)
t2n (polar (polar tc (angle t1 t2) a) (angle t3 t2) b)
t3n (polar (polar tc (angle t1 t2) a) (angle t2 t3) b)
t4n (polar (polar tc (angle t2 t1) a) (angle t2 t3) b)
)
(entmakex
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
(cons 10 t1n)
(cons 10 t2n)
(cons 10 t3n)
(cons 10 t4n)
)
)
)
)
(princ "\nВызов команды: Geo_offset")

[Positron]

Сообщение от Disney Добавил: 1) ввод кратности округления 2) запоминает и ввод по умолчанию предыдущего значения 3) зацикливание после ввода (defun c:geo_offset (/ offs okr prim sp t1 t2 t3 tc a b t1n t2n t3n t4n) (setq geo_offs (if geo_offs geo_offs 5 ) offs (getint (strcat "\nОтступ<" (itoa geo_offs) ">: ")) geo_offs (if offs offs geo_offs ) geo_okr (if geo_okr geo_okr 5 ) okr (getint (strcat "\nОкруглять до<" (itoa geo_okr) ">:")) geo_okr (if okr okr geo_okr ) ) (while (setq prim (entget (car (entsel "\nУкажите прямоугольник: " ) ) ) ) (setq sp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) prim ) ) t1 (car sp) t2 (cadr sp) t3 (caddr sp) tc (polar t1 (angle t1 t3) (/ (distance t1 t3) 2)) a (* (fix (+ 0.5 (/ (+ (distance t2 t1) (* 2 geo_offs)) geo_okr))) (/ geo_okr 2) ) b (* (fix (+ 0.5 (/ (+ (distance t2 t3) (* 2 geo_offs)) geo_okr))) (/ geo_okr 2) ) t1n (polar (polar tc (angle t2 t1) a) (angle t3 t2) b) t2n (polar (polar tc (angle t1 t2) a) (angle t3 t2) b) t3n (polar (polar tc (angle t1 t2) a) (angle t2 t3) b) t4n (polar (polar tc (angle t2 t1) a) (angle t2 t3) b) ) (entmakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(370 . 0) '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 t1n) (cons 10 t2n) (cons 10 t3n) (cons 10 t4n) ) ) ) ) (princ "\nВызов команды: Geo_offset")

Спс огромное работает на ура!
токо 1-н момент немогу понять чото оно линии даёт толщину 0.00 в 2-х лиспах?(луче б по слою)

[Disney]

Сообщение от Positron токо 1-н момент немогу понять чото оно линии даёт толщину 0.00 в 2-х лиспах?(луче б по слою)

Точно, забыл удалить, скопировал из др. места, где был нужен 0-ой вес.
Всё исправил перескачай

[Positron]

Сообщение от Disney Точно, забыл удалить, скопировал из др. места, где был нужен 0-ой вес. Всё исправил перескачай

Спс, теперь работает превосходно.