긴 오리엔테이션 텍스트 이동

[Il filo]

안녕하세요.

나는 건축가, 나는이 포럼 몇 년 전에 합류했지만, 다양한 이유로, 나는 오랫동안 디자인과 cad의 세계에서 멀리왔다.
마지막으로 나는 디자이너로이 세상을 주로 접근하고, 오래된 친밀하고 익숙한 소프트웨어를 복용하는 문제가 발생하지 않고, 나는 이미 수행하고 싶습니다 몇 가지 작업을 만났지만 나는 그것을 할 수있는 방법을 알고하지 않습니다.

나는 누군가가 한 번에 자신의 오리엔테이션을 따라 주어진 측정의 여러 자동 텍스트를 이동하는 방법을 알고 싶어.
나는 3d 스튜디오와 함께 로컬 좌표를 따라 더 많은 객체를 이동 할 때 최대 유사합니다.

불행히도 (그리고 예기치 않게) 그런 작업에 아무것도 찾을 수 없습니다.

이미지가 천 단어 이상 가치가있는 빠른 스케치를 첨부합니다.

답변을 원하는 사람에게 감사.

 

[Tristan]

autocad에서 로컬 좌표의 개념은 존재하지 않습니다, 그래서 당신이 lisp 또는 이러한 작업을 지원과 유사한, 나는 autocad가 네이티브 방식으로 할 수 있다는 것을 의심

 

[Il filo]

첫째, 답을 주셔서 감사합니다.

불행히도 내가 의심 한 것, 문제는 이미 일부 lisp를 사용 하 여에도 불구하고, 나는 현재 그들을 만들 수 없습니다.
그래서 또는 나는 적당한 lisp를 찾아내고 배우기 위하여 시간을 찾아내기 위하여 노력합니다. 우리는 볼 수 있습니다.

토론을 다시 열 수 있습니까? 어쩌면 다른 사용자는 내 문제에 대한 해결책을 가지고 ... 적어도 나는 희망! ?

 

[Legs]

사실 그것은 특히 지루한 것은 방향의 정상적인 (또는 평행선)에 따라 텍스트를 이동하기 위해 직접 명령이 없습니다.

각도를 알고 있다면 ( 속성에 대해 살펴보십시오) 길이와 회전 + 90을 설정하여 상대적인 이동을 사용할 수 있습니다.
상대적인 조정은 유형의 일 것입니다 (더 높은 90도 그렇게 염두에 두지 않거나 계산기를 가지고 가는):
@ 거리 < (+ 각도 90)

다른 솔루션은 쓰기를 선택하여 객체 조류를 설정하는 것입니다. 이 시점에서 간단한 이동이 완료됩니다 (이전 값에 덕트를 재설정해야합니다).

 

[Il filo]

이 방법은 좋은,하지만 항상 요소의 감소 된 금액에.
내 경우에는 아틀라스, 수천 개의 텍스트가 가장 다양한 방법으로 회전했다 : eek :

지금까지 사용 된 방법은 10° 텍스트의 범위에 대한 selerapid로 선정되었으며, 일시적으로 덕트를 변경하고 선택한 텍스트의 절반을 위쪽으로 이동하고 다른 다운그라운드 ( 명령 찾기와 비교), 모든 반복 36 시간.
그러나이 방법은 하나의 물건과 다른 사이에 작동 40과 60 분 사이에 나를 멀리.

그러나 나는 그들의 오리엔테이션에 따라 텍스트를 정확히 이동하는 데 필요한 경우 (지금은 나에게 일어나지 않았다) 나는 360 시간을 처리하는 것을 반복해야합니다 ... 마지막 시간의 조각!

그러나 대답 덕분에, 적어도 나는이 질문을 넣는 유일한 사람이 아니다. :

 

[GP.]

어떻게 작동하나요?

(defun c:tt (/txt t1 p1)
(vla-startundomark (vla-get-activedocument))의 경우
(princ "\selezionare 및 testi da spostare")
(setq txt (문자 '(0 . "텍스트")))))))
(setq d) (컨드
(getdist (strcat "\ndistanza di spostamento") (d (strcat "<" (rtos d 2 2) ">: ")))))))
₢ 킹
· )
(이 경우 (과 txt d)
(repeat (ssslength txt) (문자)
(vla-move) (vlax-ename->vla-object (setq t1 (ssname txt)))))
(vlax-3d 점 (setq p1 (cdr)))
(vlax-3d-point (극 p1 (+ (cdr (assoc 50)))) (/pi 2))))
·
·
(vla-endundomark (vla-get-activedocument))의 경우
(파나)
·

 

