r14에서 사용하던 리습을 2002에 적용하는데..
치수에 치수선만 나오고 치수랑 치수보조선은 나오질 않네요
:error: no function definition: DWGPATH 란 에러 밖엔..
DWGPATH는 멀 뜻하는지… 인서트하는 dwg는 모두 복사해서
적용시켰는데도.. 않되네여..
고수님들의 도움이 필요하네여..
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
함수가 정의되어 있지 않단 의미죠.. 하나의 리습이 아니라 여러개리습이 묶여서 같이 움직여야 될것으로 보입니다. 즉, 리습1개가 아니라 다른 리습도 같이 있어야될것으로..
리습을 아무리 봐도.. 잘 모르겠네여..
리습 올립니다. 2002에 적용할수 있는지,
(defun C:GSVERT ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “OSMODE”))
(if (= sch1 nil) (setdim) ) (setq wd1 (+ (* nar1 2.0) 3.0))
(graphscr)
(prompt “nDim: VERT “)
(setq p1 (getpoint “nFirst extension line origin : “)
p2 (getpoint “nSecond extension line origin : “)
p3 (getpoint “nDimension line location : “))
(setq ets1 (* (/ sch1 3.0) 1.2))
(setq px1 (car p1) py1 (cadr p1) px2 (car p2) py2 (cadr p2) px3 (car p3) py3 (cadr p3))
(setq ph1 (list px3 py1) ph2 (list px3 py2) ld0 (abs (- py1 py2)))
(setq ss (rtos ld0 2 pre1)) (if (= pre1 0) (setq ld1 ss) (setq ld1 (abc ss)))
(setq cy1 (- py1 (/ (- py1 py2) 2)) cx1 (- px3 (* (/ sch1 3.0) 2)))
(setq pc1 (list cx1 cy1))
(if (< py1 py2) (setq ang1 90 ang2 270) (setq ang1 270 ang2 90) )
(if (< ld0 wd1) (setq ang1 (+ ang1 180) ang2 (+ ang2 180)))
(prompt “nDimension text <") (princ (read ld1)) (setq ld2 (getstring "> : “))
(if (= ld2 “”) (setq ld2 ld1))
(setvar “OSMODE” 0)
(command “layer” “s” “0” “”) (command “line” ph1 ph2 “”)
(command “-insert” (dwgpath “ar1”) ph1 nar1 “” ang1)
(command “-insert” (dwgpath “ar1”) ph2 nar1 “” ang2)
(command “text” “c” pc1 sch1 “90” ld2 )
(if (> px3 px1) (setq pxl1 (+ px1 exo1) pxh1 (+ px3 ets1))
(setq pxl1 (- px1 exo1) pxh1 (- px3 ets1)) )
(setq pt1 (list pxl1 py1) pt2 (list pxh1 py1))
(command “line” pt1 pt2 “”)
(if (> px3 px2) (setq pxl2 (+ px2 exo1) pxh2 (+ px3 ets1))
(setq pxl2 (- px2 exo1) pxh2 (- px3 ets1)) )
(setq pt3 (list pxl2 py2) pt4 (list pxh2 py2))
(command “line” pt3 pt4 “”)
(setvar “OSMODE” osn1)
(setvar “cmdecho” 1)
(prin1))