Hello guys, can anyone give me a hand?
How do I edit the program to add a new viewport and crop and insert into the viewport the AutoCAD geolocation image.
Image example!
I tried to make some modifications to the code, but due to the little knowledge, I was unsuccessful!
any help is good life.
And thank you in advance !!
;;LINK
;;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/looking-for-a-lisp-routine-to-create-automulti-layouts-and/td-p/8539246
(defun GridsToLayouts
(
UseUndoMarks
/
GridLayer
GridAttribute
SourceLayout
TitleBlockHeight
KeyZoomFactor
TitleBlockName
TitleBlockSheetNumberAttribute
TitleBlockTotalSheetsAttribute
vl-GetAttributeValue
ss
i
enam
edata
grids
grid
id
previd
ssvp1
vp1
vpno1
ssvp2
vp2
vbno2
ptmin
ptmax
)
;;;*SOME SETTINGS THAT CAN BE CUSTOMIZED
(setq GridLayer "Layer1")
(setq GridAttribute "number")
(setq SourceLayout "001")
(setq TitleBlockHeight 80)
(setq KeyZoomFactor 0.33)
;(setq TitleBlockName "XXX_2")
;(setq TitleBlockSheetNumberAttribute "SHEET_NO")
;(setq TitleBlockTotalSheetsAttribute "NO_OF_SHEETS")
(defun vl-GetAttributeValue ( blk tag )
(setq tag (strcase tag))
(vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
(vlax-invoke blk 'getattributes)
)
)
(cond
((not (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 8 GridLayer)))))
(princ (strcat "\nNo grid blocks on layer '" GridLayer "' found."))
)
((not (member SourceLayout (layoutlist)))
(princ (strcat "\nSource layout '" SourceLayout "' not found."))
)
((> (length (layoutlist)) 1)
(princ (strcat "\nOnly layouts 'Model' and '" SourceLayout "' should exist."))
)
(T
(Vl-cmdf "_.IsolateObjects" ss "")
(setq i 0)
(while (< i (sslength ss))
(setq edata (entget (setq enam (ssname ss i))))
(if (and
(= (cdr (assoc 0 edata)) "INSERT")
(setq attval (vl-GetAttributeValue (vlax-ename->vla-object (cdr (assoc -1 edata))) GridAttribute))
)
(setq grids (cons (cons attval enam) grids))
)
(setq i (1+ i))
)
(setq grids (vl-sort grids (function (lambda (e1 e2) (< (car e1) (car e2))))))
(if UseUndoMarks (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))))
(if grids
(princ "\nCreating layouts...")
(princ "\nNo grids found...")
)
(foreach grid grids
(if grids
(progn
(setq id (car grid) enam (cdr grid))
(princ (strcat "\n layout '" id "'... "))
(if (not (member id (layoutlist)))
(command "._layout" "c" previd id)
)
(command "._layout" "s" id "._pspace")
(if (and
(setq ssvp1 (ssget "x" (list (cons 0 "VIEWPORT") (cons -4 "*,>,*") (list 10 0 TitleBlockHeight 0))))
(setq ssvp2 (ssget "x" (list (cons 0 "VIEWPORT") (cons -4 "*,<,*") (list 10 0 TitleBlockHeight 0))))
(setq ssvp3 (ssget "x" (list (cons 0 "VIEWPORT") (cons -4 "*,<,*") (list 10 0 TitleBlockHeight 0)))) ;;;; I edited here
)
(progn
(vla-getboundingbox (vlax-ename->vla-object enam) 'ptmin 'ptmax)
(setq vpno1 (cdr (assoc 69 (entget (setq vp1 (ssname ssvp1 0))))))
(setq vpno2 (cdr (assoc 69 (entget (setq vp2 (ssname ssvp2 0))))))
(setq vpno3 (cdr (assoc 69 (entget (setq vp3 (ssname ssvp3 0))))));;;; I edited here
(command "._mspace")
(setvar "CVPORT" vpno1)
(vla-zoomwindow (vlax-get-acad-object) ptmin ptmax)
(setvar "CVPORT" vpno2)
(vla-zoomwindow (vlax-get-acad-object) ptmin ptmax)
(setvar "CVPORT" vpno3) ;;;; I edited here
(vla-zoomwindow (vlax-get-acad-object) ptmin ptmax);;;; I edited here
(vl-cmdf "_.geomapimage" ptmin ptmax);;;; I edited here
(vla-zoomscaled (vlax-get-acad-object) KeyZoomFactor acZoomScaledRelative)
(command "._pspace")
(vla-zoomextents (vlax-get-acad-object))
)
(princ (strcat "\nUnable to find the two vieports needed for layout " id))
)
(setq previd id)
(if (= (length (layoutlist)) 255)
(progn
(princ "\nMaximum number of layouts met.")
(setq grids nil)
)
)
(vla-eval (vlax-get-acad-object) "DoEvents")
)
)
)
(princ "\... GridsToLayouts finished.")
(if UseUndoMarks (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))))
(vl-cmdf "_.UnIsolateObjects")
)
)
)
(defun C:GridsToLayouts nil (GridsToLayouts T) (princ))
;;;;(C:GridsToLayouts)
