[G-RAV]

Люди добрые, поможите, пожалуйста!
Нужен код, чтобы при выделении большого количества окружностей происходила их нумерация в самом чертеже, а параллельно создавался файл .csv в исходном каталоге чертежа, имеющий вид:

номер;x;y 

P.S. Сам бы попробывал, наваять )) но реально, надо очень срочно...

[Disney]

Экспорт координат выбранных точек в *.txt

[Дима_]

А нумеровать их в каком порядке (по созданию, по осям xyz, по размеру?) и на всякий случай пояните окружности это только примитивы circle или в Вашем понятии еще что-нибудь, поставтье задачу яснее. Написать подобное (если я правильно понял) займет минут 5 - вот только потом переписываться по поводу "а можно чтоб еще..." никакого желания нет.
p.s. - Как выглядит нумерация (шрифт по умолчанию?).

[G-RAV]

Сообщение от Дима_ А нумеровать их в каком порядке (по созданию, по осям xyz, по размеру?) и на всякий случай пояните окружности это только примитивы circle или в Вашем понятии еще что-нибудь, поставтье задачу яснее. Написать подобное (если я правильно понял) займет минут 5 - вот только потом переписываться по поводу "а можно чтоб еще..." никакого желания нет. p.s. - Как выглядит нумерация (шрифт по умолчанию?).

Да в принципе уже нашел (ткнули носом, искать, и в правду, не было времени)... Только вот жалко, что VLX хотелось бы взглянуть на сам код... Но я все таки отвечу на Ваши вопросы, вдруг у Вас будет время:
1. Нумеровать желательно по XY (по какой именно оси не суть важно)
2. Примитив только окружность CIRCLE
3. Шрифт, Имя слоя для текста и высота текста выбирается пользователем - в идеале было б DCL )))

вот и вся задача... )

[Дима_]

Короче за DCL неохота браться (окна через него не делал) - шрифт по дефолту:

Код:

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

(vl-load-com)
(defun c:markcircle ( / ss n)
  (setq n 0
        ss (vl-sort 
            (vl-sort
             (mapcar '(lambda (circle) (cdr (assoc 10 (entget circle))))
                     (sstolist (ssget (list (cons 0 "circle")))))
             '(lambda (a b) (< (car a) (car b))))
            '(lambda (a b) (< (cadr a) (cadr b))))
        );end of setq
  (vla-startundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
  (mapcar '(lambda (pt) (entmakex (list 
                                   (cons 0 "MTEXT")
                                   (cons 100 "AcDbEntity")
                                   (cons 67 0)
                                   (cons 410 "Model")
                                   (cons 100 "AcDbMText")
                                   (cons 10 pt)
                                   (cons 1 (rtos (setq n (1+ n))))
                                   ))) ss)
  (vla-endundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
  (setq n 0)
  (writefile (getfiled "Save as" "" "csv" 1)
             (mapcar '(lambda (pt) (strcat (rtos (setq n (1+ n))) ";" (rtos (car pt)) ";" (rtos (cadr pt)))) ss)
             nil)
  )
(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist
(defun writefile (F lst A); записывает список строк lst в файл F, если A установлен,то дописывает в конец
(setq F (if A (open F "a") (open F "w")))
(if F
(progn
(foreach tmp lst (princ (strcat tmp "\n") F))
(close F)
T
));end of progn&if
);end of writefile

markcircle

[Disney]

Сообщение от G-RAV Только вот жалко, что VLX хотелось бы взглянуть на сам код...

Там же выложил LSP и DCL, смотри...

[G-RAV]

Сообщение от Дима_ markcircle

Сообщение от Disney Там же выложил LSP и DCL, смотри...

Сенкс ))