라인객체를 선택하여, z좌표를 일괄수정하는 리습을 만들고 있습니다.
아래가 현재까지 한 부분인데, 이 다음을 어떻게 진행해야 할지
모르겠네요.
예를 들어 선택된 모든 라인의 z좌표를 15.00로 바꾸고자 한다면,
어떻게 해야 하는지 알려주셨으면 합니다.
(defun c:ll ()
(setq line_ent (ssget “x” (list (cons 0 “line”))))
(setq linenum (sslength line_ent)) ;; 라인의 총 갯수를 구한다.
(princ “n전체 라인의 갯수는 “)
(princ linenum)
(princ “개입니다.”)(terpri)
(setq ed (entget (ssname line_ent 0)))
)