캐드 분류
2016 버젼에서는 리습이 안되나요?
컨텐츠 정보
- 233 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
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)
)
관련자료
댓글 2
/ 1 페이지