I'm not exactly sure what you want, either, but given what the sample drawing asks for, if the idea is to get the Scale factor from a selected Viewport and assign that same Scale factor to any other selected Viewport(s), this seems to do that [lightly tested]:
(defun C:MVSF ; = Match Viewport Scale Factor
(/ tm vp1 vp1data n vp2 vp2data locked)
(setq tm (getvar 'tilemode))
(setvar 'tilemode 0); into Layout
(command "_.pspace"); in case in Model Space through a Viewport
(setq
vp1 (car (entsel "\nSource Viewport with desired Scale factor: "))
vp1data (entget vp1)
); setq
(prompt "\nTo assign its Scale factor to other Viewport(s),")
(setq ss (ssget "_:L" '((0 . "VIEWPORT"))))
(if ss
(progn ; then
(ssdel vp1 ss); remove source if chosen with others
(repeat (setq n (sslength ss))
(setq
vp2 (ssname ss (setq n (1- n)))
vp2data (entget vp2)
locked (= (logand 16384 (cdr (assoc 90 vp2data))) 16384)
); setq
(if locked (command "_.mview" "_lock" "_off" vp2 ""))
(command "_.mspace")
(setvar 'cvport (cdr (assoc 69 vp2data))); make current
(command
"_.zoom" "_scale" (strcat (rtos (/ (cdr (assoc 41 vp1data)) (cdr (assoc 45 vp1data))) 2 😎 "XP")
"_.pspace"
); command
(if locked (command "_.mview" "_lock" "_on" vp2 ""))
); repeat
); progn
(prompt "\nNo Viewports on unlocked Layer(s) selected."); else
); if
(setvar 'tilemode tm)
); defunIt prevents selection of Viewports on locked Layers, but does not prevent selection of Viewports whose Display is locked like those you want changed in the sample drawing. Since you obviously want to change those, even though their Display is locked, it unlocks any that are locked, and locks them again after changing their Scale factor. If it was a mistake to have the Display locked in those you want to change, it could be modified to change only those with unlocked Display, or to ask the User whether or not to change those with locked Display.
@darkfprh wrote:
.... I want to use the lisp in model space. (inside viewport)
I don't understand. Does that mean you always want to set all Viewports to the same Scale factor as the one you're in when you start? If not all of them, then presumably you need to select some, and you can't do that from in Model Space. My routine in Message 4 lets you start in either, but if you're in Model Space it forces you into Paper Space where you can select the source and target Viewports.
