La fonction de suggestion automatique permet d'affiner rapidement votre recherche en suggérant des correspondances possibles au fur et à mesure de la frappe.
J'ai internationnalisé les commandes de ce lisp mais à l'usage j'ai un message d'erreur: paramètre de la variable Autocad rejeté: "cvport" 2.
Ou est le problème.
Merçi de votre aide.
François.
Voiçi le lisp;
;Tip1687: VPLIM.LSP Pspace Limits in Mspace (c)2001, Murray Clack
;VPLIM.lsp draws the limits of a Paperspace Viewport Boundary in MODELSPACE
;VP - Get ViewPort object
;HT - Get Outside HeighT of Viewport
;WD - Get Oustide WiDth of Viewport
;VN - Get Viewport Number
;CTR - Get CenTeR of Viewport
;CTRX - Caluculate X of Viewport CenTeR
;CTRY - Caluculate Y of Viewport CenTeR
;VS - Get View Size of viewport
;XP - Calculate XP factor of viewport
;IW - Calculate Width of viewport
;BL - Calculate Bottom Left corner of viewport
;BR - Calculate Bottom Right corner of viewport
;TR - Calculate Top Right corner of viewport
;TL - Calculate Top Left corner of viewport
;PW - Save PlineWid
;OS - Save OSmode
;start function and define variables
(defun
C:VPL
(/ VP HT WD VN CTR CTRX CTRY VS XP IW BL BR TR TL PW OS)
;turn off command echoing
(setvar "cmdecho" 0)
;save current layer as "clay"
(setq clay (getvar 'clayer))
;make current layer defpoints
(command "_.layer" "_m" "_Defpoints" "")
;enter pspace
(command "._pspace")
;select viewport boundary
(setq VP
(entget
(car
(entsel
"\nSélectionnez fenêtre esp. papier pour dessiner contour limite dans esp. objet"
) ;_ end of entsel
) ;_ end of car
) ;_ end of entget
) ;_ end of setq
;Get Viewport height with
(setq HT (cdr (assoc 41 VP)))
;Get Viewport width with
(setq WD (cdr (assoc 40 VP)))
;Get Viewport Number
(setq VN (cdr (assoc 69 VP)))
;enter mspace
(command "._mspace")
;set correct viewport
(setvar "_cvport" VN)
;set UCS to View
(command "._ucs" "v")
;Get VIEWCTR store as CTR
(setq CTR (getvar "viewctr"))
;Get X of CTR
(setq CTRX (car CTR))
;Get Y of CTR
(setq CTRY (cadr CTR))
;Get inside Viewport height
(setq VS (getvar "viewsize"))
;Get XP Factor with HeighT / View Size
(setq XP (/ HT VS))
;Get inside width of Viewport by
(setq IW (* (/ VS HT) WD))
;Find four corners of Viewport
(setq BL (list (- CTRX (/ IW 2)) (- CTRY (/ VS 2))))