Weet iemand het commando om via de lispfile de frm dialoog terug van het scherm te laten verdwijnen ?
Achter mijn OK knop zit het volgende:
Private Sub ok_Click()
thisdrawing.SetVariable "UserI1", 1
End Sub
in mijn lisp file staat het volgende:
(defun goto1000k ()
(setq applic (vlax-get-acad-object))
(vla-eval applic "d1000k.show")
(if (= (getvar "USERI1") 1)
(?????????????????)
)
)
Zeg Tom,
Ik heb gezoch in mijn bestanden en mss iets gevonden.
CiteerPrivate Sub CommandButtonOK_Click()
UserFormMDB.Hide
ThisDrawing.SendCommand ("-insert" & vbCr & dwg & vbCr & "s" & vbCr & "1" _
& vbCr & "r" & vbCr & "0" & vbCr)
End Sub
Met die .Hide laat ge uw frm verdwijnen. :wink:
Die userformmdb is de naam van uw userform, staat bovenaan bij de properties als ge uwe userform selecteert. :wink:
Ps: :idea: Zie ook eens bij uw deurraamproject.dvb, daar heb ik dat gevonden