(defun C:LF (/ cmd ename elist lyr)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq ename (car (entsel “도면층 객체선택 :”)))
(while (null ename)
(setq ename (car (entsel “도면층 객체다시선택 :”)))
)
(setq elist (entget ename))
(setq lyr (assoc 8 elist))
(command “layer” “set” (cdr lyr) “”)
(command “layer” “off” “*” “” “”)
(prompt (strcat “지금의 도면층은 ” (cdr lyr) “.”))
(setvar “cmdecho” cmd)
)
(prin1)

(defun c:LFF (/ cmd)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq ename (car (entsel “도면층 객체선택 :”)))
(while (null ename)
(setq ename (car (entsel “도면층 객체다시선택 :”)))
)
(while (or (null ename)
(equal (cdr (assoc 8 (entget ename))) (getvar “clayer”))
)
(setq ename (car (entsel “도면층 다른객체선택 :”)))
)
(setq elist (entget ename))
(setq lyr (assoc 8 elist))
(prompt (strcat “선택된 도면층은? ” (cdr lyr) “.”))
; (setq test (getstring “선택된 도면층을 감추실겁니까? :”))
; (if (or (equal test “Y”) (equal test “y”))
(progn (command “layer” “off” (cdr lyr) “”))
(prompt (strcat “지금의 도면층은? ” (cdr lyr) ” is OFF”))
; )
; )
(setvar “cmdecho” cmd)
(prin1)
)

(defun c:LC1(/ e eo el nla no e zo zl old new)
(setvar “cmdecho” 0)
(PROMPT “>>> 바꾸실 도면층객체선택….. “)
(setq eo (ssget))
(prompt “n>>> 바뀌어질 도면층객체는?….. “)
(setq el (entsel))
(if el
(setq nla (cdr (assoc 8 (entget (car el)))))
(setq nla (strcase (getstring
“n>>> 그럼,선택하실 도면층이름은? : “)))
)
(setq no 0)
(while
(setq e (ssname eo no))
(setq zo (entget e))
(setq old (assoc 8 zo))
(setq new (cons (car old) nla))
(setq zl (subst new old zo))
(entmod zl)
(setq no (1+ no))
)
(prin1)
)

(defun C:LO (/ cmd lyr ss test)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(command “layer” “on” “*” “”)
(prompt (strcat “모든 도면층을 올립니다.”))
(setvar “cmdecho” cmd)
(prin1)
)

현재 제가 쓰고있는 레이어리습인데, 저것만 사용하면 오스냅이 자꾸 꺼져서요 ㅠㅠ
뭐가 잘못된건지 수정 좀 부탁드립니다 ㅠㅠ

;;===========================================================
;  Number plus(98CHO_I)
;  ->숫자의 합 구하기(2자리)
;;———————————————————–
(defun c:np(/ choi d_ts w_os ht ss grpt pt1 n k tot en tv rtv an)
   (setq choi (getvar “orthomode”)  d_ts (getvar “textsize”)
            w_os (getvar “osmode”) )
   (prompt “… 더하기”)
   (setvar “orthomode” 0) (setvar “osmode” 0)
   (setq ht d_ts)
   (prompt “nText Height<“) (prin1 ht) (prompt “>: “)
   (setq ht (getdist))
   (if (= ht nil) (setq ht d_ts))
   (prompt “nSelect number->”)
   (setq ss (ssget))
   (setq grpt (grread T))
   (setq pt1 (cadr grpt))
   (setq n (sslength ss))
   (setq k 0 tot 0)
   (while (<= 1 n)
        (setq en (ssname ss k))
        (setq tv (cdr (assoc 1 (entget en))))
        (setq rtv (atof tv))
        (setq tot (+ tot rtv))
        (setq n (- n 1))
        (setq k (+ k 1))
   )
   (setq tot (rtos (* tot 10000) 2 0))
   (setq an (strlen tot))
   (setq tot (strcat (substr tot 1 (- an 4)) “.” (substr tot (- an 3) 2)   ))
   (command “text” “j” “r” pt1 ht “0” tot)
   (prompt “nEnter text point->”)
   (command “move” “l” “” pt1 pause)
   (setvar “orthomode” choi) (setvar “osmode” w_os)
   (prompt “n합 계 : “) (prin1 tot)
   (prin1)
)
숫자합을 소수점 3자리까지로 바꾸고 싶습니다.
수정좀 부탁드립니다.~^^;; 꾸벅!

제가 조금 만들어 봤는데요 아직 미숙하여 고수님들께 부탁드립니다.
(defun c:wba ()
(setq in_id “~”)
(setq s_ent (ssget “x” ‘ ((0 . “~”))))
(setvar “cmddia” 0)
(command “wblock” in_id “” “0,0,0” s_ent “” “n”)
(setvar “cmddia” 1)
)
도면 전체를 저장하는 리습인데…여러게의 도면을 색상을 지정하여 저장을 하고 싶습니다..예를 들면 1번도면은 빨강색 2번도면은 파란색 이렇게요…

지금 리습은 예전에 어떤님께서 만드신 리습을 제가 약간 수정하게되었습니다. 제작자게 생각이 안나서 일단 제작자 님께서 무단수정해서 죄송하단 말씀을 드리고싶습니다..
제가 약간 수정한거에서 추가기능을 넣고 싶은데..고수님들에 많으 지도 부탁드립니다.
추가하고 싶은요소.
1. 버블을 넣으면 X1 기둥순번을 먹이는걸루 제가 수정해서 사용하고있는데 원 밑부분에다 300미리 정도에 직선을 추가해서 넣을수있는 버블을 만들고싶은데 제가 실력이 부족해서 인지..리습이 작동을 안합니다..
그리고 포인트 지점이 선끝점이 되게는 안되는지 그것도 알고싶습니다.
고수님들이 많은 가르침 부탁드립니다.
2. 완성되면 순번 먹이는 각도까지 조절이 가능하게 수정이 된다면..염치 없이 부탁드립니다.
리습은 첨부합니다.
(이미지) 제가 원하는 최종 상태입니다..