;;====================================================================
;;====================================================================
;;=====================선택하는 프로그램==============================
;;====================================================================
;;=====================as;도면번호,일련번호,재원======================
;;====================================================================
;;====================================================================
(DEFUN C:asi( / nu aa bb gun gunl ssn ent tex text1
gun2 gunl2 ssn2 ent2 tex2 text2
gun3 gunl3 ssn3 ent3 tex3 text3
ssg len mok a b c d t1 te ro leng filename fn)
(setvar “CMDECHO” 0)
(setq aa (getstring “select W / O / H /…::”))
(if (eq aa “W”) (setq aa “W”))
(if (eq aa “H”) (setq aa “H”))
(if (eq aa “O”) (setq aa “O”))
(setq bb (strcat aa “/”))
;;====================================================================
(prompt “도엽번호!!!”)
(setq gun (ssget)
gunl (sslength gun)
cou 0
plus “”) ;;setq
(repeat gunl
(setq ssn (ssname gun cou)
ent (entget ssn)
tex (assoc 1 ent)
text (cdr tex)
text1 (strcat text “/”)
) ;;setq
) ;;re
(command “chprop” gun “” “c” “7” “”)
(princ)
;;=====================================================================
(prompt “일련번호!!!”)
(setq gun2 (ssget)
gunl2 (sslength gun2)
cou2 0
plus2 “”) ;;setq
(repeat gunl2
(setq ssn2 (ssname gun2 cou2)
ent2 (entget ssn2)
tex2 (assoc 1 ent2)
text2 (cdr tex2)
text2 (strcat text2 “/”)
) ;;setq
) ;;re
(command “chprop” gun2 “” “c” “7” “”)
(princ)
;;=====================================================================
(prompt “재원!!!”)
(setq ssg (ssget)
len (sslength ssg)
index 0
mok “”)
(setq a (getvar “extmax”)
b (polar a 1.5708 2.5)
c (polar b 3.14159 55.0714)
d (polar c 3.14159 50.2143))
(repeat len
(setq ssn (ssname ssg index)
ent (entget ssn)
index (+ index 1)
t1 (assoc 1 ent)
te (cdr t1)
mok (strcat mok te))
);;;;;re
(princ)
(command “chprop” ssg “” “c” “7” “”)
;;========================================================================
(prompt “해당가옥!!!”)
(setq ro (ssget)
leng (sslength ro)
su 0)
(command “chprop” ro “” “c” “7” “”)
(setq j (getvar “dwgname”)
ji (substr j 1 6)
jin (strcat ji “/”))
(setq mok (strcat jin bb text1 text2 mok))
;=========================================================================
;;(command “text” d “1.5” “0” mok )
;;========================================================================
(setq filename (strcat (getvar “dwgprefix”) (substr (getvar “dwgname”) 1 (- (strlen (getvar “dwgname”)) 3)) “txt”))
(setq fn (open filename “a”))
(write-line mok fn)
(close fn)
(princ)
);;defun
;;====================================================================
;;====================================================================
;;=====================입력받는 프로그램==============================
;;====================================================================
;;=====================as;도면번호,일련번호,재원======================
;;====================================================================
;;====================================================================
(defun C:adi ( / aa bb gun gunl ssn ent tex text1
gun2 gunl2 ssn2 ent2 tex2 text2
ssg len mok a b c d t1 te ro leng filename fn)
(setvar “CMDECHO” 0)
(setq aa (getstring “select W / O / H /…::”))
(if (eq aa “W”) (setq aa “W”))
(if (eq aa “H”) (setq aa “H”))
(if (eq aa “O”) (setq aa “O”))
(setq bb (strcat aa “/”))
;;====================================================================
(prompt “도엽번호!!!”)
(setq gun (ssget)
gunl (sslength gun)
cou 0
plus “”) ;;setq
(repeat gunl
(setq ssn (ssname gun cou)
ent (entget ssn)
tex (assoc 1 ent)
text (cdr tex)
text1 (strcat text “/”)
) ;;setq
) ;;re
(command “chprop” gun “” “c” “7” “”)
(princ)
;;=====================================================================
(prompt “일련번호!!!”)
(setq gun2 (getstring “n시작맨홀번호…::”)
text2 (strcat gun2 “/”))
(princ)
;;=====================================================================
(prompt “재원!!!”)
(setq ssg (ssget)
len (sslength ssg)
index 0
mok “”)
(setq a (getvar “extmax”)
b (polar a 1.5708 2.5)
c (polar b 3.14159 55.0714)
d (polar c 3.14159 50.2143))
(repeat len
(setq ssn (ssname ssg index)
ent (entget ssn)
index (+ index 1)
t1 (assoc 1 ent)
te (cdr t1)
mok (strcat mok te))
);;;;;re
(princ)
(command “chprop” ssg “” “c” “7” “”)
;;========================================================================
(prompt “해당가옥!!!”)
(setq ro (ssget)
leng (sslength ro)
su 0)
(command “chprop” ro “” “c” “7” “”)
(setq j (getvar “dwgname”)
ji (substr j 1 6)
jin (strcat ji “/”))
(setq mok (strcat jin bb text1 text2 mok))
;=========================================================================
;;(command “text” d “1.5” “0” mok )
;;========================================================================
(setq filename (strcat (getvar “dwgprefix”) (substr (getvar “dwgname”) 1 (- (strlen (getvar “dwgname”)) 3)) “txt”))
(setq fn (open filename “a”))
(write-line mok fn)
(close fn)
(princ)
);;defun
(prompt “n asi;선택하셔!! …adi;입력하셔!! “)
맨마지막 해당가옥에서 라인을 클릭안하면 lselsetp nil이란 오류가 뜨고
해당가옥에서 라인을 클릭하면 stringp nil 이 오류가 뜨는데
어느 부분을 수정해야하나요?