0 Members and 1 Guest are viewing this topic.
any ideas?
(command "OSNAP" "NONE" "") (command "line" point1 point2 "") (command "line" point3 point4 "") (command "line" point5 point6 "") (command "line" point7 point8 "") (COMMAND "_layer" "_m" "WALLS" "_c" "6" "" "_lw" "0.5" "" "") (command "line" point1 point4 "") (command "line" point2 point3 "")
(defun GetUserInput ( / p1 p2 p3 osmd) (setq osmd (getvar "OSMODE")) (setvar "OSMODE" 545) ; nea + int + end (setq p1 (getpoint "\nthe first insertion point: ")) (if (/= nil p1) (setq p2 (getpoint p1 "\nthe second insertion point: "))) (setvar "OSMODE" 128) ; Per (if (/= nil p2) (setq p3 (getpoint p2 "\nthe opposite wall point: "))) (setvar "OSMODE" osmd) (list p1 p2 p3))(defun DoorFrame(/ p1 p2 p3 p4 dist delta ang p5 p6 p7 p8 osmd ss cmd) (setq osmd (getvar "OSMODE") cmd (getvar "CMDECHO")) (setvar "OSMODE" 0) (setq Plist (GetUserInput)) (setq p1 (car Plist) p2 (cadr Plist) p3 (caddr Plist)) (if (or (not p1)(not p2)(not p3)) (princ "\nFunction Canceled.") (progn (setq ang (angle p1 p2) delta 55 ; correct the value dist (distance p1 p2) p4 (polar p3 (+ pi ang) dist) p5 (polar p1 ang delta) p6 (polar p4 ang delta) p7 (polar p2 (+ pi ang) delta) p8 (polar p3 (+ pi ang) delta) ) (command "_pline" p1 p4 "") (setq ss (ssadd)) (ssadd (entlast) ss) (command "_pline" p2 p3 "") (ssadd (entlast) ss) (command "_trim" ss "" "C" p7 p6 "") (command "_line" p1 p5 p6 p4 "") (command "_line" p2 p7 p8 p3 "") ) ; _ end of progn ) ; _ end of if (setvar "OSMODE" osmd) (setvar "CMDECHO" cmd) (princ))