| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Круги в точки

Круги в точки

Ответ
Поиск в этой теме
Непрочитано 19.07.2005, 09:58 #1
Круги в точки
Димас
 
джедай
 
Магадан
Регистрация: 31.01.2005
Сообщений: 460

доброго времени суток
как можно быстро переделать круги в точки?
то есть в рисунок были вставлены точки как блок, затем этот блок был взорван до линий и кругов с текстом....
можно ли НЕ вручную построить точки вместо кругов?
а то более 500 точек было :(
Просмотров: 15289
 
Непрочитано 19.07.2005, 11:04
#2
zamtmn

КИПиА
 
Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
<phrase 1=


Если очень быстро, то можно в свойствах окружностей выставить очю маленький радиус, будет почти точка
zamtmn вне форума  
 
Непрочитано 19.07.2005, 11:10
#3
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


> zamtmn : я так подозреваю, что вставлялись donut, которые фактически являются полилинией, состоящей из 2 дуговых сегментов, и обладающая некоторой заданной (или вычисленной, неважно) толщиной. После разбития получаем 2 полуокружности. Это задачка такая, с кондачка не решается (имхо). Это все равно что спросить: а можно ли разбитые (exploded) размеры превратить обратно в нормальные размеры?
Прошу не воспринимать как наезд. Личное мнение, не более.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 19.07.2005, 11:24
#4
zamtmn

КИПиА
 
Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
<phrase 1=


>kpblc
Я имел ввиду случай что точки нужны только визуальные, а не для чегото еще

а полуокружность легко можно сконвертировать в окружность DSTP_CVARC2CL
DSTP_OBJRADSR для окружности может выставить радиус = 0
zamtmn вне форума  
 
Непрочитано 20.07.2005, 00:20
#5
vx

свободный художник (freelancer)
 
Регистрация: 24.04.2005
Сообщений: 58


>Димас

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

(setq cset (ssget "_X" (list (cons 0 "circle"))) n 0)
(repeat (sslength cset )
(setq pt (cdr (assoc 10 (entget (ssname cset n)))))
(command "point" pt)
(setq n (1+ n))
)
(command "erase" cset "")

--
у меня давление поднимается, когда получаю чертеж с разбитыми блоками или "нарисованными" размерами..
vx вне форума  
 
Непрочитано 20.07.2005, 01:22
1 | #6
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Думаю что всё таки надо выбирать "образцовую" окружность например по слою, радиусу и цвету, а потом уже менять на точки все попадающие под данные параметры.
Код:
[Выделить все]
(defun c:ctop (/ actDoc sDxf filList cirLst)
  (vl-load-com)
  (setq actDoc
	 (vla-get-ActiveDocument
	   (vlax-get-acad-object)))
  (if
    (and
      (setq sDxf(car(entsel "\nSelect sample circle ")))
      (= "CIRCLE"(cdr(assoc 0 (setq sDxf(entget sDxf)))))
      ); end and
    (progn
      (setq filList(vl-remove-if-not
		     '(lambda(x)(member(car x) '(8 62 40)))sDxf)
	    cirLst(mapcar 'vlax-ename->vla-object 
                    (vl-remove-if 'listp 
                     (mapcar 'cadr(ssnamex(ssget "_X" filList))))))
      (mapcar '(lambda(x)(vla-AddPoint
			   (vla-objectidtoobject actDoc(vla-get-OwnerID x))
			   (vla-get-Center x)))cirLst)
      (mapcar 'vla-Delete cirLst)
      ); end progn
    (princ "\nThis isn't circle or empty selection.")
    ); end if
      (princ)
      ); end of c:ctop
Очередной "одноразовый" код...
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 20.07.2005, 01:35
#7
Димас

джедай
 
Регистрация: 31.01.2005
Магадан
Сообщений: 460
<phrase 1=


Спасибо за ответы...
буду пробовать.
Задача действительно одноразовая - больше думаю этого человека к файлу не пущу :)
Димас вне форума  
 
Непрочитано 20.07.2005, 01:44
#8
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


>Димас
Цитата:
больше думаю этого человека к файлу не пущу
Глупо, батенька... Сделай в следующий раз резервную копию и пусти. Пускай отрабатывает "залёт"

Так может тебе надо было вставить в эти точки блоки которые там были? Так это в общем то не проблемма.
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 20.07.2005, 02:00
#9
Димас

джедай
 
Регистрация: 31.01.2005
Магадан
Сообщений: 460
<phrase 1=


Уже поздно :(
копии нет, время - тоже...
а точки нужны для работы в Land Desktop....
из блоков у меня их выдрать не получается, из множества кругов и линий тоже
то есть нужны только точки (а они были вставленны как блок да еще аж 4 раза и потом взорваны...)
Димас вне форума  
 
Непрочитано 25.06.2014, 19:52
#10
adon


 
Регистрация: 03.02.2005
Сообщений: 3


Нужная программа, плохо, что не выбирает объекты секрамкой...
adon вне форума  
 
Непрочитано 25.06.2014, 20:13
#11
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от adon Посмотреть сообщение
Нужная программа, плохо, что не выбирает объекты секрамкой...
Дак ты "_X" убери и будет рамкой выбирать, писать писать правильно что-то нынче лень, даже за 700 рэ
gomer вне форума  
 
Непрочитано 26.06.2014, 09:37
#12
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Есть еще FRTO. Позволяет менять что-то на что-то Как преобразовать точки в блоки?
+ еще
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Круги в точки

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск