Topic: AutoCAD 2008

[Josh Nieman]

<looking in mailbox>
still nothing  =:/

<looking in mailbox>
still nothing  =:/

Me too!   

haha... i feel bad for you guys... for some reason... we just got a SECOND shipment in the mail, lol.

1st dibs...I got 1st dibs...

 

[Kate M]

<looking in mailbox>
still nothing  =:/

Me too!   

Me three...not that I get to install it when it gets here, seeing as how we launched 2007 yesterday...

[drizzt]

Wow!!!

When you people started the posts on 07 there where a lot of complaint... not even one for 08??

[Josh Nieman]

Wow!!!

When you people started the posts on 07 there where a lot of complaint... not even one for 08??

I have minimal complaints about 07..  to be fair, I think a lot of complaints come with the changes.  There were the biggest changes done to 07, from a bit of the interface to people even still hating CUIs, and even better yet a whole new file version which causes communication delays at times when you have to find out who has 07... who doesn't... yadda yadda.

08.. nothing's new stuff that you don't HAVE to use.  It's not imposing on anyones status quo.  There are some changes to existing things, but they are not mandatory.  It's all additions, not really (m)any changes.

[pmvliet]

I got my notification email on Friday the 23rd that is was shipping. So it should be here soon enough...

Pieter

[whdjr]

I got my notice today.   

[ronjonp]

Just got mine today and made my first annotative scaling text....pretty cool.
You can also overlay Microstation V8+ drawings now!

Ron

[Birdy]

still got nothin.
just a lump of coal.

[Birdy]

<looking in mailbox>
still nothing  =:/

<looking in mailbox>
still nothing  =:/

Me too!   

haha... i feel bad for you guys... for some reason... we just got a SECOND shipment in the mail, lol.

meh.
'sokay.
I wont even open it till probably June, and install it then.  Mess around with stuff for a few weeks, maybe more.  Roll out to everyone else in August.
By then y'all will have figured out the bad stuff so I wont step in any poo.
TIA.

[Kerry]

I loaded the "official" DVD last night.

I didn't migrate CUI's .. just re-ran partial Menuloads, appended to the PGP and manually loaded the Palette stuff we use.

Piece of cake !!

Chuck Gabriels Hotkeys STILL works great.

Lispy stuff runs.

Dont use VBA, so who cares ..

Jon's ADOLisp Library works

All my doc management stuff runs.

OpenDCL dialogs all work.

My NET stuff has been rebuilt and works without a hickup.

If I drank, I'd go down to the pub for a beer and lunch.





 

[hudster]

first annoyance, I use this lisp all the time, so this is not too good for me.

error: no function definition:
VLAX-ENAME->VLA-OBJECT

Code: [Select]

when using this lisp
;;  Function to copy blocks from one point to another

