(defun c:sll()
(setq sl(ssget “x” (LIST'(0 . “LINE”))))
(setq cnt 0)
(setq cs(entget (ssname sl cnt)))
(setq cn(sslength sl))
(repeat cn
(setq x(assoc 10 cs))
(setq y (assoc 11 cs))
(setq x1(cadr x))
(setq x2(caddr x))
(setq y1(cadr y))
(setq y2(caddr y))
(if (= x2 y2)
(command “change” sl “” “p” “c” “1” “”)
(command “change” sl “” “p” “c” “4” “”))
(if (= x1 y1)
(command “change” sl “” “p” “c” “1” “”)
(command “change” sl “” “p” “c” “4” “”))
(setq cnt(1+ cnt))
)
)
안녕하세요 리습을 초보자입니다
공정배관계장도를 그리는데 라인이 미세하게 어긋나 있는것이 있어
라인의 수직 수평 여부를 알려주기 위해 리습을 짜보는데 도저히 몰라서
도움을 얻고자 이렇게 글올려봅니다
라인이 수평 수직이 아니면 색깔이 바뀌는 리습을 만들려고해요
도면 전체의 라인에 적용할려면 어떻게 해야하나요? 도움부탁드려요