[Composter]

здравствуйте,форумчане.накатал лиспик небольшой для выставление видовых экранов в лейаутах по точкам указанным в модели(по левому верхнему углу)

Код:

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

 
(defun c:Zod122 ( / spisok_layots 1_list flag pt1 pt2 pt_z vp_1 ss2 vp_obj_1 pt3)
(princ "\nвыставляет видовые экраны ")
(vla-put-ActiveSpace (vla-get-activedocument(vlax-get-acad-object)) 1)
(setq spisok_layots(cdr(ttc-layouts-list)) 1_list(car(loc:dwgru-get-user-dcl "Укажите лист" spisok_layots nil)))
(while (/= (car spisok_layots) 1_list)(setq spisok_layots (cdr spisok_layots)))
(while 	(null flag)
	(if 	(setq pt_z (getpoint (strcat "\n Укажите точку для листа " (car spisok_layots))))
			(if (setq ss2(ssget "_X" (list '(0 . "VIEWPORT")(cons 410 (car spisok_layots)))))
				(progn
					(vla-put-ActiveLayout (vla-get-activedocument(vlax-get-acad-object))(vla-item 
						(vla-get-layouts(vla-get-activedocument (vlax-get-acad-object))) (car spisok_layots)))
					(setq vp_1 (ssname ss2 0) vp_obj_1 (vlax-ename->vla-object vp_1))
					(vla-GetBoundingBox vp_obj_1 'pt1 'pt2)
					(setq pt1 (vlax-safearray->list pt1) pt2 (vlax-safearray->list pt2) pt3 (trans(list (car pt1)(cadr pt2) 0) 3 2))
					(vla-put-MSpace (vla-get-activedocument(vlax-get-acad-object))1)
					(vl-cmdf "_.pan" pt_z pt3)
					(vla-put-MSpace (vla-get-activedocument(vlax-get-acad-object))0)
					(vla-put-ActiveSpace (vla-get-activedocument(vlax-get-acad-object)) 1)
					(if (cdr spisok_layots)(setq spisok_layots(cdr spisok_layots))(setq flag T))
				)
			)
		(setq flag T)
	)
)
(princ)
)

в связи с этим вопрос можно ли строку (vl-cmdf "_.pan" pt_z pt3) заменить чем нибудь, что не было обращения через командную строку? сам копался в свойствах VIEWPORT ,нашел 12 пару которая отвечает за центр изображения в модели.но через entmode VIEWPORT нельзя изменить (
и еще вопрос что бы корректно было преобразование координат (trans pt 3 2) необходимо что бы лейаут был активен.можно ли сделать это преобразование находясь в пространстве модели и не переключаться в пространство лейаута?

[Psyakrev]

Используйте vla-zoomcenter - те же яйца, вид в профиль. Ничего другого не нашел

Код:

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

 (defun create-viewport (p1 p2 / p1x p1y p2x p2y vp_h vp_w vp)
    (rir-start)
    (setq p1x (car p1) p1y (cadr p1) p2x (car p2) p2y (cadr p2)
      vp_h (abs (- p1y p2y)) vp_w (abs (- p1x p2x))
      vp (vla-AddPViewport *acad-paper (vlax-3d-point (list (/ vp_w 2) (/ vp_h 2))) vp_w vp_h))
    (vla-display vp :vlax-true)
    (vla-put-mspace *acad-doc :vlax-true)
    (vla-put-activepviewport *acad-doc vp)
    (vla-zoomcenter *acad-app (vlax-3d-point (list (/ (+ p1x p2x) 2) (/ (+ p1y p2y) 2))) 1.)
    (vla-put-mspace *acad-doc :vlax-false)
    (vla-put-standardscale vp acVpCustomScale)
    (vla-put-CustomScale vp 1.0)
    (vla-put-Layer vp "Defpoints")
    )

Отсутствие очевидного решения такой казалось бы простой задачи наводит на печальные аналогии с ректальной тонзиллэктомией - но в условиях суровой российской реальности традиционные пути иногда бывают закрыты. Если я ошибаюсь - надеюсь мэтры деликатно меня поправят.

[Andrey_13]

Что такое "(rir-start)" в коде?

[skkkk]

Это пользовательская функция, описание которой автор забыл добавить. Я думаю, там должно быть нечто вроде этого:

Код:

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

 
(defun rir-start ()
    (vl-load-com)
	(setq *acad-app (vlax-get-acad-object) 
		  *acad-doc (vla-get-ActiveDocument *acad-app)
		  *acad-model (vla-get-ModelSpace *acad-doc)
		  *acad-paper (vla-get-PaperSpace *acad-doc)
	)
)

Может, чего еще, но для данного кода должно хватить.

[Andrey_13]

Сообщение от skkkk Может, чего еще, но для данного кода должно хватить.

Тогда и (vl-load-com) включить.

[skkkk]

дадада