캐드 분류
문자 입력을 선택으로
컨텐츠 정보
- 334 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
문자 입력을
문자을 선택해서 바꿔으면 해서 이렇게 글올립니다.
(defun c:test( / str)
(if (setq str (getstring "n문자 입력:" T))
(sssetfirst nil (ssget "X" (list (cons 0 "TEXT,MTEXT,ATTDEF") (cons 1 (strcat "*" str "*")))))
)
(princ)
)
관련자료
댓글 5
/ 1 페이지
상큼메론90님의 댓글
.gif)
;; 선택문자 포함된 문자 선택 (defun c:test (/ ss ed text texx ) (setq ss (nentsel)) (setq ed (entget (car ss))) ;(setq text (assoc 1 ed)) (setq texx (cdr (assoc 1 ed))) (sssetfirst nil (ssget "X" (list (cons 0 "TEXT,MTEXT,ATTDEF") (cons 1 (strcat "*" texx "*"))))) (princ) )
;;;
