;;죄송합니다 아마추어라 선을 고대로 복사하는 수정은 못하겠어요... 대신 색깔변경구문을 추가했고 스냅이 달라지는게 보기 싫어서 스냅을 저장했다가 오프했다가 다시 불러오는걸로 바꿔봤습니다. 2019버전에서는 잘 되네요.. 저도 고캐드 선배분들께 도움을 많이 받았는데 도움이 됬으면 바래봅니다. (defun dtr (a)(* pi (/ a 180.0))) (defun rtd (a) (/ (* a 180.0) pi) ) (defun c:V112() (setq os (getvar "osmode")) ;(setvar "osmode" 0) (더보기
;;죄송합니다 아마추어라 선을 고대로 복사하는 수정은 못하겠어요…
대신 색깔변경구문을 추가했고
스냅이 달라지는게 보기 싫어서
스냅을 저장했다가 오프했다가 다시 불러오는걸로 바꿔봤습니다.
2019버전에서는 잘 되네요..
저도 고캐드 선배분들께 도움을 많이 받았는데 도움이 됬으면 바래봅니다.
(defun dtr (a)(* pi (/ a 180.0)))
(defun rtd (a)
(/ (* a 180.0) pi)
)
(defun c:V112()
(setq os (getvar “osmode”))
;(setvar “osmode” 0)
(setvar “cmdecho” 1)
(setq off100(getDIST “nSelect line of Distance : “))
(defun c:FC1 (/ e cs n i) (setq e (ssget '((-4 . ""))) cs (getstring "\nEnter new text style :") n (sslength e) i 0) (repeat n (H:entchg e i 7 cs) (setq i (1+ i)) ) (princ)) ;;;------------- in EXT_CMD.lsp ------------- (defun h:entchg(ent_lhj i_lhj type_lhj chg_lhj / old_lhj new_lhj var_lhj ent_lhj더보기
(defun c:FC1 (/ e cs n i)
(setq e (ssget ‘((-4 . “”)))
cs (getstring “nEnter new text style :”)
n (sslength e) i 0)
(repeat n
(H:entchg e i 7 cs)
(setq i (1+ i))
)
(princ))
그 리습은 저도 있어요.. 제가 만들려고 하는건 선택한 텍스트만 폰트를 바꿔주려는 건데.. 일단 임시로 만들어 쓰고는 있습니다.. 저기에 문자스타일에 스타일을 111로 만들어놨다면 스타일 111 입력값으로 선택한 텍스트를 변경해주려는 것인데 변수거절이 자꾸뜨네요.. 치수스타일은 쉽게 만들었었는데 문자스타일은 어렵군요.
그 리습은 저도 있어요.. 제가 만들려고 하는건 선택한 텍스트만 폰트를 바꿔주려는 건데..
일단 임시로 만들어 쓰고는 있습니다..
저기에 문자스타일에 스타일을 111로 만들어놨다면 스타일 111 입력값으로 선택한 텍스트를 변경해주려는 것인데 변수거절이 자꾸뜨네요.. 치수스타일은 쉽게 만들었었는데 문자스타일은 어렵군요.
선택한 텍스트만 폰트교체 리습 문의드립니다..
와우. 감사합니다.
와우. 감사합니다.
See less양쪽으로 옵셋 후 색깔 변경
색은 command “change” (entlast)”” “p” “c” “6” “”) (command “line” p2 p4 “”) (command “change” (entlast)”” “p” “c” “6” “”) 여기서 6을 쓰고 싶으신 색번호로 바꿔주세요
색은
command “change” (entlast)”” “p” “c” “6” “”)
(command “line” p2 p4 “”)
(command “change” (entlast)”” “p” “c” “6” “”)
여기서 6을 쓰고 싶으신 색번호로 바꿔주세요
See less양쪽으로 옵셋 후 색깔 변경
;;죄송합니다 아마추어라 선을 고대로 복사하는 수정은 못하겠어요... 대신 색깔변경구문을 추가했고 스냅이 달라지는게 보기 싫어서 스냅을 저장했다가 오프했다가 다시 불러오는걸로 바꿔봤습니다. 2019버전에서는 잘 되네요.. 저도 고캐드 선배분들께 도움을 많이 받았는데 도움이 됬으면 바래봅니다. (defun dtr (a)(* pi (/ a 180.0))) (defun rtd (a) (/ (* a 180.0) pi) ) (defun c:V112() (setq os (getvar "osmode")) ;(setvar "osmode" 0) (더보기
;;죄송합니다 아마추어라 선을 고대로 복사하는 수정은 못하겠어요…
대신 색깔변경구문을 추가했고
스냅이 달라지는게 보기 싫어서
스냅을 저장했다가 오프했다가 다시 불러오는걸로 바꿔봤습니다.
2019버전에서는 잘 되네요..
저도 고캐드 선배분들께 도움을 많이 받았는데 도움이 됬으면 바래봅니다.
(defun dtr (a)(* pi (/ a 180.0)))
(defun rtd (a)
(/ (* a 180.0) pi)
)
(defun c:V112()
(setq os (getvar “osmode”))
;(setvar “osmode” 0)
(setvar “cmdecho” 1)
(setq off100(getDIST “nSelect line of Distance : “))
(setq off1(* off100 0.5))
See less(SETQ a1(SSGET))
(SETQ NUM(SSLENGTH a1))
(SETQ INDEX 0)
(REPEAT NUM(SETQ b1(entget(ssname a1 index)))
(setq kkke(cdr(assoc 0 b1)))
(IF(= “LINE” kkke)
(progn
(setvar “osmode” 0)
(setq c1(assoc 10 b1))
(setq c2(assoc 11 b1))
(setq d1(cdr c1))
(setq d2(cdr c2))
(setq ang(angle d1 d2))
(setq p1(polar d1(+ ang(dtr 90)) off1))
(setq p2(polar d1(- ang(dtr 90)) off1))
(setq p3(polar d2(+ ang(dtr 90)) off1))
(setq p4(polar d2(- ang(dtr 90)) off1))
(command “line” p1 p3 “”)
(command “change” (entlast)”” “p” “c” “6” “”)
(command “line” p2 p4 “”)
(command “change” (entlast)”” “p” “c” “6” “”)
(setq index(+ index 1))
(command “osmode” os)
(SETQ KIS OFF100)))
(if
(= “ARC” kkke)
(progn
(setvar “osmode” 0)
(setq cc1(assoc 10 b1))
(setq rr1(assoc 40 b1))
(setq c1(assoc 50 b1))
(setq c2(assoc 51 b1))
(setq dd1(cdr cc1))
(setq r1(cdr rr1))
(setq d1(cdr c1))
(setq ang1(rtd d1))
(setq d2(cdr c2))
(setq ang2(rtd d2))
(setq ptt1(+ r1 off1))
(setq ptt2(- r1 off1))
(setq kkkk1(strcat “@”(rtos ptt1) “<"(rtos ang1)))
(setq kkkk2(strcat "@"(rtos ptt1) "<"(rtos ang2)))
(setq kkkk3(strcat "@"(rtos ptt2) "<"(rtos ang1)))
(setq kkkk4(strcat "@"(rtos ptt2) "<"(rtos ang2)))
(command "arc" "c" dd1 kkkk1 kkkk2)
(command "arc" "c" dd1 kkkk3 kkkk4)
(command "osnap" "int")
(setq index(+ index 1))
(SETQ KIS OFF100)
(setvar "osmode" os)))))
‘cal 명령이를 단축키로 쓸수있나요?
도구 사용자화 매게편집에서 3P, *3DPOLY 이런식으로 cal, *명령어 추가하세요. 오버킬 같은 경우도 명령어에 오버킬이 없지만 명령어 추가해주면 단축키변경해서 사용가능합니다
도구 사용자화 매게편집에서
3P, *3DPOLY
이런식으로
cal, *명령어 추가하세요.
See less오버킬 같은 경우도 명령어에 오버킬이 없지만 명령어 추가해주면 단축키변경해서 사용가능합니다
캐드 단축키 변경
됩니다 단지 e는 전체보기 이기 때문에 o로 바꾸시면 될거같은데요
됩니다 단지 e는 전체보기 이기 때문에 o로 바꾸시면 될거같은데요
See lessLISP쓸줄모르는데 오스냅이자꾸꺼집니다ㅠ
;osnap의 int, end, mid 옵션 자동 생성, 추가 옵션은 맨 밑에서 둘째줄에 추가하세요. (defun c:11A() (princ " = redraw ") (command "ortho" "on") (command "osnap" "int,end,mid,cen,per,ext,qua,NOD,INS,TAN,NEA") ) (defun c:xx11() (command "ortho" "off") (command "osnap" "off") ) 제가 쓰는겁니다. 위 구문엔 원하시는 스냅을 적으시면 되고 아래 리습은 스냅을 끌때 씁니다.더보기
;osnap의 int, end, mid 옵션 자동 생성, 추가 옵션은 맨 밑에서 둘째줄에 추가하세요.
(defun c:11A()
(princ ” = redraw “)
(command “ortho” “on”)
(command “osnap” “int,end,mid,cen,per,ext,qua,NOD,INS,TAN,NEA”)
)
(defun c:xx11()
(command “ortho” “off”)
(command “osnap” “off”)
)
제가 쓰는겁니다. 위 구문엔 원하시는 스냅을 적으시면 되고
See less아래 리습은 스냅을 끌때 씁니다. 선그릴때 달라붙는거 싫어서요
레이어 일괄변경리습 요청
(command "change" ss "" "p" "la" "0" "") (command "change" ss "" "p" "c" "BYLAYER" "") 커맨드명령어를 쓰시고 (setq ss (ssget)) 이걸로 객체 선택하시면 되겟네요
(command “change” ss “” “p” “la” “0” “”)
(command “change” ss “” “p” “c” “BYLAYER” “”)
커맨드명령어를 쓰시고
(setq ss (ssget))
See less이걸로 객체 선택하시면 되겟네요
전체를 선택하고 깨진글자 수정방법
;글자 폰트 바꿈 ;; Style Change ---------------> st (DEFUN C:FC() ;(defun stylech () (setvar "cmdecho" 0) (command "style" "standard" "asg,shbw" "" "" "" "" "") (prompt "\n This Program is change STYLE --> asg,shbw로 전환 \n ") (setq sss(ssget "X" '((0 . "TEXT")))) (setq num (sslength sss)) (setq i 0)더보기
;글자 폰트 바꿈
;; Style Change —————> st
(DEFUN C:FC()
;(defun stylech ()
(setvar “cmdecho” 0)
(command “style” “standard” “asg,shbw” “” “” “” “” “”)
(prompt “n This Program is change STYLE –> asg,shbw로 전환 n “)
(setq sss(ssget “X” ‘((0 . “TEXT”))))
(setq num (sslength sss))
(setq i 0)
(repeat num
(setq ent (entget (ssname sss i)))
(setq i (1+ i))
(setq ass (assoc 0 ent))
(if
(= “TEXT” (cdr ass))
(progn
(setq ass1 (assoc 7 ent))
(setq co (cons 7 “standard”))
(setq entl (subst co ass1 ent))
(entmod entl)
)
)
)
(prompt “n”)
(princ num) (prompt ” TEXT changed “)
(setvar “cmdecho” 0) (princ)
)
(defun c:aa()
(setq n 0)
(setq ss (ssget))
(setq id (load_dialog “aaa.dcl”))
(new_dialog “aaa” id)
(mode_tile “edit” 2)
(action_tile “edit” “(setq ed $value)”)
(setq ok (start_dialog))
(if (= ok 1)
(draw)
)
(unload_dialog id)
)
(defun draw()
(setq sl (sslength ss))
(repeat sl
(setq sn (ssname ss n))
(setq get (entget sn))
(setq as (assoc 1 get))
(setq con (cons 1 ed))
(setq sub (subst con as get))
(entmod sub)
(setq n (1+ n))
)
)
상단의 글자 폰트를 쓰고싶은 폰트로 바꾸어주시면 도면의 모든 폰트가 변경하신 폰트로 변경되요.
See less맘에 드시는거 쓰시고 수고하셔요
전체를 선택하고 깨진글자 수정방법
(defun c:FC1 (/ e cs n i) (setq e (ssget '((-4 . ""))) cs (getstring "\nEnter new text style :") n (sslength e) i 0) (repeat n (H:entchg e i 7 cs) (setq i (1+ i)) ) (princ)) ;;;------------- in EXT_CMD.lsp ------------- (defun h:entchg(ent_lhj i_lhj type_lhj chg_lhj / old_lhj new_lhj var_lhj ent_lhj더보기
(defun c:FC1 (/ e cs n i)
(setq e (ssget ‘((-4 . “”)))
cs (getstring “nEnter new text style :”)
n (sslength e) i 0)
(repeat n
(H:entchg e i 7 cs)
(setq i (1+ i))
)
(princ))
;;;————- in EXT_CMD.lsp ————-
(defun h:entchg(ent_lhj i_lhj type_lhj chg_lhj
/ old_lhj new_lhj var_lhj ent_lhj i_lhj type_lhj)
(if (>= i_lhj 0) (progn
(setq var_lhj (entget (ssname ent_lhj i_lhj)))
))
(if (< i_lhj 0) (progn
(setq var_lhj (entget (car ent_lhj)))
))
(setq old_lhj (assoc type_lhj var_lhj)
new_lhj (cons type_lhj chg_lhj))
(entmod (subst new_lhj old_lhj var_lhj))
(princ))
;;출처 VBCAD
해당 문자스타일을 입력하면 드래그한 문자를 모두 바꾸어 줍니다.
See less깨진글자를 돌릴땐 고딕이나 돋움으로 바꿔주시면 돌아와요
컨트롤c(복사)하고 컨트롤v(붙여넣기)를하면 블록으로 잡혀서 붙여넣기가되요..
원래 블럭으로 잡히지 않나요? 복사로 옴기면..?
원래 블럭으로 잡히지 않나요? 복사로 옴기면..?
See less레이어 일괄변경리습 요청
위에게 적용이 안되시면 (command "change" s "" "p" "la" "0" "")
위에게 적용이 안되시면
See less(command “change” s “” “p” “la” “0” “”)
레이어 일괄변경리습 요청
(command "LAYER" "s" "0" "")
(command “LAYER” “s” “0” “”)
See less폰트교체 리습 수정 부탁드립니다..
그 리습은 저도 있어요.. 제가 만들려고 하는건 선택한 텍스트만 폰트를 바꿔주려는 건데.. 일단 임시로 만들어 쓰고는 있습니다.. 저기에 문자스타일에 스타일을 111로 만들어놨다면 스타일 111 입력값으로 선택한 텍스트를 변경해주려는 것인데 변수거절이 자꾸뜨네요.. 치수스타일은 쉽게 만들었었는데 문자스타일은 어렵군요.
그 리습은 저도 있어요.. 제가 만들려고 하는건 선택한 텍스트만 폰트를 바꿔주려는 건데..
See less일단 임시로 만들어 쓰고는 있습니다..
저기에 문자스타일에 스타일을 111로 만들어놨다면 스타일 111 입력값으로 선택한 텍스트를 변경해주려는 것인데 변수거절이 자꾸뜨네요.. 치수스타일은 쉽게 만들었었는데 문자스타일은 어렵군요.
라운드 원통 전개 부탁드립니다.
이건 전개불가 아닌가;;;
이건 전개불가 아닌가;;;
See less안녕하세요 회전각도 0도로 맞춰주는 리습이 있나요?
;=====================참조 회전 ====================================================================(defun c:RTR ()(vl-load-com)(defun dtr (a) (* pi (/ a 180.0)))(defun rtd (a) (* 180.0 (/ a pi))) ;(defun rtd (a) (/ (* a 180.0) pi))(defun tan (a) (/ (sin a) (cos a))) (setvar "cmdecho" 0)더보기
스크립트 명령어 읽는법?
스크립트는 정말 참고할데가 없는거네요..
스크립트는 정말 참고할데가 없는거네요..
See less회전리습 구할수있을까요 ㅠㅠ
예시 2가지중 맨위는 아래 기준점과 동일 선상이기에 답안지와 같게 나오지만아래 예시는 기준점과 회전되는 객체가 선상이 어긋나 있어 아래 객체 교차점을 기준점으로 잡으면똑같이 어긋나게 회전됩니다어긋난 객체도 같은 선상으로 회전되는 걸 원하는 거면.. 다른분들이...
예시 2가지중 맨위는 아래 기준점과 동일 선상이기에 답안지와 같게 나오지만
회전리습 구할수있을까요 ㅠㅠ
;======================= -90 회전 =============(defun c:RTTR (/ obje point1 ) ;선택 객체를 90도씩 회전(defun *error* (msg) (princ) ) (prompt "\nRotate--90 , Select Entity :")(setq obje (ssget))(setq point1 (getpoint "\nPick Center-Point : ")) (while (/= poin더보기
리습 문의 드립니다. 고수님들 한번 봐주세요~
능력자...
능력자…
See less빗면모양 cad로 전개하는 법을 알고 싶습니다.
늦게나마 빗변은 쉽죠.. 날개 예각이 더 어렵습니다..작게 샘플해서 맞춰보고 작업해야겠죠..예각은 해도해도 답이 잘 안나는군용
늦게나마 빗변은 쉽죠.. 날개 예각이 더 어렵습니다..