Creating a new revision

[shinnasuka116949]

Hey guys,

I'm new to auto lisp script and I was wondering if anyone could help me out? I'm trying to create a script that finds the last revision number from a cad file "C:\directory\project number\drawing number-rev1.dwg" and rev it up to the next number and does a save as. I'm not sure how to start one.

Thanks for any help!

[fixo]

Here you go, almost not tested

  (defun GetSummaryItem(filename opt / sinfo revno)
    (vl-load-com)
    (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    (setvar "sdi" 0)
    (setq ndoc (vla-open (vla-get-documents (vlax-get-acad-object)) filename :vlax-true nil))
    (setq sinfo (vla-get-SummaryInfo ndoc))

    (setq revno (vlax-get-property  sinfo opt ))
    (vla-close ndoc :vlax-false)    
  
    revno
)
  ;;	usage:
  
  ;;	(setq revision (GetSummaryItem "C:\\Test\\tempt.dwg" "RevisionNumber"))");<-- change file name and option to retrieve
  
;;----------------------------------------------------;;
  
  (defun SummarySet(filename  / doc n ndoc sinfo values)
    (vl-load-com)
    
    (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    (setvar "sdi" 0)
    (setq ndoc (vla-open (vla-get-documents (vlax-get-acad-object)) filename :vlax-false nil))
    (setq sinfo (vla-get-SummaryInfo ndoc))
    (setq values '("big boss" "comments here" "www.augi.com" "keywords here" "dummy" "001" "subject here" "title here"));<-- set your properties here
    
    (setq n 0)
    
    (foreach prop  '(Author
		     Comments
		     Hyperlinkbase
		     Keywords
		     LastSavedBy
		     RevisionNumber
		     Subject
		     Title
		     )
      (if (vlax-property-available-p sinfo prop T)
	
	  (vlax-put-property sinfo prop (nth n values)))
	   (setq n (1+ n))
	)
        
    (vla-save ndoc)
    (vla-close ndoc)
    (princ)
)
  ;;	 usage:
  
  ;;	(SummarySet "C:\\Test\\temp.dwg");<-- change file name

~'J'~