(defun c:oo()
(setq ech (getvar “cmdecho”))
(ssget)
(setq sel(ssget “p” ‘((0 . “LINE”))))
(setq ea(sslength sel))
(setq count 1
lh 0
)
(while (<= count ea)
(setq obj (entget (ssname sel (- count 1))))
(setq len (distance (cdr(assoc 10 obj))
(cdr(assoc 11 obj))
)
)
(setq lh(+ lh len))
(setq count(+ count 1))
)
(print lh)
(setq ggg(/ lh 2))
(command “offset” ggg)
)
위 리습은 선을 선택하면 먼저 선의 길이를 구합니다
그 구한 선의 길이를 반으로 나눕니다. 요길이값을 ggg 라는 변수에 저장합니다
이제 옵셋 명령어로 ggg 만큼 옵셋을 합니다.
첫번째 질문..
선을 한번 선택한후 또다시 옵셋할때 한번더 선택해야되는 번거러움이 있습니다
동일한 선이기때문에 한번만 선택하고 싶습니다.
두번째 질문..
이렇게 옵셋을 한번하고나면 자동으로 종료가 되어야 다시 엔터를 쳐서
이명령어를 반복할수가 있는데
offset 명령어가 살아있습니다. 한번 옵셋후 offset 명령에서 빠져나와게 했으면 좋겠습니다.
두번째 질문은 가능하면 좋고 안되도 별 상관은 없는데 첫번째 질문은 꼭좀 해결하고싶네요~