r14에서 사용된 파이프 끝단 처리 리습인데
2004에서는 에러가 납니다…
2004버젼으로 수정부탁드립니다…

(defun c:AC( / sp ep dist ang p1 p2 p3 p4)
;input
(setq os (getvar “osmode”))
(setvar “osmode” os)
(setq sp (getpoint “pick start point : “))
(setq ep (getpoint sp “pick int point : “))
;set work point
(setq dist (distance sp ep))
(setq ang (angle sp ep))
(setq p1 (polar sp ang (/ dist 2)))
(setq p2 (polar sp ang (/ dist 4)))
(setq p3 (polar p2 (+ ang 1.5708) (/ dist 10)))
(setq p4 (polar p2 (+ ang 4.71239) (/ dist 10)))
;command
(setvar “cmdecho” 0)
(setvar “osmode” 0)
(command “ARC” sp p3 p1)
(command “chprop” “l” “” “la” “D” “”)
(command “copy” “p” “” sp p1)
(command “mirror” “p” “” sp p1 “”)
(setvar “osmode” os)
(setvar “cmdecho” 1)
)

전에 nonno님께서 올려주신 리습 같은데요..
z값을 일괄적을 +, – 를 해주는 리습입니다.
그런데요 이 리습에서 만약 z값을 x, / 를 해서 변환이 가능한가요?
예로 도면에 등고선이 150지점인데 엉뚱한 z값 225125 란 값이 있습니다. 모든 등고선은 백단위 값이 일률적으로 125라는 값으로 적용되어있습니다. 해서 작업 순서는 일단 백단위 125는 동일이라서 아래 명령어로 -125 해서 모든 등고선 z값을 225000 백단위 밑으로 0을 만듭니다.
그다음 / 를 해서 십만단위 z값을 백단위 225로 맹글라고 하는데요.
물론 위 작업후 다시 -100을 하면 원래의 등고선 z값을 찾을수 있을거 같아서요. 답변 부탁드릴게요.

(defun c:xx (/ #a #b #c)
(vl-load-com)
(setq #a(ssget))
(setq #b(getreal “n≫≫≫Enter increment of Z value:”))
(repeat (setq #c(sslength #a))
(vla-move
(vlax-ename->vla-object(ssname #a (setq #c(1- #c))))
(vlax-3d-point ‘(0 0 0))
(vlax-3d-point (list 0 0 #b))
)
);;repeat
(princ (strcat “n” (itoa(sslength #a)) ” object displaced.≪≪≪”))
(princ)
);;defun