flanked 이미지 삽입

[Papao]

안녕하세요.
나는 나에게 그림을 삽입 할 수있는 lisp가있어, 특정 폴더에 포함 된 모든 사진.
삽입점은 각 이미지의 마우스 클릭 (그림 영역에서)을 통해 입니다.

그러나, 화면에 삽입의 초기 지점을 주어진, 두에서 두에 겹쳐 쌓이는 이미지를 삽입 (아래 왼쪽 구석에서 시작, 아래 예로:□□문의
□□문의
□□문의 아래 코드:

(각 항목 (vl-directory-files loc "*.jpg" 1)
(command "._image" "_a")
(strcat loc ""항목)
뚱 베어
(* 사기 50.0)
0.0의
·
(command "_imageframe") 2) 명세
·

나는 스크린 포인트를 변수로 할당하려고, 다음 다음 이미지를 삽입하기 위해 그것을 증가 ...하지만 나는 무언가를 실수하고 따라서 작동하지 않습니다 :

(setq pt1 (getpoint "\n는 삽입 점을 나타냅니다:"))

어떤 제안이 있습니까?

 

[Papao]

녀석, 그런 것은?

 

[Papao]

allego 이미지 stacking 예제, 하단 왼쪽 코너에서 시작 (image 1)
미안하지만, 나는 그것을 게시하는 방법을 찾을 수 없었다 ...
View attachment 1880

 

[dsw]

나는 추측 ... 모두 휴가에있을 것입니까?

당신이 도울 수 있는 경우에 cmq, 이름 * 같은 주제에 대해 이야기하는 스레드가 있습니다 ...그리고 해결 된 것 같다. ·

 

[Papao]

견적 요청 .. 그들은 자격이 된 나머지를 가지고 그립을 분리.

그 사이에, 관심을 redone 감사, 당신이 게시 링크를 수정할 수 있다면, 그것은 나에게 작동하지 않습니다.

 

[dsw]

사실, 링크는 작동하지 않습니다 및 나는 reinsercate 이름 *, 나는 내 휴대 전화와 함께 게시하지만 때때로 나는이 사이트와 일부 디스플레이 / 엔트리 문제가있다. ...

 

[Papao]

reddish, 나는 이미이 게시물을 알고 생각
광산은 그 후의 요청이었습니다. 진화. ·

당신은 그것을 게시물에 잘했다, 나는 최종 코드가 누락 된 것을 통지했기 때문에: 나는 그것을 게시, 포럼의 다른 친구를 봉사 할 수 있습니다.

 

[GP.]

assuming 그 변수 팟캐스트 (percorso) e 제품정보 Sistano:

 (세션 60)
(setq diri 80); 행 사이 거리

(setq pt1 (getpoint "\n는 삽입 점을 나타냅니다:"))
(setq 임 (vl-directory-files loc "*.jpg" 1))
(초록 1)
(setq pt_ins의 pt)
(싱)
pt_ins (* 스케일 50.0) "0.0" )
(seq primacol (- 1개의 primacol))
(이후 primacol)
(setq pt_ins (극 pt_ins 0.0 말한다)
(임시)
(setq pt1 (극 pt1 (/ pi2))
(setq pt_ins의 pt)
·
·
(setq 임)
·
(파나)

 

[Papao]

hi gp I add/replaced your code within mine and it's fine.
학습하고 싶습니다.
이름 *