주말농부님께서 만드신 화살표 그리는 리습입니다.
유용하게 쓰고 있습니다.
근데 화살표 크기를 조절할수는 없는가해서요? 리습을 올려보겠습니다.
제가 리습을 몰라서 부탁좀 드리겠씁니다 수정좀 해주세요 화살표 크기 조절할수 있게요 ㅠㅠ
;;------ quick leader -----------------------------------
(defun c:LE2(/ a kw os ldr asz clrd pt1 pt2 pt3 dw)
;->*error* start
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os)(setvar "dimldrblk" ldr)
(setvar "dimasz" asz)(setvar "dimclrd" clrd)
(princ))
;-<*error* end
(setq os (getvar "osmode"))
(setq ldr (getvar "dimldrblk"))
(setq asz (getvar "dimasz"))
(setq clrd (getvar "dimclrd"))
(setvar "osmode" 512)
(setvar "dimclrd" 256) ;치수선 색상
(prompt " 지시선그리기...")
;->화살촉 선택
(setq a "\n화살촉 선택[작은점(1)/닫고채움(2)/건축눈금(3)/오른쪽각도(4)] <작은점(1)>: ")
(initget "1 2 3 4")
(setq kw (getkword a))
(if (= kw nil) (setq kw "1"))
(cond ((= kw "1")
(progn (setvar "dimldrblk" "_DOTSMALL") (setvar "dimasz" 4))) ;작은점
((= kw "2")
(progn (setvar "dimldrblk" ".")(setvar "dimasz" 3))) ;닫고채움
((= kw "3")
(progn (setvar "dimldrblk" "_ARCHTICK") (setvar "dimasz" 2))) ;건축눈금
((= kw "4")
(progn (setvar "dimldrblk" "_OPEN90")(setvar "dimasz" 3))) ;오른쪽각도
)
;-<
(setq pt1 (getpoint "\n지시선 시작점 지정->"))
(setvar "osmode" 0)
(setq pt2 (getpoint pt1 "\n다음점 지정->"))
(setq pt3 (getpoint pt2 "\n다음점 지정->"))
(setq dw (getstring "\n지시선 형식[직선(St)/스플라인(S)] <직선(ST)>: "))
(if (= dw nil) (setq dw "st"))
(if pt3
(command "leader" pt1 pt2 pt3 "f" dw "" "" "n")
(command "leader" pt1 pt2 "f" dw "" "" "n")
)
(setvar "osmode" os)
(setvar "dimldrblk" ldr)
(setvar "dimasz" asz)
(setvar "dimclrd" clrd)
(prin1))
댓글
댓글 리스트-
작성자『형진`s』ⓢⓐⓨ 작성자 본인 여부 작성자 작성시간 08.09.24 리습의 개념을 몰라서리 사용만 할줄 알구요..수정할줄은 몰라서 그러는데 어떻게 안되겠습니까?ㅠㅠ 죄송 ㅠㅠ
-
작성자SOMA 작성시간 08.09.24 그럼 1234번의 크기를 기존보다 얼마로 키울려고 하시는지 알려주시면 조정해서 올릴께요.
-
작성자『형진`s』ⓢⓐⓨ 작성자 본인 여부 작성자 작성시간 08.09.24 크기는 도면작업할때마다 조금씩 다른데... 기존사이즈로 쓸때도 있구요...작게 쓰고 싶을때도 있고 그래요 ㅎㅎ 그때 그때 다르게 할순 없는건지요?ㅜㅜ
-
작성자SOMA 작성시간 08.09.24 가능은 합니다. 그런데 리습을 사용할때 매번 크기를 얼마로 사용할거라고 입력을 해야 하는 것도 불편할것 같은데요?
-
작성자『형진`s』ⓢⓐⓨ 작성자 본인 여부 작성자 작성시간 08.09.24 그렇게만 되게 해주세요 ^^