Converting small LISP routines to VBA and from VBA to ARX
$30-100 USD
En cours
Publié il y a plus de 16 ans
$30-100 USD
Payé lors de la livraison
I am looking for an engineer or skills programmer whom has experience in AutoCAD development to help me with of updating my customization, including a miner improvement and converting Lisp to VBA. And ARX for AutCAD 2008
I have over 100 routines which need to be improve and converted the following is sample of my lisp routine which needs to be converted (Note: I will pay $10 for each routine conversion that means $10 from lisp to vba and $10 from vba to ARX)
;;Insertion of Text
(defun TEXTINS()
(graphscr)
;getting ltscale for text sizes and spacings
(setq LTS (getvar "ltscale")
(setq TI1 (getpoint "nPick insertion point for first line of text: "))
(setq TI2 (list (car TI1) ( (- (cadr TI1) (* 7.5 LTS))))
(setq TI3 (list (car TI1) ( (- (cadr TI1) (* 15.5 LTS))))
(setq TI4 (list (car TI1) ( (- (cadr TI1) (* 20.8 LTS))))
;Changing text style to TEXT5 and inserting text
(command "Osmode" "0")
(command "layer" "set" "text5" "")
(command "style" "text5" "" "" "" "" "" "" "")
(command "text" TI1 "0" "%%UTitle")
(command "text "" assuming")
;Changing text style to text35 and inserting
(command "layer" "set" "text35" "")
(command "style" "text35" "" "" "" "" "" "" "")
(setq str1 (strcat "max =" GRP))
(setq str2 (strcat "min =" GR))
(command "text" TI3 "0" str1)
(command "text" TI4 "0" str2)
Please attached your resume along with your bid