카페검색 본문
카페글 본문
-
블록 체인지 리습 수정 가능할까요..? 2023.12.14해당카페글 미리보기
vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (setq B_path "D:\\질문\\") (setq ss (ssget (list (cons 0 "insert")))) (setq k 0) (repeat (sslength ss) (setq NB_name nil) ; 이거 추가함 (setq Obj (vlax-ename->vla...
-
Re: 동적 블록 가운데 라인 생성 2023.11.21해당카페글 미리보기
거리산출-TMP" 레이어가 도면상에 없으면 생성함. (if (null (tblsearch "LAYER" "$거리산출-TMP")) (entmake (list (cons 000 "LAYER") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLayerTableRecord") (cons 002 "$거리산출-TMP") (cons 070 0...
-
블럭이름 변경 리습 적용범위 수정 요청 2023.12.07해당카페글 미리보기
OBJ bli n) (prompt (strcat "AUTORENBLK 이름을 자동으로 변경할 블록 객체를 선택...")) (vl-load-com) (setq ss (ssget (list (cons 0 "INSERT"))) n 0) (if ss (progn (vla-startUndomark (setq acDoc (vla-get-ActiveDocument (vlax-get-acad-object...
-
체벌 2023.12.11해당카페글 미리보기
in school in Seoul from last year. What do you think about corporal punishment? Well, I think it has its pros and cons. Were you physically punished when you were a student. Yes I was. It was a method of discipline. I'm against...
-
to my cobie 🍐💌📪 2023.11.30해당카페글 미리보기
how are youuu??? i hope well!! i miss you sooo much :’) im sure u are working so hard these days preparing for the cons i hope you dont overwork yourself and i hope you take enough breaks 🫂 im so proud of u!! i wanted to thank u for...
-
to my moon 🌙💌📪 2023.11.30해당카페글 미리보기
joy and happiness to a lot of people thru your music and your art!! i wanted to thank u so much for keeping me company this year too and for being the bgm of my life 🫶🫶 thank u for working hard kev, ilysm!!! gl for the upcoming cons...
-
리습 수정 요청드립니다. 2023.11.29해당카페글 미리보기
doc))) ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc))) ) (if (setq ss (ssget (list (cons 0 "CIRCLE,ARC,*POLYLINE,LINE,ELLIPSE,SPLINE")))) (if (or (setq ts (getreal (strcat " 텍스트 높이 입력해주세요~♥ <" (vl...
-
Re: 레이어명을 블럭으로 만들기 문의 2023.11.29해당카페글 미리보기
remove-if 'listp (mapcar 'cadr (ssnamex ss))) (setq lay (cdr (assoc 8 (entget x)))) (if (not (member lay lst)) (setq lst (cons lay lst)) ) ) (setq lst (vl-sort lst '(lambda (l1 l2) (> l1 l2)))) (setq elst (vl-remove-if 'listp (mapcar...
-
기숙학교의 장점과 단점 여러가지 사이트 정리 2023.11.21해당카페글 미리보기
us doonsainikacademy.com 기숙학교의 장점과 단점 https://www.ourkids.net/school/pros-cons-boarding-school Pros and Cons of Boarding Schools: Advantages and Disadvantages A look at the pros and cons of boarding school, taking a long view...
-
블록 폭파하는 리습 수정 부탁드려봅니다.. 2023.11.29해당카페글 미리보기
defun c:XX ( / ss n el ob) (prompt (strcat "BLOCKEXP 분해 할 블록 객체를 선택...")) (if (setq ss (ssget (list (cons 0 "INSERT")))) (setq n (sslength ss) ss (vl...