2011 버젼까지는 사용을 문제 없이 사용했었는데,
요번에 2016 버젼으로 버젼업을 하면서
리습 일부가 사용이 안됩니다..
그중 하나가 아래 것인데요.
혹시 2016 버젼이면 안되는 리습이 생겼거나 그런게 있나요??
CAD 재설치후 문제 많이 발생하네요 ㅠㅠ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun DDET-FL()
(setvar “cmdecho” 0)
(setq ISO_PAIR (getvar “SNAPISOPAIR”))
(COND
((and (= ISO_PAIR 0) (= iso-ang “330”))
(setq p2 (polar p0 (dtr 90) (* ds fd)))
(setq p3 (polar p0 (dtr -90) (* ds fd)))
)
((and (= ISO_PAIR 0) (= iso-ang “150”))
(setq p2 (polar p0 (dtr 90) (* ds fd)))
(setq p3 (polar p0 (dtr -90) (* ds fd)))
)
((and (= ISO_PAIR 0) (= iso-ang “90”))
(setq p2 (polar p0 (dtr 150) (* ds fd)))
(setq p3 (polar p0 (dtr 330) (* ds fd)))
)
((and (= ISO_PAIR 0) (= iso-ang “270”))
(setq p2 (polar p0 (dtr 150) (* ds fd)))
(setq p3 (polar p0 (dtr 330) (* ds fd)))
)
((and (= ISO_PAIR 1) (= iso-ang “330”))
(setq p2 (polar p0 (dtr 210) (* ds fd)))
(setq p3 (polar p0 (dtr 30) (* ds fd)))
)
((and (= ISO_PAIR 1) (= iso-ang “150”))
(setq p2 (polar p0 (dtr 210) (* ds fd)))
(setq p3 (polar p0 (dtr 30) (* ds fd)))
)
((and (= ISO_PAIR 1) (= iso-ang “30”))
(setq p2 (polar p0 (dtr 330) (* ds fd)))
(setq p3 (polar p0 (dtr 150) (* ds fd)))
)
((and (= ISO_PAIR 1) (= iso-ang “210”))
(setq p2 (polar p0 (dtr 330) (* ds fd)))
(setq p3 (polar p0 (dtr 150) (* ds fd)))
)
((and (= ISO_PAIR 2) (= iso-ang “30”))
(setq p2 (polar p0 (dtr 90) (* ds fd)))
(setq p3 (polar p0 (dtr -90) (* ds fd)))
)
((and (= ISO_PAIR 2) (= iso-ang “210”))
(setq p2 (polar p0 (dtr 90) (* ds fd)))
(setq p3 (polar p0 (dtr -90) (* ds fd)))
)
((and (= ISO_PAIR 2) (= iso-ang “90”))
(setq p2 (polar p0 (dtr 210) (* ds fd)))
(setq p3 (polar p0 (dtr 30) (* ds fd)))
)
((and (= ISO_PAIR 2) (= iso-ang “270”))
(setq p2 (polar p0 (dtr 210) (* ds fd)))
(setq p3 (polar p0 (dtr 30) (* ds fd)))
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:DFF()
(setvar “cmdecho” 0)
(setq cla (getvar “clayer”))
(setq os (getvar “osmode”))
(setq ds (getvar “dimscale”))
(Setq Ts (Cdr (Assoc 2 (Tblsearch “Layer” “Pipe”))))
(If (/= Ts nil)
(Setvar “Clayer” Ts)
(Command “Layer” “M” “Pipe” “C” “4” “Pipe” “”)
);If
(setvar “osmode” 512)
(setq P1 (GETPOINT “nFlow Mark 1st Point:”))
(setvar “osmode” 0)
(setq ANG (GETANGLE P1 “nFlow Mark Direction:”))
(setq ISO-ANG (angtos ANG 0 2))
(setq P0 (POLAR P1 ANG (* DS 3)))
(setq fd 1.0)
(DDET-FL)
(command “solid” p1 p2 p3 “” “”)
;(command “PLINE” p1 “W” “0” “0” p2 p3 p1 “”)
;(command”hatch” “solid” “l” “”)
(setvar “clayer” cla)
(setvar “osmode” os)
(princ)
)
2016을 써보진 않았지만
(command ~~~~
로 시작하는 것들이 바뀐걸로 알고 있습니다.
저기 command 부분을 다르게 바꿔줘야 한다고 본거 같은데 정확히 기억이….
인터넷검색해보면 나올거에요
헐;;;