명령어 하면
박스모양으로 드레그 해서 그 부분만 카피하는 리습인데
(제가 만든건 아니고 누군가에게 받은,,)
박스를 그리고 나서 스케일을 정하라는 문구가 떠요
기본값은 1로 되어있고,
그래서 한번더 엔터를 해야하는데 그걸 안하면 지워지거든요
그것때문에 자꾸 헤깔리고 번거로워서

카피한 후에 스케일을 적는 걸 없애주세요
그냥 1:1 그대로 나오게요.

고수님들 부탁 드릴께요~~

(defun C:CTT (/ #ss #n #ent_high #ent_list #y_high #j #y #old_txt #new_txt)
(prompt “nSelect text to edit: “)
(setq #ss (ssget ‘((0 . “TEXT”)) ) )

(setq #n (sslength #ss))

(repeat #n
(setq #ent_high (ssname #ss 0))
(setq #ent_list (entget #ent_high))
(setq #y_high (nth 2 (assoc 10 #ent_list)))
(setq #j 0)
(while (setq #ent (ssname #ss #j))
(setq #ent_list (entget #ent))
(setq #y (nth 2 (assoc 10 #ent_list)))
(if (< #y_high #y)
(progn
(setq #ent_high #ent)
(setq #y_high #y)
));— if
(setq #j (1+ #j))
);—while
(setq #ent_list (entget #ent_high))
(setq #old_txt (cdr (assoc 1 #ent_list)))
(redraw #ent_high 3)
(setq #new_txt (getstring t (strcat “nNew text string <” #old_txt “>: “) ))
(if (/= #new_txt “”)
(entmod (subst (cons 1 #new_txt) (cons 1 #old_txt) #ent_list))
);— if
(redraw #ent_high 4)
(ssdel #ent_high #ss)
);—repeat
);—defun

위 리습은 여러 글씨를 순서대로 바꿔주는 리습인데요.
수직으로는 위에서 아래로는 순차적으로 바뀌는데요
수평으로는 오른쪽에서 좌로 바뀌네요…
이거를 좌에서 우측으로 되게 바꾸고 싶습니다.
그리고 수직도 아래서부터 위로 어느 부분을 수정하면되는지도 알려주시면 감사하겠습니다.

사각형에 끝점을 대각으로 2포인트 잡으면 x,y 중심선이 생성되는 리습인데요.

명령어 실행후 esc 키를 누르면 오스넵이 꺼지는데, 이것좀 어떻개 수정가능할런지요.

그리고 파일이 appload 에서 load 도 않되는것 같더라구요.

수정좀 부탁드리겠습니다.

캐드도면상에서 관로명과 관로제원을 클릭하여

c:상에 1이라는 텍스트문서로 각 제원을 구분하여 저장해주는 리습인데.

지금 리습식으로는 “관로명”과 “관로제원”으로 2가지만 구분하여 저장할수있습니다.


이것을 순서대로

“관로명” – “관경” – “관로연장” – “지반고1” – “지반고2” – “관저고1” – “관저고2”
 
위의 순서대로 총 7개의 항목으로 나누어서 저장하고 싶습니다.


혼자서 어떻게 수정해서 써보려고 식을 건드려보고했는데

방법을 잘 모르겠습니다.. 알려주시거나 수정해주시면 감사하겠습니다. 부탁드립니다~!!

처음 시작부분에서 객체 선택 하라고 나오는데 개별 선택 말고 드래그로 선택할수 있게 수정좀 해주세요

(defun c:bln(/ os ent elist ins)
    (setvar “cmdecho” 0)
    (setq os (getvar “osmode”))
    (if (setq ent (car (entsel “nBlock select:”)))
      (progn (setq elist (entget ent))
        (setq obn (cdr (assoc 2 elist)))
        (setq ins (cdr (assoc 10 elist)))
        (setq rname nil)

        (while (= rname nil)
          (setq rname (getstring t “nNew block name:”))
          (setq byn (assoc 2 (tblsearch “block” rname)))
          (setq byn2 (cdr byn)) ; byn2 블럭이름
          (if (= rname byn2)
            (progn (setq rname nil)
               (prompt “블럭이름중복->다시입력해주세요”)
            ) ;progn
          );if
        ) ;while

        (if (/= rname “”)
          (progn (command “explode” ent)
            (setvar “osmode” 0)
            (command “_.block” rname ins “P” “”)
            (command “_.insert” rname ins “” “” “”)
            (setvar “osmode” os)
          (princ “블록이름: “)(princ obn)(princ ” –> “)(princ rname)(princ ” 로 교체함”)
          );progn
        );if
      );progn
     );if
(princ)
);defun

사각형에 center line를 긋는 리습인데

사용을 하고 나면 osnap가 다 풀립니다.

리습을 쓴이후에도 osnap이 안풀리게 하려면 어떻게 해야 하나요

(defun c:qqw()
(setq p1 (getstring “n 지우려고 하는 엔티티:”))
(setq ert (ssget ‘((0 . p1))))
(command “erase” ert “”)
)
허접하게 공부하면서 짜본 리습입니다…
근데 리스트 안에는 변수지정이 안되나요??
세번째부분 p1이라는 곳에서 자꾸 에러가 나는데…
누가 가르쳐 주세요…
(defun c:qqw()
(setq p1 (getstring “n 지우려고 하는 엔티티:”))
(setq ert (ssget ‘((cons 0 p1))))
(command “erase” ert “”)
)
cons문도 안되네요…ㅠㅠ

초보라서 이것저것 주워다가 만든 리습니다.
동일한 형상에 leader선으로 갯수와 사이즈넣는 리습니다.
근데 2002에서는 돌아가는데 r14버전에서는 안되는군요
(command “leader” “nea” p1 p2 “” “” “” (strcat “M” tum2 “TAP”) “”)
이부분이 이상한것 같은데 좀 봐주세요
전체적으로 손좀 봐주시면 더 고맙겠습니다.
그럼 모두 즐거운 추석되시길!

(defun c:tt ()
(setvar “cmdecho” 0)
(princ “nTap: Size”)(terpri)
(SETQ s1 (entsel “nTap를 선택해 주세요!: “))
(redraw (car s1) 3)
(SETQ p1 (cadr s1)
p2 (GETPOINT p1))
(redraw (car s1) 4)
(if (= p2 nil)(error))
(prompt “nTap 갯수를 입력하세요!”)
(setq tum1 (getstring “:”))
(prompt “nTap 크기를 입력하세요!”)
(setq tum2 (getstring “:”))
(if (= tum1 “”)
(command “leader” “nea” p1 p2 “” “” “” (strcat “M” tum2 “TAP”) “”)
(command “leader” “nea” p1 p2 “” “” “” (strcat tum1 “-M” tum2 “TAP”) “” )
)
(princ)

리습 출처는 모르겟구요…
범면 상단점을 폴리라인으로 하고싶어서요…선두께잇게요