(DEFUN c:kotak3 (/ p1 p2 p3 p4)
(SETQ p1 (GETPOINT "\nklik titik awal <0,0,0> : "))
(IF (= p1 nil)
(SETQ p1 '(0 0 0))
)
(SETQ p2 (GETCORNER p1 "\nklik titik awal <10,5,0> : "))
(IF (= p2 nil)
(SETQ p2 '(10 5 0))
)
(COMMAND "_rectangle" p1 p2)
(COMMAND "_line" p1 p2 "")
(SETQ p3 (POLAR p1 0 (CAR p2)))
(SETQ p4 (POLAR p1 (* PI 0.5) (CADR p2)))
(COMMAND "_line" p3 p4 "")
(PRINC)
) ; defun
;; Some changes...
;; e.fernal
(DEFUN c:kotak3 (/ p1 p2 p3 p4 osmode)
(SETQ p1 (GETPOINT "\nklik titik awal <0,0,0> : "))
(IF (= p1 nil)
(SETQ p1 '(0 0 0))
)
(SETQ p3 (GETCORNER p1 "\nklik titik awal <10,5,0> : "))
(IF (= p3 nil)
(SETQ p3 '(10 5 0))
)
(SETQ p2 (LIST (CAR p3) (CADR p1) (CADDR p1))
p4 (LIST (CAR p1) (CADR p3) (CADDR p1))
osmode (GETVAR "OSMODE")
)
(IF (AND p1 p2 p3 p4)
(PROGN (SETVAR "OSMODE" 0)
(ENTMAKE (LIST '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
;;(8 . "0") Put here the desired layer
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
'(43 . 0.0)
'(38 . 0.0)
'(39 . 0.0)
(CONS 10 p1)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(CONS 10 p2)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(CONS 10 p3)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(CONS 10 p4)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
;;(210 0.0 0.0 1.0)
)
)
(ENTMAKE (LIST (CONS 0 "LINE")
;;(8 . "0") Put here the desired layer
(CONS 10 p1)
(CONS 11 p3)
)
)
(ENTMAKE (LIST (CONS 0 "LINE")
;;(8 . "0") Put here the desired layer
(CONS 10 p2)
(CONS 11 p4)
)
)
(SETVAR "OSMODE" osmode)
)
nil
)
(PRINC)
)