[BANGER]

Доброго времени суток. Ребята есть одна проблемка. Буду показывать на картинках.

1. Есть вот такой чертеж (электронная плата).

[IMG]http://***********/55a9479a.png[/IMG]

2. Видите синие кружочки? Тип кружков - полилиния.
3. У меня есть вот такой элемент (белый кружок с осями)

[IMG]http://***********/affe892e.jpg[/IMG]

Задание! Мне надо на всем моем чертеже добавить в каждый синий кружок по одному белому кругу+оси.

Должно получится так

[IMG]http://***********/f09c6c9b.png[/IMG]

Примечание. Допустим таких синих кружков у меня 1200 штук. Функция "Копировать выбранные" НЕ ПРЕДЛОГАТЬ. Спасибо.

[BANGER]

Сообщение от Krieger Понятно, это осуществимо. С тебя блоки и размеры кружочков на которые они должны замещаться.

Масштаб платы 1-1. Всё остальное на фото.

[IMG]http://***********/5ee3c7b1.png[/IMG]

[IMG]http://***********/69bf24b2.png[/IMG]

[VitalyAF]

В таком виде я получил ЭКСПОРТ из программы DIPTRACE

Я уверен, что в исходнике всё это можно сделать с меньшими затратами, подредактировав библиотеку.
Или экспортните в Eagle, там великолепный экcпорт в DWG...

[Krieger]

Вместо кружочков с диаметром от 0.45 до 0.6 вставляются блоки circle1, а вместо кружочков с диаметром от 0.6 до 1.1 вставляются блоки circle2. Совсем больших кружочков я на плате не нашел.

Код:

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

(defun c:kr_circledraw (/ ss n list_name pr pt1 pt2 pt3)
(setq ss (ssget '((0 . "LWPOLYLINE") (42 . 1)))
      n 0
      list_name nil)
(repeat (sslength ss) (progn
			(setq list_name (append list_name (list (ssname ss n)))
			      n (1+ n))
			
			))
(foreach name list_name
    (progn
	(setq pr (entget name)
	      pt1 (assoc 10 pr)
	      pr1 (vl-remove pt1 pr)
	      pt1 (cdr pt1)
	      pt2 (cdr (assoc 10 pr1))
	      pt3 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2)))
      
      (cond
	((and (>= (distance pt1 pt2) 0.45) (< (distance pt1 pt2) 0.6))
		(entmake
		  (list
			'(0 . "INSERT")
			'(8 . "0")
			'(100 . "AcDbBlockReference")
			'(2 . "circle1")
			(cons 10 pt3)
			);list
		  );entmake
		(entdel name));
	((and (>= (distance pt1 pt2) 0.6) (< (distance pt1 pt2) 1.1))
		(entmake
		  (list
			'(0 . "INSERT")
			'(8 . "0")
			'(100 . "AcDbBlockReference")
			'(2 . "circle2")
			(cons 10 pt3)
			);list
		  );entmake
		(entdel name));
	);cond

      
      );progn
  );foreach
)