tiziano69
Guest
나는 뒤에 오는 문제가, 나는 vba 모양을 창조했습니다, 안쪽에는 단추가 있습니다 (이 경우에 이미지에서), 이미지를 클릭하고 아래 부호를, 문제는 autocad에서 활동적일 것입니다, 나는 autocad 창 안쪽에 "clik"를 만들 필요가 있습니다. 내가 피할 수 있고 명령이 즉시 활성화되어 데이터 포인트를 제공하고 공백 클릭하지 않도록하십시오.
감사합니다.
private sub image1_click()
객체로 dim utilobj
객체로 dim objacad
objacad를 설정 = getobject (, "autocad.application")
설정 utilobj = objacad.activedocument.utility
objacad.visible = 진정한
autocad.acadapplication.activedocument.sendcommand "라인" & vbcr
objacad를 설정 = getobject (, "autocad.application")
objdoc = objacad.activedocument 설정
이름 *
감사합니다.
private sub image1_click()
객체로 dim utilobj
객체로 dim objacad
objacad를 설정 = getobject (, "autocad.application")
설정 utilobj = objacad.activedocument.utility
objacad.visible = 진정한
autocad.acadapplication.activedocument.sendcommand "라인" & vbcr
objacad를 설정 = getobject (, "autocad.application")
objdoc = objacad.activedocument 설정
이름 *