(defun C:2 (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 dst1 dst2 dt1 dt2 ang1 ang2 orth osmo pl rad)
(graphscr)
(setq orth (getvar “ORTHOMODE”))
(setq osmo (getvar “OSMODE”))
(command “undo” “be”)
(setvar “ORTHOMODE” 1)
(setvar “OSMODE” 18) ; osmode = Mid / Qua point
(setq pt1 (getpoint “n Select First Object to wire <Mid & Qua point> : _”))
(setvar “OSMODE” 0)
(setq pt2 (getpoint pt1 “n Wiring Direction ? _ “))
(setvar “OSMODE” 18)
(setq pt3 (getpoint “n Select Other Object to wire <Mid & Qua point> : _”))
(setvar “OSMODE” 0)
(setq pt4 (getpoint pt3 “n Wiring Direction ? _ “))
;; erase Z value
(SETQ pt1 (list (car pt1) (cadr pt1)))
(SETQ pt2 (list (car pt2) (cadr pt2)))
(SETQ pt3 (list (car pt3) (cadr pt3)))
(SETQ pt4 (list (car pt4) (cadr pt4)))
(setq dst1 (distance pt1 pt2))
(setq dst2 (distance pt3 pt4))
(setq dt1 (/ dst1 5))
(setq dt2 (/ dst2 5))
(setq ang1 (angle pt1 pt2))
(setq ang2 (angle pt3 pt4))
(setq pt5 (polar pt1 ang1 dt1))
(setq pt6 (polar pt3 ang2 dt2))
(setq pt7 nil)
(setq pt7 (inters pt1 pt2 pt3 pt4 nil))
;;(command “Pline” pt1 pt7 pt3 “”
;; “fillet” pt5 pt6)
(command “pline” pt1 pt7 pt3 “”)
(setq rad (getvar “FILLETRAD”))
(setvar “FILLETRAD” (min rad (distance pt1 pt7) (distance pt3 pt7)))
(setq pl (entlast))
(command “fillet” “p” pl)
(setvar “FILLETRAD” rad)
(command “explode” pl)
(command “undo” “e”)
(setvar “ORTHOMODE” orth)
(setvar “OSMODE” osmo)
)
리습을 써서 라인을 그리는 건데 이걸 그리면 라인으로 나와서 폴리선으로 나오고 한선으로 되게 수정하려면 어떻게 해야 할까요?
https://blog.naver.com/zephynzest/223925831853
gpt통해서 고친건데 리습 원래 동작을 몰라서 맞는지 모르겠습니다.
여기게시판에올리면 특수문자삽입되어서 동작되지 않아 제 블로그 링크합니다.