객체를 line에 맞춰서 회전시키는 lisp인데요…
line 말고 polyline으로 인식시킬수 있는 방법이 없을까요?
도움 바랍니다…^^
(defun c:rb(/ blo lin t1 t2 ta l1 l2 lsp lep laa)
(setvar “cmdecho” 0)
(setq lin (entsel “n>>기준객체를 선택하십시요! : “))
(setq blo (entsel “n>>회전할객체를 선택하십시요! : “))
(setq t1 (car blo)
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)
)