안녕하세요
CAD2012를 사용할때 잘 사용하던 LISP를 cad2016서 제대로 사용할수 가 없습니다.
pline중에 전체 호를 직선으로 변경하는 lisp이고 2012서는 전체가 잘 변경이 됬습니다.
근데 2016 캐드에 사용하니 일부만 직선으로 변경이 됩니다.
왜서 그럴까요 ?
도움 부탁 드립니다.
해당 lisp 첨부 합니다.
감사합니다.
치수와선이동 리습인데여~작동이 않되서여~
실행하면 잘못된 인수유형이라 나와서~부탁좀 드릴께여^^
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))
공유