[Il filo]

어떻게 작동하나요?

(defun c:tt (/txt t1 p1)
(vla-startundomark (vla-get-activedocument))의 경우
(princ "\selezionare 및 testi da spostare")
(setq txt (문자 '(0 . "텍스트")))))))
(setq d) (컨드
(getdist (strcat "\ndistanza di spostamento") (d (strcat "<" (rtos d 2 2) ">: ")))))))
₢ 킹
· )
(이 경우 (과 txt d)
(repeat (ssslength txt) (문자)
(vla-move) (vlax-ename->vla-object (setq t1 (ssname txt)))))
(vlax-3d 점 (setq p1 (cdr)))
(vlax-3d-point (극 p1 (+ (cdr (assoc 50)))) (/pi 2))))
·
·
(vla-endundomark (vla-get-activedocument))의 경우
(파나)
·

와우!
나는 절대적으로 그것을 증명할 것입니다. 곧 내가 할 수 있기 때문에, 지금은 autocad의 앞에 있지 않습니다.

슈퍼 너!
내가 시도 할 때 알 수 있습니다.

 

[Il filo]

나는 여기.

좋아, 나는 매크로, lisp 및 일반 프로그래밍에 대해 꽤 무시합니다.

내가 명령 줄에 붙여 넣기 위해 시도한 모든이 코드이지만, 나는 그것이 일인지 여부를 파악할 수 없습니다.
이 문자열은 거기에 접착제가되지 않습니다?

 

[Cristallo]

lsp 확장 (e.g. tt.lsp)과 함께 텍스트 파일을 만들고 전체 코드를 복사해야합니다. 그것을 저장한 후에, appload에 의하여 autocad에서 적재하십시오
그 순간부터, 그것을 시작, 키보드에서 tt 다음 전송.
· 물론 (나는 당신에게 말할 것) 그가 원하는 스레드로 정확히 작동, 유일한 mole은 그가 순수한 텍스트에서만 작동, mtext에 아닌 (다른 사람의 유형? 더 많은 문제? 또는 단지 ssget의 질문? ·

 

[Il filo]

ღ♥ღdelucidation, 결정에 대한 감사. 그것은 내가 놓은 것을 정확히했다.
· 나는 당신을 감사하지 않는 경우 말을 모른다!
내가 원하는대로 정확히 작동합니다.
나는 시간을 가지고 내 문제를 읽고 해결하기 위해 대단히 감사합니다.

몇 가지 테스트 후 모든 것에 대한 작은 정보 :

• 나는 또한 mtext로 시도하고 그것이 작동하지 않다는 것을 확인, 그것은 정상적인 텍스트와 함께 간다 (자신적으로 말하기, 내가 관심이 무엇인지)
• 나는 다른 이유와 여러 텍스트를 이동하려고하고이 울트라는 최소한의 결과에 영향을 미치지 않습니다.
• 나는 긍정적이고 부정적인 둘 다 이동할 수 있습니다.

그것은 아마도 조금 쓸모없는 증거이지만 어쨌든했다.

 

[Il filo]

·나는 당신에게 마지막 일을 묻습니다.
나는 또한 다른 포럼에이 질문을 공식화했지만 다른 사용자와 아무런 결과가 없습니다.
이제 솔루션이 존재하기 때문에, 당신은 그것을 공유 할 수있는 권한을 줄 것입니까?
어쩌면 그것은 나에게 다른 사람을 봉사 할 수 있습니다.

· 물론 나는 내 가방, eh의 밀가루처럼 껍질을 벗지 않을 것입니다!

 

[GP.]

... 네오는 그가 순수한 텍스트에서만 작동한다는 것입니다, mtext에하지

...proven I 너무 cogli mtext 및 작동하지 않는 확인, 그것은 정상적인 텍스트에서만 간다

이 줄에 asterisk를 추가(setq txt) (문자 '(0 . "* 이름텍스트")

·당신은 그것을 공유 할 권한이 있습니까?

아무 문제도, 그래서 그들은 나를 알고