IZZAT TAHA
Usenet Archive
- Joined
- Aug 4, 2003
- Messages
- 9
- Reaction score
- 0
Hi I'm new in lisp routines, i'm trying to copy a lisp routine from another source and modified to fit our company needs, the problem is i'm getting the following error when i try to use it "V1 ; error: bad argument type:
numberp: nil", you can read the lisp below
Thanks
(defun C:V1 (setq gap (* 0.25 dsf))(setq blkn "VGATE")(inbkgv))
;
; - inbkgv2 - Insert with gap on 1 side only:
(defun inbkgv2
(setq xosmode (getvar "osmode"))
(setvar "osmode" 0)
(cmdoff)(setl)(smo)
(setq pt1 (getpoint "Pick point:.. "))
(setq anglr (getangle pt1 "\nShow direction of line: ")) (setq sym (strcat blkdir blkn)) (setq pt2 (polar pt1 anglr 0.28)) ;verify dimension (if (= noline nil) (command ".break" pt2 "f" (polar pt1 anglr 0) (polar pt1 anglr (/ gap 2))) (princ) ) (setq noline nil) (command ".insert" sym pt1 dsf dsf pt2) (setq hsdsf dsf) (cmdrestor) (resetl)(setvar "osmode" xosmode)(prinC)
)
numberp: nil", you can read the lisp below
Thanks
(defun C:V1 (setq gap (* 0.25 dsf))(setq blkn "VGATE")(inbkgv))
;
; - inbkgv2 - Insert with gap on 1 side only:
(defun inbkgv2
(setq xosmode (getvar "osmode"))
(setvar "osmode" 0)
(cmdoff)(setl)(smo)
(setq pt1 (getpoint "Pick point:.. "))
(setq anglr (getangle pt1 "\nShow direction of line: ")) (setq sym (strcat blkdir blkn)) (setq pt2 (polar pt1 anglr 0.28)) ;verify dimension (if (= noline nil) (command ".break" pt2 "f" (polar pt1 anglr 0) (polar pt1 anglr (/ gap 2))) (princ) ) (setq noline nil) (command ".insert" sym pt1 dsf dsf pt2) (setq hsdsf dsf) (cmdrestor) (resetl)(setvar "osmode" xosmode)(prinC)
)