Topic: Challenge (semi advanced) ...

[SMadsen]

Nice work, Mr. Puckett. Worthy of a "McCarthy award"

[Keith™]

impressive indeed ... my head hurts now ... I don't think I have ever seen a piece of code written quite like that....

I'll not post my feeble effort ...

[MP]

Nice work, Mr. Puckett. Worthy of a "McCarthy award"

Not really, but thank you Mr. Madsen!

[MP]

I'll not post my feeble effort ...

Since when have you penned a "feeble effort"? Go ahead and post it man, everyone has cool ideas.

[Mark]

Does this count?

Code: [Select]


(defun vp-coords (/ v2l gavp)

  (defun v2l (var)
    (vlax-safearray->list
      (vlax-variant-value var)
      )
    )

  (defun gavp ()
    (vla-get-activeviewport
      (vla-get-activedocument
        (vlax-get-acad-object)
        )
      )
    )

  (list
    (list
      (-
        (car (v2l (vla-get-center (gavp))))
        (/ (vla-get-width (gavp)) 2)
        )
      (-
        (cadr (v2l (vla-get-center (gavp))))
        (/ (vla-get-height (gavp)) 2)
        )
      )

    (list
      (+
        (car (v2l (vla-get-center (gavp))))
        (/ (vla-get-width (gavp)) 2)
        )
      (+
        (cadr (v2l (vla-get-center (gavp))))
        (/ (vla-get-height (gavp)) 2)
        )
      )
    )
  )


[MP]

Try it from paperspace (tilemode = 0, cvport = 1).

[Mark]

Oh ............ back to the drawing board.

[MP]

You'll get it.