#1
|
|||
|
|||
Error message in Sheet Advisor
What does it mean when you get Wrong profile function in Sheet Advisor?
sample of code: (sha-define-shop-table "cvr_hls" :TABLE-TITLE "Tank Cover Holes" :COLUMNS (:DIA :DESCR :MIN_THICK :MAX_THICK :PREFERENCE :ADVICE ) :COLUMN-NAMES ( "Dia" "Descr" "Min Thick" "Max Thick" "Pref" "Advice") :UNITS ( :inch nil :inch :inch nil nil) :CONTENTS ( (.3125 " For M6 " 0 1 :PREF "-") ) :KEY (:DIA ) :DISPLAY (:DIA :DESCR :PREFERENCE :ADVICE) ; :FLAT-TEXT ("") :HELP "sha_rnd" ; unique, not displayable column entries :PROF_FNC sha-cvr_hls :BROWSER-ICON "icon_rnd_co" :USABLE-AS-CORNER-RELIEF :DIA ) ;================================================= ; ; TANK HOLE COVER ; ;================================================= (defun sha-cvr_hls (&key dia &allow-other-keys ) (let ((result nil) (tool-wp (sha-tool-wp)) ) (create_workplane :new :name tool-wp :world_origin ) ;********* create Profile ******* (CIRCLE :CEN_DIA 0,0 dia) ;******** create Adjustpoints ****** (C_POINT 0,0 (gpnt2d -2 -.4375) (gpnt2d 2 -.4375) (gpnt2d -2 .4375) (gpnt2d 2 .4375) ) (setq result (sha-profile-of-wp tool-wp)) (sha-delete-or-show-wp) result ) ) Thanks, Steve |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | Rate This Thread |
|
|