Topic: entmod viewport.

[Amsterdammed]

Hi everybody,

In the Online Help they say

You cannot use the entmod function to modify a viewport entity

Can I entmake a viewport? I always get nil back instead of  the vp

Thanks in advance,

Bernd

[Kerry]

From Help

Notes on Using entmake

You cannot create viewport objects with entmake.

Have a look at vla-AddPViewport

[Amsterdammed]

Thanks Kerry 

There is nothing about it in my Acad Help

found that in Google

http://intervision.hjem.wanadoo.dk/vla/addpviewport.htm
Bernd

[Jeff_M]

Bernd,
The help for ActiveX methods and properties is "ActiveX and VBA Reference". For a great description of how to implement them, grab David M. Stein's "The Visual Lisp Developer's Bible" from HERE

Using Activex you can not only add a viewport, but modifying them is a piece of cake, too, unlike the (entmake) & (entmod) counterparts.......

[Amsterdammed]

Thanks Jeff

[FengK]

Add to Jeff's reply.  The help file for activex is acadauto.chm under dir C:\Program Files\AutoCAD 200(#)\Help
But I usually use acad_dev.chm also includes reference material for autolisp, dxf, ssm, etc.  I wrote a short lisp to open this file.  You'll need to add the help directory to support paths.
(defun C:REF ()
  (dos_shellexe
    (findfile "acad_dev.chm")
    nil
  )
  (princ)
)

[Amsterdammed]

ref no function definition: DOS_SHELLEXE; reset after error

is what i get when running your code, Kelie

Bernd

[Serge J. Gianolla]

Bernd, you need DosLib from Robert mcneel

[Serge J. Gianolla]

Forgot to mention it is a free arx!

[Jürg Menzi]

Or w/o DOSLib:

Code: [Select]

(defun C:CallDevHelp ( / HlpFil)
 (if (setq HlpFil (findfile "acad_dev.chm"))
  (startapp "hh.exe" (strcat "ms-its:" HlpFil "::/1aag.html"))
 )
 (princ)
)

[Andrea]

simple question....

why need entmake to create a vport ?

also..i have found something about adding Xdata in a viewport
(was modified for my use...)
but maybe this can help..

Code: [Select]

(defun c:xd(/ ent sel txts typex valeur)
  (princ "\n Please select the VIEWPORT :")
  (if (setq sel (ssget "_+.:E:s" '((0 . "VIEWPORT"))))
    (progn
      (vl-load-com)
      (setq ent (vlax-ename->vla-object (ssname sel 0)))
      (setq typex  (vlax-make-safearray vlax-vbInteger (cons 0 1))
                    Valeur (vlax-make-safearray vlax-vbVariant (cons 0 1)))
      (vlax-safearray-put-element typex 0 1001)
      (vlax-safearray-put-element valeur 0 "ANDREA")
      (vlax-safearray-put-element typex   1 1000)
      (vlax-safearray-put-element valeur 1 "TEST")
      (setq typex  (vlax-make-variant typex)
            valeur (vlax-make-variant valeur))
      (vla-setxdata ent typex valeur)
      ; et maintenant, je récupere les xdata
      (vla-getxdata ent "ANDREA" 'typex 'valeur)
      (setq txt (vlax-variant-value (nth 1 (vlax-safearray->list valeur))))
      (princ (strcat "\nLe The xdata of the viewport \"ANDREA\" is " txt))
    )
  )
  (princ)
)

[Amsterdammed]

 :-)Thanks all

Bernd