(defun c:rtt()
(vl-load-com)
(setvar “cmdecho” 0)
(setq osm (getvar “osmode”))
(defun rtd (a)(/ (* a 180.0) pi))
(SETQ arcobj (vlax-ename->vla-object
(car (entsel “n curve object 를 선택하세요.”))
)
)
(SETQ SP (vlax-curve-getStartParam arcobj))
(setq ep (vlax-curve-getendParam arcobj))
(setq spt (vlax-curve-getpointatparam arcobj sp)) ;<= 시작점
(setq ept (vlax-curve-getpointatparam arcobj ep)) ;<= 끝점
(setq mpt (vlax-curve-getpointatparam arcobj (/ (+ sp ep) 2.0))) ;<= 중간점
(setvar “osmode” 512)
(setq pt2 (getpoint “n>>> Enter 2st Point : “))
(setq ss (entget (car (entsel))))
(setvar “osmode” 0)
(command “rotate” ss “” mpt pt2)

(setvar “osmode” osm)
(princ)
)

ROTATE 를 할때 객체의 중간점을 기준점으로 잡아서 돌릴려고합니다..
(setq ss (entget (car (entsel)))) <== 이부분이 잘못(?)된것 같은데 어떻게 객체를 잡아야 하나요??
감사합니다..