Scribd
Upload
4 views1 page

Update Attributes

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
4 views1 page

Update Attributes

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

(Defun C:ual ()

(foreach layout (layoutlist)


(setvar "ctab" layout)

(update_attributes)
(zsc)
(rvp)
(command "zoom" "e")
);foreach
(princ)
);defun
'--------------------------
(defun update_attributes()
(setq SH_NUM(getstring "\nSheet Number"))
(command "attedit" "y" "Template" "SH" "*" "w" "0,0" "420,297" "V" "R" SH_Num "")
)
'-----------------------
(defun ZSc()
;(command "zoom" "extent")
(setq os(getvar "osmode"))
(command "mspace")
(setvar "osmode" 1)
(setq P1(getpoint "\nFirst Point of rectangle"))
(setq P3(getcorner p1 "\nCorner Point of rectangle"))
(Command "Zoom" p1 p3)
(command "pspace")
;(command "zoom" "extent")
(setvar "osmode" os)
(command "save" "")
);defun
'------------------------------
(defun rvp ()
(setvar "cmdecho" 0)
(command "tilemode" 0)
(command "mspace")
(princ "\nProgram by: MANOJ BARAL ")
;(setvar "cvport" 5)
(setq p1 (getpoint "\nPick First Insertion Point...."))
(setq p2 (getpoint p1 "\nPick Second Insertion point...."))
(setq p3 (getpoint p2 "\nPick Third Insertion point...."))
(setq d1 (distance p1 p2))
(setq d (/ d1 2.00))
(setq a1 (angle p1 p2))
(setq a1 (* a1 57.29578))
(command "_.DVIEW" "" "_TW" (- a1) "")
(command "Zoom" p1 p3)
(command "pspace")
(command "zoom" "all")
(setvar "cmdecho" 1)
(princ)
)

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy