ZoomCenter the active selection set

[fixo]

Thank you for immediate response,

Unfortunately I can not test it because few hours earlier something strange happened to my ACA 2011-64bit.

 

When ACA is starting I see this in command line window:

 

.....
Loading Modeler DLLs.
AutoCAD menu utilities loaded.
AutoCAD Architecture menu utilities ; error: COM exception: %1 could not be found
....

& now I get this error with every script:

...no function definition: VLAX-GET-ACAD-OBJECT

 

Even zw.lsp is not working now, although it was OK earlier today.

 

(I didn't do anything except testing some old .lsp files from my PC.)

'Repair installation' didn't help - same errors again and again,

Any suggestions ?

 

 

Sorry, no ideas

Both code were worked good on my end

(Still working on A2009)

Try move this line

(vl-load-com)

at the very end of code

 

~'J'~

[jyotsnachavan]

Hello sir,

Last time I have asked u about combining multiple layouts in Autocad to single pdf.Now I have tried these options through Pdf995, it is possible to create Multiple layouts of dwg file into single pdf.But this is not reliable.I have attached image here, this shows two options i.e.combine pdf995 print jobs & combine with previous pdf995 print jobI am using first option because I have three layouts which i want in single pdf file for one drawing.another dwg also have three layouts & i want single pdf for these layouts. both pdf,s should be separate.So I am not using second option from that window.But problem is if i am using first option from window only yet it merges second pdf with first one whether my second option is off..

 

Please help

Jyotsnao:)

[fixo]

Hello sir,

Last time I have asked u about combining multiple layouts in Autocad to single pdf.Now I have tried these options through Pdf995, it is possible to create Multiple layouts of dwg file into single pdf.But this is not reliable.I have attached image here, this shows two options i.e.combine pdf995 print jobs & combine with previous pdf995 print jobI am using first option because I have three layouts which i want in single pdf file for one drawing.another dwg also have three layouts & i want single pdf for these layouts. both pdf,s should be separate.So I am not using second option from that window.But problem is if i am using first option from window only yet it merges second pdf with first one whether my second option is off..

 

Please help

Jyotsnao:)

 

Sorry, I can't help

Start a new thread please

See picture

[tboy]

Try this one instead

 

;;rs.lsp
;;rotate selection set around its center
(vl-load-com)
; Convert value in radians to degrees
(defun rtd (a)
 (* 180.0 (/ a pi))
)
(defun C:RS  (/ a axss lp maxp minp midp points rot ss up)
 (setq    ss   (ssget)
   axss (vla-get-activeselectionset
          (vla-get-activedocument
        (vlax-get-acad-object))))
 (vlax-for a  axss
   (if    (not (vl-catch-all-error-p
          (vl-catch-all-apply
        (function (lambda ()
                (vla-getboundingbox a 'minp 'maxp))))))
     (setq points (append (list (vlax-safearray->list minp)
                (vlax-safearray->list maxp))
              points)
       )
     )
   )
 (setq    lp (car    (vl-sort points
            (function (lambda (a b)
                    (and (< (car a) (car b))
                     (< (cadr a) (cadr b)))))))
   up (car    (vl-sort points
            (function (lambda (a b)
                    (and (> (car a) (car b))
                     (> (cadr a) (cadr b)))))))
   )


 (vla-zoomwindow
   (vlax-get-acad-object)
     (vlax-3d-point lp)
      (vlax-3d-point up)
   )

 (setq midp (mapcar (function (lambda(a b)(/ (+ a b) 2.))) lp up))

 (initget 3)
 (setq rot (getreal "\nEnter a rotation angle in degrees: "))

 (vlax-for a  axss
 (vl-catch-all-apply
        (function (lambda ()
                (vla-rotate a (vlax-3d-point midp) (rtd rot)))))

     )

 (princ)
 )
(prompt "\n   >>>   Type RS to execute...")
(prin1)

~'J'~

 

 

It's OK (except something is wrong with degrees conversion).

Thanks again.

I started new thread called "ONE-CLICK commands", so please read it:

http://www.cadtutor.net/forum/showthread.php?t=49049