How to create automatic layouts
The code runs on load do not need Mktabs. If you want change the.
(defun c:mktabs
and
(C:mktabs)
The "X" in a ssget implies get all, across the whole dwg, includes layouts.
(princ "Skip empty block") replace with (princ) it is used to just show objects were skipped that did not match test.
Viewport or VIEWPORT or viewport should all work. Maybe french version is viewports, to check Properties, click on a viewport.
Its getting an error due to language problem. In the version above I changed the command lines to force english translation please try as is don't change. We can add markers (princ "\n1") in the code so an see where it stops by the number got to say 5. Other wise maybe can test in VLIDE a lisp debugger for Autocad.
Will try to remove all Command and use VL which I think remains in english.
Please press F2 do a screen grab of command line so can see numbers if it does not work.
; Make new layout tabs based on block in model spce
; By AlanH July 2023
; French version for Model
(defun c:mktabs ( / ss obj inspt atts layname cpt bl tr ss2)
(setvar 'ctab "Otyet")
(princ "\n1")
(command "zoom" "_E")
(princ "\n2")
(setq ss (ssget "X" '((0 . "INSERT")(2 . "E0-Cadre")(410 . "Otyet"))))
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(setq inspt (vlax-get obj 'insertionpoint))
(setq atts (vlax-invoke obj 'Getattributes))
(setq layname (vlax-get (nth 0 atts) 'textstring))
(setq cpt (mapcar '+ inspt (list 212.7405 137.0 0.0)))
(setq bl (mapcar '+ inspt (list 20 30 0.0)))
(setq tr (mapcar '+ inspt (list 395 244 0.0)))
(setq ss2 (ssget "WP" (list tr bl)))
(if (= ss2 nil)
(princ "")
(progn
(command "_.layout" "c" "Master" layname)
(princ "\n3")
(setvar 'ctab layname)
(command "_.zoom" "E")
(command "_.mspace")(princ "\n4")
(command "_.zoom" "C" cpt "0.9XP")(princ "\n5")
(command "_.pspace")
(setq ent (ssname (ssget "x" (list (cons 0 "Viewport")(cons 410 (getvar 'ctab)))) 0))
(setq obj (vlax-ename->vla-object ent))
(princ "\n6")
(vla-put-DisplayLocked obj -1)
(setvar 'ctab "Otyet")
(princ "\n7")
)
)
(princ "\n8")
)
(princ)
)
(c:mktabs)
Hello, sorry always a problem
Commande: MKTABS
1
Nécessite une distance, une valeur X ou une option.
Fonction annulée (in english Function canceled)
Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou
[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet] <temps réel>:
Spécifiez le coin opposé:
For the command ZOOM, in english AutoCAD LT 2023 Help | ZOOM (Command) | Autodesk
For the commande ZOOM in French AutoCAD 2022 Aide | ZOOM (commande) | Autodesk
