;======================================================================================================
; 폴리라인 방향 바꾸기 2010. 04. 30. 만든이 아키모아 달수
;======================================================================================================
(defun c:rep (/ ssg nList)
(vl-load-com)
(princ "\n폴리라인 방향 바꾸기")
(if (setq ssg (ssget ":S:E" '((0 . "LWPOLYLINE"))))
(progn
(setq nList
(apply 'append
(mapcar '(lambda (x) (list (car x) (cadr x)))
(reverse (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget (ssname ssg 0)))))
)
)
)
(vla-put-Coordinates
(vlax-ename->vla-object (ssname ssg 0))
(vlax-make-variant (vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble (cons 0 (- (length nList) 1))) nList)
)
)
(princ "\n선택한 폴리라인의 방향을 반대로 바꾸었습니다.")
)
)
(princ)
)(princ)
폴리라인방향바꾸기.lsp댓글
댓글 리스트-
작성자3:16 작성시간 10.05.02 첨보는 함수들이 있네요^^*
-
작성자3:16 작성시간 10.05.02 vlax-vbdouble <- 얘가 먼지..궁금합니다..ㅠㅜ
-
답댓글 작성자달수 작성자 본인 여부 작성자 작성시간 10.05.03 배열을 만들때 사용하고요..
리습으로 표현하면 점의 갯수가 몇개라고 미리 정의해 둔다고 해야 할거 같군요..
-
답댓글 작성자3:16 작성시간 10.05.03 아~~그렇군요..^^;;
역시나 설명만으론 이해하기가 어렵군요..ㅠㅠ
설명서에 안 나와 있는 녀석이길래 여쭤본거랍니다^^*
설명 감사합니다..달수님^^* -
작성자『형진`s』 작성시간 10.05.03 달수님도 감사합니다.^^