리습이 않됩니다.<br>리습이 않됩니다
컨텐츠 정보
- 305 조회
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요
치수와선이동 리습인데여~작동이 않되서여~
실행하면 잘못된 인수유형이라 나와서~부탁좀 드릴께여^^
2002에서 쓰던 리습입니다.
(defun c:ted ()
(graphscr)
(setq line_en (entsel "n Pick a LINE :")
line_br_en (car line_en)
line_ent (entget (car line_en))
line_sp (cdr (assoc 10 line_ent))
line_ep (cdr (assoc 11 line_ent))
)
(setq txt_en (entsel "n Pick a TEXT :")
txt_mo_en (car txt_en)
txt_ent (entget (car txt_en))
txt_bp (cdr (assoc 10 txt_ent))
txt_ln (cdr (assoc 42 txt_ent))
txt_an (cdr (assoc 50 txt_ent))
)
(setvar "orthomode" 1)
(command "move" txt_mo_en "" txt_bp pause)
(setq mo_po (getvar "lastpoint")
mo_an (angle txt_bp mo_po)
mo_ln (distance txt_bp mo_po)
line_n_ep (polar line_ep mo_an mo_ln)
line_n_sp (polar line_n_ep txt_an (+ 1.5 txt_ln))
line_br_sp (polar line_ep txt_an (+ 1.5 txt_ln))
line_br_ep (polar line_ep txt_an (+ 6.5 txt_ln))
)
(command "line" line_br_ep line_n_sp line_n_ep "")
(setq line_ent (subst (cons 11 line_br_ep) (assoc 11 line_ent) line_ent))
(entmod line_ent)
(restore)
(un_E)
(princ))