자료실 Q&A
||||r14에서는 멀티 브레이크(여러선을 선택하여) 한번에 똑같은 간격으로
한번에 잘라주는 명령어가 됬엇는데요.
2006에서는 어떡해야할지 모르겟네요.
2포인트 브레이크로 한개 밖에 자를수없으니.. 갑갑합니다.
14에서쓰던 리습을 편집해서 만들어 봤는데요.
리습올리기는 되는데요
명령어를 실행하면
"인수가 너무 많습니다." 이렇게 나오구 실행이 안됩니다.
어디가 잘못됐는지 한번 검토 부탁드립니다.
미리 이글을 보시구 리플 달아주시는 님들께 감사 드립니다.
꾸뻑(__)ㅎㅎ
(defun c:bb (/ cel ss ss2 ss4 E CC k mp kp mp0 mp1 kp0 kp1 pk1 pk2 pk3 pk0)
(setq ss (ssget "C" pt1 pt3))
(RMV)
(RMVE)
(SETQ CEC (GETVAR "CECOLOR"))
(SETQ ss2 (SSGET PT2))
(setq ss4 (ssget (polar pt2 (+ ang1 (dtr 180)) d2)))
(SETQ E (ENTGET (SSNAME ss2 0)))
(SETQ CC (CDR (ASSOC 62 E)))
(SETQ cel (CDR (ASSOC 8 E)))
(ssdel (ssname ss2 0) ss)
(ssdel (ssname ss4 0) ss)
(setvar "cmdecho" 0)
(command "break" (ssname ss2 0) pt1 pt2)
(command "break" (ssname ss4 0) pt3 (polar pt3 ang d1))
(setq mp0 (cdr (assoc 10 (entget (ssname ss 0))))
kp0 (cdr (assoc 11 (entget (ssname ss 0)))))
(setq mp1 (cdr (assoc 10 (entget (ssname ss 1))))
kp1 (cdr (assoc 11 (entget (ssname ss 1)))))
(setq pk0 (inters mp0 kp0 pt1 pt3)
pk1 (inters mp1 kp1 pt1 pt3))
(setq pk0 (polar pk0 (+ ang (dtr 180)) 90)
pk1 (polar pk1 (+ ang (dtr 180)) 90))
(setq pk2 (polar pk0 ang (+ d1 180))
pk3 (polar pk1 ang (+ d1 180)))
(command "break" (ssname ss 0) pk0 pk2)
(command "break" (ssname ss 1) pk1 pk3)
(SETLAY cel)
(COMMAND "COLOR" "BYLAYER" "")
(command "LINE" pt1 pt3 "")
(command "LINE" pt2 (polar pt3 ang d1) "")
(command "LINE" pk0 pk1 "")
(command "LINE" pk2 pk3 "")
(COMMAND "COLOR" cec)
(RTNLAY)
(setvar "BLIPMODE" 0)
(setvar "cmdecho" 0)
)
(defun brks (/ ss sse e cc cel ls no)
(setq ss (ssget "C" pt3 pt4))
(RMV)
(SETQ SSE (SSGET PT2))
(SETQ E (ENTGET (SSNAME SSE 0)))
(SETQ CC (CDR (ASSOC 62 E)))
(setq cel (cdr (assoc 8 e)))
(SETLAY cel)
(COMMAND "COLOR" "BYLAYER" "")
(command "LINE" pt1 pt3 "")
(command "color" d1:col)
(command "COPY" "L" "" pt1 pt2)
(command "TRIM" "L" "P" "")
(repeat ls
(setq no (1+ no))
(command (list (ssname ss no) pt4))
)
(command "")
(RTNLAY)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
)
한번에 잘라주는 명령어가 됬엇는데요.
2006에서는 어떡해야할지 모르겟네요.
2포인트 브레이크로 한개 밖에 자를수없으니.. 갑갑합니다.
14에서쓰던 리습을 편집해서 만들어 봤는데요.
리습올리기는 되는데요
명령어를 실행하면
"인수가 너무 많습니다." 이렇게 나오구 실행이 안됩니다.
어디가 잘못됐는지 한번 검토 부탁드립니다.
미리 이글을 보시구 리플 달아주시는 님들께 감사 드립니다.
꾸뻑(__)ㅎㅎ
(defun c:bb (/ cel ss ss2 ss4 E CC k mp kp mp0 mp1 kp0 kp1 pk1 pk2 pk3 pk0)
(setq ss (ssget "C" pt1 pt3))
(RMV)
(RMVE)
(SETQ CEC (GETVAR "CECOLOR"))
(SETQ ss2 (SSGET PT2))
(setq ss4 (ssget (polar pt2 (+ ang1 (dtr 180)) d2)))
(SETQ E (ENTGET (SSNAME ss2 0)))
(SETQ CC (CDR (ASSOC 62 E)))
(SETQ cel (CDR (ASSOC 8 E)))
(ssdel (ssname ss2 0) ss)
(ssdel (ssname ss4 0) ss)
(setvar "cmdecho" 0)
(command "break" (ssname ss2 0) pt1 pt2)
(command "break" (ssname ss4 0) pt3 (polar pt3 ang d1))
(setq mp0 (cdr (assoc 10 (entget (ssname ss 0))))
kp0 (cdr (assoc 11 (entget (ssname ss 0)))))
(setq mp1 (cdr (assoc 10 (entget (ssname ss 1))))
kp1 (cdr (assoc 11 (entget (ssname ss 1)))))
(setq pk0 (inters mp0 kp0 pt1 pt3)
pk1 (inters mp1 kp1 pt1 pt3))
(setq pk0 (polar pk0 (+ ang (dtr 180)) 90)
pk1 (polar pk1 (+ ang (dtr 180)) 90))
(setq pk2 (polar pk0 ang (+ d1 180))
pk3 (polar pk1 ang (+ d1 180)))
(command "break" (ssname ss 0) pk0 pk2)
(command "break" (ssname ss 1) pk1 pk3)
(SETLAY cel)
(COMMAND "COLOR" "BYLAYER" "")
(command "LINE" pt1 pt3 "")
(command "LINE" pt2 (polar pt3 ang d1) "")
(command "LINE" pk0 pk1 "")
(command "LINE" pk2 pk3 "")
(COMMAND "COLOR" cec)
(RTNLAY)
(setvar "BLIPMODE" 0)
(setvar "cmdecho" 0)
)
(defun brks (/ ss sse e cc cel ls no)
(setq ss (ssget "C" pt3 pt4))
(RMV)
(SETQ SSE (SSGET PT2))
(SETQ E (ENTGET (SSNAME SSE 0)))
(SETQ CC (CDR (ASSOC 62 E)))
(setq cel (cdr (assoc 8 e)))
(SETLAY cel)
(COMMAND "COLOR" "BYLAYER" "")
(command "LINE" pt1 pt3 "")
(command "color" d1:col)
(command "COPY" "L" "" pt1 pt2)
(command "TRIM" "L" "P" "")
(repeat ls
(setq no (1+ no))
(command (list (ssname ss no) pt4))
)
(command "")
(RTNLAY)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
)