anomaly command corrisprop - lisp copy stair window

[x11start]

on autocad 2010 the command corresponds, works abnormally .... or maybe I don't use it properly (!):

this command is very useful to copy from one entity to another, certain characteristics; the problem arises when you have the need to copy a window of paper space, with another.
wanting to copy of the first only the scale.... and not the layer setting (those frozen in one window and not in another); the natural thing to do is:
- launch the co-ownership command and select the source window
- type "z" (sets)
- uncheck "layer" and leave selected "window"
- click on the destination window.

the logic would say that the first window is copied the scale (i.e. the zoom factor) ... but the layer settings are not copied.... instead the opposite happens!
reclicking on us again... the scale is copied.
Is there someone who can tell me if the command doesn't work well... or if I'm an idiot? Thank you.

 

[PlannerRoad]

the command presents the anomaly in my 2010 autocad. :frown:

 

[x11start]

Thanks plannerroad....

"mal common half gaudio"!

..... is it not that maybe there is some pious soul that has "rewritten" the command in lisp.... so as to replace it to the original?

 

[GP.]

It should work.

; copy the scale of a window of paper space
; to the other windows selected.
; 07/11/2014 - gian paolo cattaneo

(defun c:csf ( / sc windows)
(vl-load-com)
(setq sc)
(vla-get-customscale)
(vlax-ename->vla-object)
(car (entsel "\select source window "))
)
)
)
(princ "\nselect the target windows")
(repeat (setq n (sslength)))
(vla-put-customscale)
(vlax-ename->vla-object)
(ssname windows (setq n (1- n)))
)
♪
)
)
(princ)
)

 

[x11start]

Thank you very much!

It works great!

....my heel of achilles are all these commands vla... vlax....

 

[GP.]

Please, it was a pleasure. :smile:

 

[x11start]

gp I still found a small thing in your lisp: it only works with rectangular windows and not with polygonal windows or made by selecting an object. Would you please take care of it? I can't get my hands.

Thank you so much!

 

[GP.]

Here. .

; copy the scale of a window of paper space;
; to the other windows selected. ;
; 07/11/2014 - gian paolo cattaneo;
; 25/11/2014 - vers.2 (use polygonal windows) ;

(defun c:csf ( / fs sc n fd windows)
(vl-load-com)
(setq fs (car (entsel "\select source window "))))
(if (eq (cdr) (entget fs))) (lwpolyline)
(setq fs (cdr (assoc 330)))
)
(setq sc (vla-get-customscale (vlax-ename->vla-object fs)))
(princ "\nselect the target windows")
(repeat (setq n (sslength)))
(setq fd (ssname windows (setq n (1-n)))))
(if (eq (cdr (assoc 0 (entget fd)))) "viewport")
(vla-put-customscale (vlax-ename->vla-object fd ) sc)
)
)
(princ)
)

 

[x11start]

Thank you! It works perfectly!

 

[GP.]

Please, I didn't know that a polygonal window was like lwpolyline. :smile:

 

[Ingo]

you could change by making sure that you do not misogni select the end between destination?
but that the command applies to all existing windows in the layout headlights
copying the viewport center point?
Thank you.
in the sense that my windows are in other layouts