Lv.0 등록일: 2006-05-192006-05-19T14:15:39+09:00 2006-05-19T14:15:39+09:00카테고리: AutoCAD & CADian 글씨 합치는 기능이 있나요? 따로 떨어져 있는 글씨를 하나의 글씨로 합칠수 있는 기능이 있는지. jointext라는게 xpress에 있다는데 못찾겠더라구요.. 공유 Facebook 관련 있는 질문들 전기 외부 분전함 결선도 캐드파일 방을 수 있을까요 도구막대 이동시 미리보기가 안됩니다. 포인트의 좌표를 반올림한 위치로 이동시키는 기능이 있을까요? 캐드 이용시 마우스 이동, 드래그, 명령어 입력 등 버벅거림 현상 도와주세요... 3 답변 작성 순 최신 순 공감 순 [Deleted User] 2006-05-19T14:22:56+09:00답변 등록 답변 등록 일시 2006-05-19 2:22 pm AutoCAD에는 없는 기능의 명령일테니, 리습으로 구현 혹은 언급된 Xpress등의 유틸리티에서 제공하는 명령을 이용해야.. [Deleted User] 2006-05-19T15:14:00+09:00답변 등록 답변 등록 일시 2006-05-19 3:14 pm (defun C:TJ (/ t1 txt1 t2 txt2 txt) (setq t1 (entget (car (entsel “n 1st Joint Text : “)))) (setq txt1 (cdr (assoc 1 t1))) (setq t2 (entget (car (entsel “n 2nd Joint Text : “)))) (setq txt2 (cdr (assoc 1 t2))) (setq txt (strcat txt1 txt2)) (setq t1 (subst (cons 1 txt) (assoc 1 t1) t1)) (entmod t1) (entdel (cdr (car t2))) (prin1) ) [Deleted User] 2006-05-19T15:26:47+09:00답변 등록 답변 등록 일시 2006-05-19 3:26 pm 최신버전으로 업데이트하면 될겁니다:-))
AutoCAD에는 없는 기능의 명령일테니, 리습으로 구현 혹은 언급된 Xpress등의 유틸리티에서 제공하는 명령을 이용해야..
(defun C:TJ (/ t1 txt1 t2 txt2 txt)
(setq t1 (entget (car (entsel “n 1st Joint Text : “))))
(setq txt1 (cdr (assoc 1 t1)))
(setq t2 (entget (car (entsel “n 2nd Joint Text : “))))
(setq txt2 (cdr (assoc 1 t2)))
(setq txt (strcat txt1 txt2))
(setq t1 (subst (cons 1 txt) (assoc 1 t1) t1))
(entmod t1)
(entdel (cdr (car t2)))
(prin1)
)
최신버전으로 업데이트하면 될겁니다:-))