캐드 분류
사용중인 리습인데 다중선택으로 변경 가능할까요?ㅠ
컨텐츠 정보
- 209 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
텍스트를 선택한 선과 수평으로 돌려주는 리습인데,
텍스트 한개씩만 적용이 가능해서요 ㅜ
제가 한번 해결해보려고 했는데 도통 안되네요..도와주세요ㅠ
명령어 사용시 텍스트 한개만 선택되는게 아니라, 다중선택이 가능하도록이요!
(defun c:tt(/ tex lin t1 t2 ta l1 l2 lsp lep laa)
(setvar “cmdecho” 0)
(setq tex (entsel “n>>문자를 선택하십시요! : “))
(setq lin (entsel “n>>라인을 선택하십시요! : “))
(setq t1 (car tex)
t2 (entget t1)
ta (assoc 50 t2)
l1 (car lin)
l2 (entget l1)
)
(setq lsp (cdr (assoc 10 l2)))
(setq lep (cdr (assoc 11 l2)))
(setq laa (angle lsp lep))
(if (and (> laa 1.5708) (<= laa 4.71239))
(setq laa (angle lep lsp))
)
(if (and (<= laa 1.5708) (> laa 4.71239))
(setq laa (angle lep lsp))
)
(setq t2 (subst (cons 50 laa) ta t2))
(entmod t2)
(princ)
)
lisp
관련자료
댓글 5
/ 1 페이지
주왕님의 댓글
;;;ZWCAD에서 확인………오토캐드에서 는 확인 못함 해보세요;;;;;;;;;;;;;;;;;
(defun c:TEST(/ tex lin t1 t2 ta l1 l2 lsp lep laa ss) (setvar “cmdecho” 0) (setq tex (ssget “_:L” ‘((0 . “TEXT”)))) (if (not tex) (progn (princ “nNo text selected.”) (return))) (setq lin (entsel “n>>>☞ 라인을 선택: “)) (if (or (not tex) (not lin))
(progn (princ “nInvalid selection.”) (return))) (setq ss (sslength tex)) (setq i 0) (while ( laa 1.5708) (<= laa 4.71239)) (and ( laa 4.71239))) (setq laa (angle lep lsp)) ) (setq t2 (subst (cons 50 laa) ta t2)) (entmod t2) (setq i (1+ i)) ) (princ) )
