이리습을 돌리고 나면..express에 에러가 생기거든요.
근데 캐드 프로그램을 껐다가 다시 켜면 express가 적
용이 되구요.. 어디가 이상이 있는건가요..?
아시는 분 계시면 좀 가르쳐 주세요 ^____^
이리습은 표고수치 넣어주는 리습이거든요..
(defun ca0021del()
(setq idx 0)
(prompt “n SELECTING .. “)
(setq tot (ssget “X” ‘ (( 8 . “ca0021”) ( 0 . “TEXT” ))))
(setq num (sslength tot))
(repeat num
(entdel (cdr (car (entget (ssname tot idx)))))
(prompt “r ERASING .. “)
(setq idx (+ 1 idx))
)
)
(defun ca0021write()
(setq idx 0)
(prompt “r SELECTING .. “)
(setq tot (ssget “X” ‘ (( 8 . “ca002”) ( 0 . “INSERT” ))))
(setq num (sslength tot))
(setq bigo (tblsearch “layer” “ca0021”))
(if (eq bigo nil)
(progn
(command “layer” “m” “ca0021” “c” “14” “”)
)
(progn
(command “layer” “s” “ca0021” “”)
)
)
(repeat num
(setq list (entget (ssname tot idx)))
(setq xlist (nth 1 (assoc 10 list)))
(setq ylist (nth 2 (assoc 10 list)))
(setq zlist (nth 3 (assoc 10 list)))
(setq ztext (rtos zlist 2 1))
(setq mv_x ( + xlist 1.5))
(setq mv_y ( – ylist 1.0))
(setq ptt (strcat (rtos mv_x) “,” (rtos mv_y) “,” (rtos zlist)))
(command “text” ptt “2.0” “0” ztext)
(prompt “r WRITING .. “)
(setq idx (+ 1 idx))
)
)
(defun c:cm()
(ca0021del)
(ca0021write)
)
그리고 위에 표고수치 넣어주는 리습을 사용하면.. express 뿐만 아니라 이리습도 에러가 생겨요..
아래 리습은 등고선에 등고수치값 넣어주는 리습입니다요..
이것도 왜 같이 사용이 안되는지 아시는 분 계시면 좀 부탁 드릴께요..
(defun c:ct()
(f:program_start)
(setvar “osmode” 513)
(setq pt1 (getpoint “삽입포인트”))(terpri)
(setq pt3 (getpoint “방향포인트”))(terpri)
(setq pt1 (polar pt1 (dtr 45) 0.1) pt2 (polar pt1 (dtr 225) 0.1))
(setq ed (ssget “c” pt1 pt2 (list (cons 0 “LWPOLYLINE”)(cons 8 “CAA001”))))
(setq ssn (ssname ed 0) ent (entget ssn ‘(“*”)) hvalue (cdr (assoc 38 ent)))
(setq hvalue (FIX hvalue))
(setvar “osmode” 0)
(command “clayer” “CA0011”)
(command “text” “j” “mc” pt1 “2” (rtd (angle pt1 pt3)) hvalue )
(COMMAND “clyer” “0”)
(f:program_END)
)
이두가지다 에러는..
syntax error 가 생겨요..
시원한 하루 보내시기 바랍니다~^^