라인 사이 문자 넣기 리습 (반복문)
컨텐츠 정보
- 18 조회
- 0 추천
- 0 비추천
- 목록
본문
(defun emake_text (t8 t7 t10 t11 t72 t40 t1 t50)
(entmake
(list
(cons 0 “text”) ; ename
(cons 8 t8) ; layer
(cons 7 t7) ; style
(cons 10 t10) ; start-point
(cons 11 t11) ; arrange code 11
(cons 72 t72) ; arrange code 72
(cons 40 t40) ; hight
(cons 1 t1) ; descript = string
(cons 50 t50) ; angle = radian mode
)
)
)
(defun #wire_in-text ( text / ss p1 hi i la st id11 id72 id50 )
(setq ss (entsel “nt Select Line ?”))
(setq p1 (osnap (cadr ss) “Near”))
(setvar “OSMODE” 4)
(setq hi (* (getvar “TEXTSIZE”)) la (getvar “clayer”) st (getvar “textstyle”) id11 (list 0 0 0) id72 1 id50 0)
(vl-cmdf “_.Text” “M” p1 hi 0 text “”)
(vl-cmdf “_.Trim” (entlast) “” ss “”)
(setvar “OSMODE” 7423)
(prin1)
)
캐린이 입니다.
라인 사이 문자를 넣는 리습입니다.
명령어 한번에 하나 밖에 못넣는데 계속 반복되도록 하고 싶습니다.
중간에 명령진행중 멈추는거 같은데 도움부탁드립니다.