(defun c:ret() (setq osm (getvar “osmode”)) ; OS; 저장    (command “ortho” “off”)    (setq p1 (getpoint “n 대각 한쪽 끝선 :”))    (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))    (setq p12 (list (car p1) (cadr p2)))    (setq p21 (list (car p2) ...더 읽기

직선이든 곡선이든 정수가 아닌 24651 같은 길이를 가진 선을 divede로 나누면 나눠진 간격이 정수가 아니잖아요? 이 간격을 마지막 칸을 조정하더라도 나머지 칸을 정수로 되게 간격을 조정하고 싶은데 어떻게 하나요?

캐드 수직수평이 자꾸 틀어져서 리습을 찾고 있었는데 고캐드에 어떤 분이 올려주신 리습이 있더라구요 —————————– (defun c:xxx (/ #a #index #b #c) (vl-load-com) (setq #a(ssget ‘((0 . “line”)))) (setq #index 0 #c(ssadd)) (repeat (sslength #a) (setq #b(vlax-ename->vla-object(ssname #a #index)))  (if (or (zerop(vla-get-angle #b))         (equal 1.5708 (rem(vla-get-angle ...더 읽기

캐드에서 리습등으로 한 파일안에 있는 텍스트와 텍스트 스타일변경하는것 말고 파일이 나눠진 상태의 여러 파일들의 텍스트를 한번에 바꾸는방법은 없을까요!? TRANSMIT 과 같이 여러파일을 한번에 바인딩하는것처럼 여러 도면파일을 한번에 특정 텍스트로 바꾸고싶습니다. 협력업체등 다른곳에서 도면을 주고받다보니 폰트가 자주 깨지는데 하나씩 열어서 하기도 번거롭기도하고 혹여 ...더 읽기

첨부도면과 같이 특정블록(창문)을 깨면 저~~멀리 날라가는데 혹시 해결방법이 있을까요??다른 블록은 그냥 깨면 깨지는데 특정블록만 도곽멀리 날라갑니다

리습 명령어 이중으로 만들기가 궁굼합니다. (DEFUN C:C   () (COMMAND “COPY”))(DEFUN C:CO   () (COMMAND “COPY”)) 이렇게 리습을 이중으로 만들면 C,CO   이렇게 두개가 다 먹는 명령어가 완성되는데요혹시 이런방법 말고도 명령어가 이중으로 되는 방법이 있을까요? 감사합니다. ^^

“ds_070_51_1차가공” “077_21_1차가공” “070_61_1차가공” “600_31_1차가공” “20000_31_1차가공”tx 에는 위의 문자열중 1개가 들어 있습니다. (setq k 1)(setq tx “070_31_1차가공”)(if (= k 1)(setq tx (Replace-string tx “1차가공” “2차가공”))) 이런식으로 조건에 맞으면 뒷 부분만 바꾸고 싶은데요다른 프로그램에서는 “Replace” 명령어면 간단하게 되는데요문자열 바꾸는 명령어가 알고 싶습니다.더 읽기

캐드에 평생선 여러개를 한번에 연결하는 리습없을까요ㅠㅠ 두선연결하는리습은봤는데 드래그로는 선택이안되더라구요ㅠ 평행선 이을게많아서 혹시 리습아시면 도움주세요ㅠㅠ

캐드 좌클릭을 할때마다 조그만한 십자선이 자꾸 클릭한 위치에 남게 됩니다 면적합, 길이합, cbt 리습을 추가한 이후로 이런 증상이 나타나네요 …불러왔던 리습을 제거해도 반복됩니다 pan으로 화면 전환하면 없어지긴 합니다.. ...더 읽기