엔티티 수정; Modify entity(entmod)

entmod; entmode 아님; modify임; 오타주의

Help

subst

Help

entget

Help

;; 표제란 정보 수정. 단순 반복 타이핑 줄이기 위해 개발
;; 선택만으로(타이핑 없이) 지정한 날짜로 수정하기. Revision 날짜; 제출 날짜
;; 선택만으로(타이핑 없이) 지정된 문자로 수정하기. AFC REV.1; APPROVAL FOR CONSTRUCTION
;; 2025. 08. 27 완성.
;; by Lee Snaghoen @KM Lab

;;(entmod elist) ;; INPUT elist, Modify entity
;;(subst newitem olditem lst) ;; eXchange Property of elist
;;(entget ename [applist]) ;; INPUT ssname, RETURN elist
;;(entget (car (entsel))) ;; Select, RETURN elist

;; INI: newIdate(Issue Date); newRdate(Revision Date); newAFC, AFC0
(setq newIdate "2025. 08. 29" newRdate "25.08.29" newAFC "AFC REV.1" AFC0 "APPROVAL FOR CONSTRUCTION")
;;
;; KM module Change String with Preset a Value
(defun KM:Change_string ( modString / new_str old_ed new_ed )
(setq new_str modString)
(setq old_ed (entget (car (entsel))))
(setq new_ed (subst (cons 1 new_str) (assoc 1 old_ed) old_ed))
(entmod new_ed)
(princ))

(defun c:ddS ( / ) ;; modify text of Date of iSSue
(KM:Change_string newIdate)
)
(defun c:ddR ( / ) ;; modify text of Date of Revision
(KM:Change_string newRdate)
)
(defun c:ddF ( / ) ;; modify text of AFC REV.
(KM:Change_string newAFC)
)
(defun c:ddF0 ( / ) ;; edit text of AFC0
(KM:Change_string AFC0)
)