Veri noktası algılama modeline tıklayın, komut aktif olduğunda

[tiziano69]

Aşağıdaki sorunum var, bir vba formu yarattım, içeride bir düğme var (bu durumda bir görüntüde), aşağıdaki sürüme tıklayın ve aşağıdaki kodun bir parçası, problem otomatik olarak aktif olması, otocad pencere içinde bir "clik" yapmalıyım. Nasıl kaçınabilirim ve komutun hemen aktif olduğundan ve bir veri noktası sağlamak ve boş bir tık değil beklemekten nasıl kaçınabilirim.

Teşekkür ederim.


Özel sub image1_Click()

dim utilobj nesne olarak
dim objacad as object

objacad = getobject (, "autocad.application")
Utilobj = objacad.activedocument.uttitude.

objacad.visible = gerçek
Autocad.acadapplication.activedocument.sendcommand "linea" & vscrcr

objacad = getobject (, "autocad.application")
objdoc = objacad.activedocument

end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end