캐드 도면 캡쳐시 사용하는 리습입니다.
리스트를 만들어서 그 안에 있는 내용을 캐드에서 찾아 캡쳐해주는 리습인데
캡쳐시 이미지로 넣은 파일이 같이 캡쳐가 되지 않습니다.
이유가 뭘까요ㅠㅠ
(defun c:MHC ()
(setvar “cmdecho” 0)
(setq fileName (strcat (getvar “dwgprefix”) “LIST.TXT”))
(setq entFile (open fileName “r”))
(setq mhList (read-line entFile))
(setq folder (getstring “c:dd”))
(while (/= mhList nil)
(setq ss (ssget “X” ‘((0 . “text”)(8 . “sa122(t)”))))
(setq num (if ss (sslength ss) 0))
(setq index 0)
(repeat num
(setq entName (ssname ss index))
(setq entList (entget entName))
(setq entStr (cdr (assoc 1 entList)))
(setq entXY (cdr (assoc 10 entList)))
(setq x (car entXY))
(setq y (cadr entXY))
(setq pt1 (list (+ x 80)(+ y 80)))
(setq pt2 (list (- x 80)(- y 80)))
(if (eq mhList entStr)
(progn
(command “change” entName “” “” “” “standard” “6.0” “” “”)
(command “chprop” entName “” “c” “1” “”)<==색깔지정
(command “zoom” “c” entXY 120)
(setq sscap (ssget “c” pt1 pt2))
(command “wmfout” (strcat (getvar “dwgprefix”) folder “\” entStr”.wmf”) sscap “”)
(command “change” entName “” “” “” “standard” “2.0” “” “”)
(command “chprop” entName “” “c” “t” “250,255,255” “”)<==색깔지정
) <progn>
) <if>
(setq index (+ index 1))
) <repeat num>
(setq mhList (read-line entFile))
) <while>
(close entFile)
(if (eq index num)
(alert “Sucessful Completion !!”)
)
) <defun>
(princ “nLoading Complete…… MHC : 맨홀캡쳐 !!”)
(princ)