[===AAA===]

Всем привет!

Подскажите, плиз, как изменить масштаб VIEWPORT'а, тот
самый, что влияет на группу 45 в списке VIEWPORT.

((-1 . <Имя объекта: 40087638>) (0 . "VIEWPORT") (330 . <Имя объекта: 4007bca0>)
(5 . "6CCF") (100 . "AcDbEntity") (67 . 1) (410 . "ОА-ВЫПУСК") (8 . "0")
(100 . "AcDbViewport") (10 408.5 285.0 0.0) (40 . 817.0) (41 . 570.0)
(68 . 2) (69 . 2) (12 408.5 285.0 0.0) (13 0.0 0.0 0.0) (14 1.0 1.0 0.0)
(15 5.0 5.0 0.0) (16 0.0 0.0 1.0) (17 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0)
(45 . 700) (50 . 0.0) (51 . 0.0) (72 . 100) (90 . 33568) (281 . 0) (71 . 1) (74 . 0)
(110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0))

Классическим ЛИСПом не получается. :-(

И еще, если кто знает, где можно посмотреть расшифровку
всех указанных выше групп для VIEWPORT'а? Некоторые
понятны, некоторые - нет.

[fixo]

Сообщение от ===AAA=== Всем привет! Подскажите, плиз, как изменить масштаб VIEWPORT'а, тот самый, что влияет на группу 45 в списке VIEWPORT.

Попробуй, сам проверить не могу

Код:

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

(defun scale-vport (vp_ent / axvp new_scale )
  (vl-load-com)
  (setq NEW_SCALE (getreal "\nНовый масштаб :\n"))
  (setq axvp (vlax-ename->vla-object vp_ent))
  (if (vlax-property-available-p axvp 'Customscale)
    (progn
      (vlax-put-property axvp 'Customscale NEW_SCALE)
      (vla-update axvp)
      (if (not (vlax-object-released-p axvp))
	(vlax-release-object axvp)
      )
    )
  )
  (vla-regen
    (vla-get-activedocument
      (vlax-get-acad-object)
    )
    acallviewports
  )
  (princ)
)
;CaLL: (scale-vport <viewport_entity>)

[===AAA===]

Привет!

Спасибо, попробую.

[AY]

Сообщение от ===AAA=== Всем привет! И еще, если кто знает, где можно посмотреть расшифровку всех указанных выше групп для VIEWPORT'а? Некоторые понятны, некоторые - нет.

Файл справки acad_dxf.chm далее в "ENTITIES Section" искать VIEWPORT.

[===AAA===]

Привет!

Кстати, получилось и "классическим" ЛИСПом.
Оказалось, достаточно войти в VIEWPORT и
дать команду (command "_.zoom" X), где
Х - нужный масштаб. :-)

[Лентяй]

Кстати, получилось и "классическим" ЛИСПом.

А если совсем просто и незатейливо, без мудрежа и выпендривания?- Properties->Select нужный viewport-> Standard Scale/Custom Scale и будет вам щастье?

[===AAA===]

Привет!

> А если совсем просто и незатейливо... ....и будет вам щастье?

Увы, не будет. Действие должно производиться автоматом,
без вмешательства пользователя, в цикле, обрабатывающем
множество файлов.

Разумеется, там много чего еще производится, замена
масштаба - лишь малая часть. Да и она выполняется лишь
при определенных условиях.

[Лентяй]

Действие должно производиться автоматом, без вмешательства пользователя, в цикле, обрабатывающем множество файлов.

Сразу такое говорить надо, партизан вы наш конспиративеый! Ловите идею

Код:

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

(defun VPC (new_scale)
  (vlax-for doc (vla-get-documents (vlax-get-acad-object))
    (vlax-for vpt (vla-get-PaperSpace doc)
      (if (= (vla-get-ObjectName vpt) "AcDbViewport")
        (progn (vla-put-CustomScale vpt new_scale) (vla-update vpt))
      )
   )
)

Не проверял, но должно работать.

[===AAA===]

Привет!

Спасибо, попробую...