캐드 분류
리습이 안 됩니다…
컨텐츠 정보
- 273 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
치수선을 잘라내기 관련 리습을 받아서 오토캐드2018 support 폴더에 넣고 로드까지 성공했는데 명령어에는 뜨질 않습니다. ㅠㅠㅠ
뭐가문제인가요?
받은 리습의 메모장은
(defun c:dimtr ()
(setq cm (getvar "cmdecho"))
(setq bl (getvar "blipmode"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq tn1 (getvar "dimtxt"))
(setq sc (getvar "dimscale"))
(setq tn (* tn1 sc))
(prompt "nSelect dimension Please…")
(setq a (ssget (list (cons 0 "DIMENSION"))))
(setq ac (car (entsel "nSelect Trim line ")))
(setq ac1 (entget ac))
(setq pp1 (cdr (assoc 10 ac1)))
(setq pp2 (cdr (assoc 11 ac1)))
(setq n (sslength a))
(setq i 0)
(repeat n
(setq b1 (entget (ssname a i)))
(setq pt1 (cdr (assoc 13 b1)))
(setq pt2 (cdr (assoc 14 b1)))
(setq pt3 (cdr (assoc 10 b1)))
(setq pt4 (cdr (assoc 11 b1)))
(setq an (angle pt3 pt2))
(setq pt6 (polar pt4 an tn))
(setq dd1 (distance pt3 pt6))
(setq an1 (angle pt3 pt6))
(setq pt5 (polar pt3 an1 (* 2.0 dd1)))
(setq p1 (inters pp1 pp2 pt5 pt1 nil))
(setq p2 (inters pp1 pp2 pt3 pt2 nil))
(setq ccc (subst (cons 10 pt3) (cons 10 pt3) b1))
(setq cc1 (subst (cons 13 p1) (cons 13 pt1) b1))
(setq cc2 (subst (cons 14 p2) (cons 14 pt2) cc1))
(entmod cc2)
(setq i (+ 1 i))
)
(entdel ac)
(setvar "cmdecho" cm)
(setvar "blipmode" bl)
(princ)
)
(setq cm (getvar "cmdecho"))
(setq bl (getvar "blipmode"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq tn1 (getvar "dimtxt"))
(setq sc (getvar "dimscale"))
(setq tn (* tn1 sc))
(prompt "nSelect dimension Please…")
(setq a (ssget (list (cons 0 "DIMENSION"))))
(setq ac (car (entsel "nSelect Trim line ")))
(setq ac1 (entget ac))
(setq pp1 (cdr (assoc 10 ac1)))
(setq pp2 (cdr (assoc 11 ac1)))
(setq n (sslength a))
(setq i 0)
(repeat n
(setq b1 (entget (ssname a i)))
(setq pt1 (cdr (assoc 13 b1)))
(setq pt2 (cdr (assoc 14 b1)))
(setq pt3 (cdr (assoc 10 b1)))
(setq pt4 (cdr (assoc 11 b1)))
(setq an (angle pt3 pt2))
(setq pt6 (polar pt4 an tn))
(setq dd1 (distance pt3 pt6))
(setq an1 (angle pt3 pt6))
(setq pt5 (polar pt3 an1 (* 2.0 dd1)))
(setq p1 (inters pp1 pp2 pt5 pt1 nil))
(setq p2 (inters pp1 pp2 pt3 pt2 nil))
(setq ccc (subst (cons 10 pt3) (cons 10 pt3) b1))
(setq cc1 (subst (cons 13 p1) (cons 13 pt1) b1))
(setq cc2 (subst (cons 14 p2) (cons 14 pt2) cc1))
(entmod cc2)
(setq i (+ 1 i))
)
(entdel ac)
(setvar "cmdecho" cm)
(setvar "blipmode" bl)
(princ)
)
입니다.