Papao
Guest
모든 것
dft 환경에서 삽입 할 수 있다면, 폴더의 모든 이미지가 자동으로?
감사합니다.
dft 환경에서 삽입 할 수 있다면, 폴더의 모든 이미지가 자동으로?
감사합니다.
hardedgeframework.application으로 dim objapp = 아무것도
hardedgedraft.draftdocument로 디엠 objdft = 아무것도
dim objsheet as solidedgedraft.sheet = 아무것도
objapp = marshal.getactiveobject("solidedge.application")
objdft = objapp.activedocument
objsheet = objdft.activesheet의 경우
dim objimages as solidedgedraft.images2d = objsheet.images2d
hardedgedraft.image2d = objimages.addimage (false, "nomeimmagine")로 디엠 objimage
objimage.setorigin(x, y) 'x ed y sono le 좌표 dove deve essere posizionata l'immagine
objimage.height = h 'h è l'altezza dell'immagine
objimage.width = w 'w è la larghezza dell'immagine
hardedgeframework.application으로 dim objapp
hardedgedraft.draftdocument로 디엠 objdft
dim objsheet로 solidedgedraft.sheet
objapp = getactiveobject("solidedge.application")를 설정합니다.
objdft = objapp.activedocument 설정
objsheet = objdft.activesheet를 설정
dim objimages 고형 초안.images2d
hardedgedraft.image2d로 dim objimage
objsheet.images2d를 설정
objimage = objimages.addimage (false, "nomeimmagine")를 설정합니다.
전화번호 setorigin(x, y) 'x ed y sono le 좌표 dove deve essere posizionata l'immagine
설정 objimage. 높이 = h 'h è l'altezza dell'immagine
설정 objimage. 너비 = w è la larghezza dell'immagine
죄송합니다. 몇 미터의 이미지를 나타내는 이중 유형 속성입니다. 100mm의 넓은 이미지를 원한다면 사용해야합니다.@be_on_edge에 대하여if의 sdk의 가이드에 대한 연결 덕분에, 그러나 가이드에서 두 값 "폭" & "높이"는 "속성"이며 "더블"는 "데이터 유형"입니다.
"image2d"를 참조하는 객체에 대해 이야기 할 때?
설정 objimage. 폭 = 0.1
아마도 필요하지 않은, vb6는 다른 사람에서 세트를 사용 한 일부 경우에 구문으로 이상한 하이브리드였다, 나는 왜 motivo를 기억하지 않습니다괜찮아, 나는 이해,하지만 당신은 "설정" 지시어와 값을 할당해야 이상한 것 같다 ... 단지 내가 더 이상 vb6을 사용하지 않는 한 세기에 ... 나는 내 기억을 새로워 갈 것이다.... 그것은 여름에 아프지 않습니다. ·
네, 참으로, 나는 호기심이다. ·아마도 필요하지 않은, vb6는 다른 사람에서 세트를 사용 한 일부 경우에 구문으로 이상한 하이브리드였다, 나는 왜 motivo를 기억하지 않습니다
objapp = getactiveobject("solidedge.application")를 설정합니다.
콜린스 vba
하위 createimage2d()
오류 goto createtoolpalette_error
hardedgeframework.application으로 dim oapp
집합 oapp = getobject (, "solidedge.application")
oapp.screenupdating = 거짓
hardedgeframeworksupport.image2d로 dim oimage
oimage = oapp.activedocument.activesheet.images2d.addimage(false, "percorso Completeo dell'immagine")를 설정합니다.
oimage.setorigin 0.1, 0.1을
oapp.screenupdating = 사실
설정 oimage = 아무것도
설정 oapp = 아무것도
오류 goto 0
출구 sub
createtoolpalette_error:
msgbox "errore" & err.number & " (" & err.description & ") nella procedura createimage2d, linea " & erl & "."
끝 이하
dim 앱 : set app = getobject(, "solidedge.application")
app.screenupdating = 거짓
디엠 이미지 : 설정 이미지 = app.activedocument.activesheet.images2d.addimage(false, "percorso Completeo del file")
'콜 image.setorigin(0.1, 0.1)
oppure의
이미지.setorigin 0.1, 0.1
app.screenupdating = 사실
# activex 인터페이스
win32를 사용하십시오:: ole;
win32를 사용하십시오::variant;
# use 기존 인스턴스 if solidedge is already running
eval {$solidedge = win32 ::ole->getactiveobject ('solidedge.application')};
$@이면 "solidedge not installed" 다이;
정의된 $solidedge
$solidedge = win32 ::ole->new('solidedge.application')
또는 다이 "누구를 시작 할 수 없습니다";
이름 *
$doc = $solidedge->activedocument();
$img = $doc->activesheet->images2d->addimage(false, "percorso Completeo del file");
$img-setorigin (0.1, 0.1);
win32com.client, 시간, win32con 가져 오기
앱 = win32com.client.dispatch("solidedge.application")
앱이 없다면:
img = app.activedocument.activesheet.images2d.addimages(false, "percorso Completeo del file") 의 경우
img.setorigin(0.1, 0.1)
다른 것:
print("여기! 고체 비 trovato!"
올바른 코드는:나는 당신을 실망시키는 미안 해요, 하지만 난 아직 vb6에 아무것도 작성하지 않았다, 프랜시스가 제안하는 것을 시도를 제외하고: 불행히도 나는 하루에 몇 분을 열 수 있으며 항상. .
나는 vb6를 물었다. 그는 단지 내가 조금 알고 있기 때문에, 나는 francesco가 원래 게시 된 코드를 이해할 수 없었다.
그러나 코드를 테스트, 다음 줄이 잘못되고 라이브러리 나는 그것을 활성화 한 생각Code:objapp = getactiveobject("solidedge.application")를 설정합니다.
objapp = getobject (, "solidedge.application")를 설정합니다.
당신은 추가 할 파일 이름을 넣지 않았다; 당신은 폴더에 포함 된 각 이미지에 대한 addimage 방법을 사용해야합니다. 이것처럼:감사합니다, 항상 매우 친절 ... 너무 많은 난 말을하지
그러나 나는 vba의 코드가 다음 오류를 반환하기 때문에 잘못 생각 :View attachment 71893이 코드 라인은 경로에 입력하고 내부에는 하나 이상의 jpg 유형 파일을 포함합니다Code:set oimage = oapp.activedocument.activesheet.images2d.addimage(false, "c:\users\paolo\desktop\solid edge\parte1")
strfiles = dir("c:\users\paolo\desktop\solid edge\parte1")
x = 0.12의
strfiles <> "
oimage = oapp.activedocument.activesheet.images2d.addimages(false, strfiles)를 설정한다.
이름 * setorigin의 x, 0.1
x = x + 0.1을
strfiles = 디
주 메뉴