(DEFUN c:fixbars () (vl-load-com) (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-true) ;;; (COMMAND ".mspace") (COMMAND ".ucs" "w") (IF (SETQ bars_ss (SSGET "X" '((-4 . "")))) (PROGN (SETQ ite (ENTGET (SSNAME bars_ss 0))) (IF (ASSOC 67 ite) (SETQ barspace (CDR(ASSOC 67 ite))) (SETQ barspace 0) ) (SETQ pt0 (POLAR (CDR (ASSOC 10 ite))(CDR(ASSOC 50 ite))(IF(= barspace 1)(/ 135.0 50.0)135.0))) ) (IF (SETQ it (SSGET "x" '((1 . "( IN FEET )")))) (PROGN (SETQ ite (ENTGET (SSNAME it 0))) (IF (ASSOC 67 ite) (SETQ barspace (CDR(ASSOC 67 ite))) (SETQ barspace 0) ) (SETQ pt0 (CDR (ASSOC 11 ite)) pt1 (POLAR (POLAR pt0 (+ PI (CDR (ASSOC 50 ite)))(IF(= barspace 1)(/ 135.0 50.0)135.0)) (+ (* PI 1.5) (CDR (ASSOC 50 ite))) (IF(= barspace 1)(/ 12.0 50.0)12.0) ) ;_ end of polar pt2 (POLAR pt1 (CDR (ASSOC 50 ite))(IF(= barspace 1)(/ 270.0 50.0)270.0)) pt3 (POLAR pt2 (+ (* PI 0.5) (CDR (ASSOC 50 ite)))(IF(= barspace 1)(/ 65.0 50.0)65.0)) pt4 (POLAR pt3 (+ PI (CDR (ASSOC 50 ite)))(IF(= barspace 1)(/ 270.0 50.0)270.0)) pt_lst (LIST pt1 pt2 pt3 pt4) ) ;_ end of setq (SETQ bars_ss (SSGET "WP" pt_lst '((8 . "TEXT")))) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of if (IF(= barspace 1) (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-false) ;;; (COMMAND ".pspace") (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-true) ;;; (COMMAND ".mspace") ) (IF bars_ss (PROGN (COMMAND ".erase" bars_ss "") (COMMAND ".layer" "m" "c-vi027symb" "c" "7" "c-vi027symb" "") ;_ end of COMMAND (COMMAND ".insert" "50bars" pt0 (IF(= barspace 1)(/ 1.0 50.0)1.0) (IF(= barspace 1)(/ 1.0 50.0)1.0) (* 180.0 (/ (CDR (ASSOC 50 ite)) PI)) ) ;_ end of COMMAND ) ;_ end of PROGN ) ;_ end of IF (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-false) ;;; (COMMAND ".pspace") (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (84 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;