(DEFUN C:FLEXCABLE () (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ")) (SETQ bulge_sign 1.0) (SETQ new_ite NIL ITE NIL ) (SETQ ITE (ENTGET(CAR(ENTSEL)))) (IF (EQ (CDR (ASSOC 0 ITE)) "POLYLINE") (PROGN (COMMAND ".convertpoly" "light" (CDR (ASSOC -1 ITE)) "") (PRINC "\nHeavy Polyline converted to LWPolyline please select it again: ") (PRINC) (SETQ LWPOLY_SS (SSGET '((0 . "LWPOLYLINE")))) (SETQ ITE (ENTGET(SSNAME LWPOLY_SS 0))) ) ) (SETQ ite_len (LENGTH ITE)) (SETQ ite_cnt 0) (WHILE (< ite_cnt ite_len) (IF (EQ (CAR (NTH ite_cnt ITE)) 42) (SETQ new_ite (APPEND new_ite (LIST (CONS 42 (* (SETQ bulge_sign (* -1.0 bulge_sign)) 0.60))))) (SETQ new_ite (APPEND new_ite (LIST (NTH ite_cnt ITE)))) ) (SETQ ite_cnt (1+ ite_cnt)) ) (IF (ENTMAKE (CDR new_ite)) NIL ) (PRINC) )