[goshan.md]

Доброго дня

На просторах интернета нашел очень нужный мне LISP который создает точку в центре окружности, в оригинале он заменял круг на точку, я поменял erase на copy и тем самым оставил оригинал круга

Проблема такая- чтоб его запусить, я просто перетаскиваю его в окно автокада, а хотелось бы запускать по трем буквам ctp (circle to point) то есть defun c:ctp

Помогите закончить данную программку:

(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 "COPY" cset "")

Заранее спасибо

Свем добра!

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

https://dwg.ru/pub/9 ?

[koMon]

эм, команда копирования набора дублирует выбранные окружности... и она ятд там не нужна.

[VVA]

Сообщение от goshan.md я поменял erase на copy

Надо просто удалить эту строку из кода

Код:

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

(defun c:ctp ( / cset pt n)
;_ Circle To Point
(setq cset (ssget "_X" (list (cons 0 "circle")(cons 410 (getvar "CTAB")))) n 0)
(repeat (sslength cset )
(setq pt (cdr (assoc 10 (entget (ssname cset n)))))
(command "_point" "_non" pt)
(setq n (1+ n))
)
  (princ)
)

[goshan.md]

Сообщение от VVA Надо просто удалить эту строку из кода Код: [Выделить все] (defun c:ctp ( / cset pt n) ;_ Circle To Point (setq cset (ssget "_X" (list (cons 0 "circle")(cons 410 (getvar "CTAB")))) n 0) (repeat (sslength cset ) (setq pt (cdr (assoc 10 (entget (ssname cset n))))) (command "_point" "_non" pt) (setq n (1+ n)) ) (princ) )

Спасибо огромное, то что нужно!