(defun c:xx(/ ent en8 vlist year kind ki dia dis simdo simlen i a sum simsn simen sim10 sim1 simdolist aver text yn
tep te tee te10 b wi np spt d1 d2 pt1 pt2 lte ltee ang new_ro old_ro newent)
(setvar “cmdecho” 0)
(setq ent (entsel))
(setq en8 (cdr (assoc 8 (entget (car ent)))))
(setq vlist (list))
(vlist_com ent)
(setq year (getint “n 부설년도 :::”))
(setq kind (getstring “n 관종 (1:CIP, 2:DCIP, 3:SSP, 4:SP, 5:HI-3P, 6:HIVP, 7:PVC, 8:PE, 9:PFP):::: “))
(cond
((= kind “1”)(setq ki “CIP”))
((= kind “2”)(setq ki “DCIP”))
((= kind “3”)(setq ki “SSP”))
((= kind “4”)(setq ki “SP”))
((= kind “5”)(setq ki “HI-3P”))
((= kind “6”)(setq ki “HIVP”))
((= kind “7”)(setq ki “PVC”))
((= kind “8”)(setq ki “PE”))
((= kind “9”)(setq ki “PFP”)))
(setq dia (getint “n 관경 :::::”))
(command “area” “e” ent)
(setq dis (getvar “perimeter”))
(setq dis (/ dis 1.0))
(if (/= en8 “SAA910”)(progn
(setq simdo (ssget “x” ‘((8 . “SA9122”) (0 . “TEXT”))))
(setq simlen (sslength simdo))
(setq i 0 a 0 sum 0)
(setq simdolist (list))
(repeat simlen
(setq simsn (ssname simdo i))(setq i (1+ i))
(setq simen (entget simsn))
(setq sim10 (cdr (assoc 10 simen)))
(setq sim1 (cdr (assoc 1 simen)))
(if (member sim10 vlist)
(progn
(if (not (member sim10 simdolist))
(progn
(setq simdolist (append simdolist (list sim10)))
(setq a (1+ a))
(setq sum (+ sum (atof sim1))))
(progn
(alert “심도 텍스트가 중복이다.”)
(exit))))))
(if (/= a 0)(progn
(setq aver (/ sum a)))
(progn (setq aver 0.0)))
(setq text (strcat (itoa year)”/”ki”/%%c”(itoa dia)”/L”(rtos dis 2 1)”/D”(rtos aver 2 1))))
(progn
(setq text (strcat (itoa year)”/”ki”/%%c”(itoa dia)”/L”(rtos dis 2 1)”/D_”))))
(setq yn (getstring “n인출선 사용여부(Y/N)::::”))
(cond
((= en8 “SAA001”)(command “layer” “s” “SAA0012” “”))
((= en8 “SAA002”)(command “layer” “s” “SAA0022” “”))
((= en8 “SAA003”)(command “layer” “s” “SAA0032” “”))
((= en8 “SAA004”)(command “layer” “s” “SAA0042” “”))
((= en8 “SAA0050”)(command “layer” “s” “SAA00502” “”))
((= en8 “SAA005”)(command “layer” “s” “SAA0052” “”))
((= en8 “SAA010”)(command “layer” “s” “SAA0102” “”))
((= en8 “SAA020”)(command “layer” “s” “SAA0202” “”))
((= en8 “SAA910”)(command “layer” “s” “SAA9102” “”)))
(if (or (= yn “Y”) (= yn “y”)) (progn
(setvar “osmode” 0)
(setq tep (getpoint “n Pick a text point===>>>”))
(command “text” tep “1.5” “0” text)
(setq te (entlast))
(setq tee (entget te))
(setq te10 (cdr (assoc 10 tee)))
(setq te10 (polar te10 (* 1.25 pi) 0.42))
(setq b (textbox tee))
(setq wi (- (caadr b) (caar b)))
(setq np (polar te10 0 (+ wi 1.0)))
(setvar “osmode” 512)
(setq spt (getpoint “n Pick a neapoint ===>>>”))
(setq d1 (distance te10 spt))
(setq d2 (distance np spt))
(setvar “osmode” 0)
(if (< d1 d2)
(progn
(command “pline” spt te10 np “”))
(progn
(command “pline” spt np te10 “”)))))
(if (or (= yn “n”)(= yn “N”))(progn
(setq pt_1 (getpoint “n Pick a text point===>>>”))
(setq pt_2 (getpoint pt_1 “n Pick a next point===>>>”))
(setvar “osmode” 0)
(command “text” pt_1 “1.5” “0” text)
(setq lte (entlast))
(setq ltee (entget lte))
(setq ang (angle pt_1 pt_2))
(setq new_ro (cons 50 ang))
(setq old_ro (assoc 50 ltee))
(setq newent (subst new_ro old_ro ltee))
(entmod newent))))
(princ “n =======상수 Seed 는 엎었는지요???? 잘만들었지요??????==============”)
(princ)
(defun vlist_com (ent / se ca ca1 ca11)
(setq se (entget (car ent)))
(setq ca (car se) se (cdr se))
(while (/= ca nil)
(if (= (car ca) 10)(progn
(setq ca11 (cdr ca))
(setq ca11 (append ca11 (list 0.0)))
(setq vlist (append vlist (list ca11)))))
(setq ca (car se))
(setq se (cdr se)))vlist)
…error: bad argument type: lselsetp nil 자꾸 이런 메시지만 뜹니다.