[swkx]

Примитив в чертеже-ссылке имеет одни координаты, после вставки в текущий чертеж они, естественно, другие. Как мне их связать между собой? Именованных ПСК ни в ссылке, ни в текущем чертеже нет. Команда trans не помогает - выдает те же координаты, что и в ссылке.

[Do$]

Пример чертежа и кода?

[kp+]

Экземпляр внеш. ссылки задает собой ПСК. В нее можно переключиться опцией "по объекту" (object) команды UCS.
И для нее можно пересчитать координаты функцией trans

[swkx]

Координаты мелких окружностей в исходных файлах (-5, 18) и (-22, 8), а координаты этих же окружностей после вставки (-16, 85) и (5, 0). Как мне эти вторые координаты получить программно?

Вот кусок кода:

(setq ssallblk (ssget "X" '((0 . "INSERT"))))
(if (NOT (= ssallblk NIL))
(progn
(princ "\nÁëîêîâ: ") (princ (sslength ssallblk))

(setq num -1)
(repeat (sslength ssallblk)
(setq num (+ num 1))
(setq ename (ssname ssallblk num))
(setq edata (entget ename))

(setq blokname (cdr (assoc 2 edata)))
(setq blok (TBLOBJNAME "BLOCK" blokname))
(while
(setq blok (entnext blok))
(setq data (entget blok))
(setq primtype (cdr (assoc 0 data)))
(if (= primtype "CIRCLE")
(progn
(setq centr (cdr (assoc 10 data))) ; - центр окружности
....

[kp+]

попробуй как-то так (без привязки к твоему коду)

Код:

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

      (vl-cmdf "_UCS" "_n" "_ob" MY_BLOCK_ENTITY)
      (setq MY_NEW_POINT (trans MY_OLD_POINT 0 1))
      (vl-cmdf "_UCS" "_p")

[swkx]

Спасибо.
Я примерно что-то такое и пробовал.
Буду опять тренироваться...

[Do$]

Скорее всего, нужно прибавить к полученным координатам (в переменной centr) координаты точки вставки внешней ссылки:

Код:

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

(mapcar '+ centr (cdr (assoc 10 edata)))

Это без учета масштаба и поворота внешней ссылки.
Файлы посмотреть не смог - сохранены они в версии как минимум AutoCAD 2007, а у меня 2006.
И еще (не удержался ), вот это вот "индийское" выражение:

Код:

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

(NOT (= ssallblk NIL))

можно заменить на просто:

Код:

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

ssallblk

[swkx]

Для некоторых чертежей достаточно методики, предложенной кр+,
а для некоторых приходится задействовать коорд. точки вставки вн. ссылки. Разбираюсь дальше.

По поводу "индийского" выражения: пользуюсь Лиспом редко, но давно, примерно с 1993 г., код "с нуля" почти не пишу, пользуюсь готовыми кусками старых программ и такие куски кочуют из года в год.

[Do$]

Держите функцию:

Код:

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

(defun trans-pt-from-blk (pt blk index)
    ;|
Функция перевода координат точки "внутри" блока во "внешнюю" систему координат.
Аргументы:
 pt - координаты точки "внутри" блока или внешней ссылки (список из трех чисел)
 blk - ename блока или внешней ссылки
 index - индекс СК, в которой требуется получить координаты точки (см.стандартную функцию trans).
Возвращаемое значение - координаты точки (список из трех вещественных чисел).
Пример вызова:
(trans-pt-from-blk
  (cdr
    (assoc 10
    (entget (car (nentsel "\nУкажите окружность внутри блока:"))
    ) ;_ end of entget
    ) ;_ end of assoc
  ) ;_ end of cdr
  (car (entsel "\nУкажите блок, в который входит эта окружность:"))
  1
) ;_ end of trans-pt-from-blk
--->(60.3515 53.9079 0.0)
|;
;;;Scale x,y,z:
  (setq pt (mapcar '*
     pt
     (mapcar '(lambda (code) (cdr (assoc code (entget blk))))
      (list 41 42 43)
     ) ;_ end of mapcar
    ) ;_ end of mapcar
  ) ;_ end of setq
;;;Rotation:
  (setq pt
  (polar '(0.0 0.0 0.0)
  (+ (angle '(0.0 0.0 0.0) pt)
     (cdr (assoc 50 (entget blk)))
  ) ;_ end of +
  (distance '(0.0 0.0 0.0) pt)
  ) ;_ end of polar
  ) ;_ end of setq
;;;Ins_pt:
  (setq pt (mapcar '+ pt (cdr (assoc 10 (entget blk)))))
;;;Normal:
  (setq pt (trans pt (cdr (assoc 210 (entget blk))) 0))
;;;Index:
  (setq pt (trans pt 0 index))
) ;_ end of defun

Пояснения - в комментариях кода. Код не оптимизировал для более легкого понимания.

[swkx]

Буду разбираться, хотя один момент сразу настораживает:
как я могу указать окружность внутри блока, не взорвав его?

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

(car (nentsel)), например.

[swkx]

Я здорово отстал..((