(defun c:RB
       (/      ent1   ent2   obj1   obj2   pt1
pt2    x      ss     index  keyw   rot
r2d    copyobj
       )
  (while
    (= ent1 nil)
     (setq ent1 (car (entsel "\n Select block to copy: ")))
     (if (= ent1 nil)
       (alert "\n You missed, try again...")
     )
  )
  (while
    (= ent2 nil)
     (setq ent2 (car (entsel "\n Select block you want to swap: ")))
     (if (= ent2 nil)
       (alert "\n You missed, try again...")
     )
  )
  (setq obj1 (vlax-ename->vla-object ent1)
pt1  (trans (vlax-get obj1 'insertionpoint) 0 1)
  )
  (setq obj2 (vlax-ename->vla-object ent2)
x    (vlax-get-property obj2 'Name)
  )
  (if
    (and
      (= (vla-get-ObjectName Obj1) "AcDbBlockReference")
      (not (vlax-property-available-p Obj1 'Path))
    )
     (progn
       (if (not *default*)
(setq *default* "Select")
       )
       (initget 0 "Select All")
       (setq keyw
      (cond
((getkword
   (strcat "\nEnter selection option (Select / All): <<"
   *default*
   ">>: "
   )
)
)
(*default*)
      )
       )
       (setq *default* keyw)
       (cond
((= Keyw "Select") (setq SS (ssget (list (cons '2 x)))))
((= Keyw "All") (setq SS (ssget "X" (list (cons '2 x)))))
       )
       (setq
index -1
       )
       (while (< (setq index (1+ index)) (sslength ss))
(setq obj     (ssname ss index)
       obj2    (vlax-ename->vla-object obj)
       pt2     (trans (vlax-get obj2 'insertionpoint) 0 1)
       rot     (vlax-get obj2 'Rotation)
       copyobj (vlax-invoke obj1 'Copy)
)
(vla-put-rotation copyobj rot)
(vlax-invoke copyobj 'Move pt1 pt2)
       )
     )
  )
  (princ)
  (command "_erase" ss "")
  (princ)
  (princ (strcat "\nBlocks swapped - " (itoa index)))
)

[Kerry]

first annoyance, I use this lisp all the time, so this is not too good for me.

error: no function definition:
VLAX-ENAME->VLA-OBJECT

You're not holding your mouth quite right Andy .. try again.

[Josh Nieman]

I loaded the "official" DVD last night.

----

Yea, I think I took it for granted, but all my LSP files continued working flawless (well... the ones that were flawless before ) and Al's Steel Mill still works 100%    I guess that's about the only LSP that I would never want to try and trouble shoot, that I use, heh.

[ronjonp]

first annoyance, I use this lisp all the time, so this is not too good for me.

error: no function definition:
VLAX-ENAME->VLA-OBJECT

Code: [Select]

when using this lisp
;;  Function to copy blocks from one point to another

(defun c:RB
       (/      ent1   ent2   obj1   obj2   pt1
pt2    x      ss     index  keyw   rot
r2d    copyobj
       )
  (while
    (= ent1 nil)
     (setq ent1 (car (entsel "\n Select block to copy: ")))
     (if (= ent1 nil)
       (alert "\n You missed, try again...")
     )
  )
  (while
    (= ent2 nil)
     (setq ent2 (car (entsel "\n Select block you want to swap: ")))
     (if (= ent2 nil)
       (alert "\n You missed, try again...")
     )
  )
  (setq obj1 (vlax-ename->vla-object ent1)
pt1  (trans (vlax-get obj1 'insertionpoint) 0 1)
  )
  (setq obj2 (vlax-ename->vla-object ent2)
x    (vlax-get-property obj2 'Name)
  )
  (if
    (and
      (= (vla-get-ObjectName Obj1) "AcDbBlockReference")
      (not (vlax-property-available-p Obj1 'Path))
    )
     (progn
       (if (not *default*)
(setq *default* "Select")
       )
       (initget 0 "Select All")
       (setq keyw
      (cond
((getkword
   (strcat "\nEnter selection option (Select / All): <<"
   *default*
   ">>: "
   )
)
)
(*default*)
      )
       )
       (setq *default* keyw)
       (cond
((= Keyw "Select") (setq SS (ssget (list (cons '2 x)))))
((= Keyw "All") (setq SS (ssget "X" (list (cons '2 x)))))
       )
       (setq
index -1
       )
       (while (< (setq index (1+ index)) (sslength ss))
(setq obj     (ssname ss index)
       obj2    (vlax-ename->vla-object obj)
       pt2     (trans (vlax-get obj2 'insertionpoint) 0 1)
       rot     (vlax-get obj2 'Rotation)
       copyobj (vlax-invoke obj1 'Copy)
)
(vla-put-rotation copyobj rot)
(vlax-invoke copyobj 'Move pt1 pt2)
       )
     )
  )
  (princ)
  (command "_erase" ss "")
  (princ)
  (princ (strcat "\nBlocks swapped - " (itoa index)))
)

Hint: (vl-load-com)

[hudster]

Seriously, that means nothing to me, i can use lisp for basic commands only. vl-blah blah is to hard for me to get yet.