[编程交流] 需要INITGET选项可能是

(defun c:vv ()
 (input)
 (compute)
 (draw)
 (whatif)(princ))
 
(defun input ()
 (setvar "cmdecho" 0)
 (command "-units" "4" "" "" "" "" "")
 (setq vc (getdist "Enter vessel seam to seam length in inches..."))
 (setq vd (getreal "Enter vessel diameter in inches..."))
 (initget 1 "H V")(setq vo (getkword "Enter vessel orientation...(H or V)  "))
 (setq vb (getint "How many shellbelts? "))  
 (setq vs (getpoint "Select starting point..."))
(princ))
;;;compute
(defun compute ()
 (setq vc1 (/ vc 2))
 (setq vc2 (+ vc1 2))
 (setq vcc (rtos vc 4 4))
 (setq vcc1 (rtos vc1 4 4))
 (setq vcc2 (rtos vc2 4 4))
;shellbelts
 (setq vc3 (- vc 12))
 (setq vb1 (- vb 1))
 (setq vc4 (/ vc3 vb1))
(princ))
 
   
;;;draw
(defun draw ()
 (setq vss (strcat "@" vcc ",0"))
 (command "layer" "n" "vessel" "s" "vessel" "")
 (command "line" vs vss "")
;;offset
 (setq os (ssget "l"))
 (command "offset" vd os vs "")
 (command "insert" "vcap" vs vd "" "")
 
;;;mirror
 (setq mc (ssget "l"))
 (setq vss1 (strcat "@" vcc1 ",0"))
 (setq vss2 (strcat "@" "0," vcc2))
 (command "mirror" mc "" vss1 vss2 "n")
 (command "layer" "n" "shellbelt" "s" "shellbelt" "")
 (command "insert" "shellbelt" vs vd "" "")
 (command "array" "l" "" "r" "" vb vc4)
 (setq lay_name2 "shellbelt")
 (setq ss1 (ssget "X" (list  (cons 8 lay_name2))))
 (command "move" ss1 "" "0,0" "@6,0")
 (setq lay_name1 "vessel")
 (command "-units" "2" "" "" "" "" "")
 (setq ss2 (ssget "X" (list  (cons 8 lay_name1))))
(princ))
(defun whatif ()
(if (= "V" vo) 
   (command "rotate" ss1 ss2 "" vs "90"))
 (princ))

  (initget 1 "I F")(setq IFIF (getkword "\nEnter vessel seam to seam length in (I)nches or (F)eet..."))
 (cond ((= IFIF "I")
         (setq vc (getdist "Enter vessel seam to seam length in inches...")))
       ((= IFIF "F")
         (setq vvv (getdist "Enter vessel seam to seam length in feet...")))
         (setq vc (* vvv 12))
 )

(while (not (numberp (setq vc (progn (initget "Feet Inches") (getdist "\nSpecify length or [Feet/Inches]: ")))))
 (cond 
   ( (= vc "Feet")
     (alert "Feet were specified, prompting back for a length.") ; do something here
   )
   ( (= vc "Inches")
     (alert "Inches were specified, prompting back for a length.") ; do something here
   )
 ); cond 
); while

; Example for (_GetWithOption):
(defun C:test ( / p )
 (defun pointp ( p ) (and (vl-consp p) (member (length p) '(2 3)) (vl-every 'numberp p)))
 (while
   (not 
     (pointp
       (setq p 
         (_GetWithOption getpoint "Specify a point or "
           '(
             ("Inches" (alert "Inches were specified, prompting back for a point."))
             ("Feet" (alert "Feet were specified prompting back for a point."))
           )
         ); _GetWithOption 
       ); setq p
     ); pointp
   ); not 
 ); while 
 (princ)
); defun C:test for (_GetWithOption)
; getfoo - getXXX function, i.e.: getpoint/getint/getreal/getstring
; msg - message
; aL - assoc list of (<Option [sTR]> <foo>)
(defun _GetWithOption ( getfoo msg aL / v itm r )
 (defun stringp ( s ) (eq 'STR (type s)) )
 (cond 
   ( (not (eq 'SUBR (type getfoo))) (princ "\nInvalid "getfoo" provided.") )
   ( (not (eq 'STR (type msg))) (princ "\nInvalid "msg" provided.") )
   ( (not (and (vl-consp aL) (vl-every 'vl-consp aL) (vl-every 'stringp (mapcar 'car aL)))) (princ "\nInvalid "aL" provided.") )
   (T
     (initget (apply 'strcat (mapcar '(lambda (x) (strcat (car x) " ")) aL)))
     (setq v (getfoo (strcat "\n" msg "[" (vl-string-left-trim "/" (apply 'strcat (mapcar '(lambda (x) (strcat "/" (car x))) aL))) "]")))
     (or (and (setq itm (assoc v aL)) (setq r (car itm)) (progn (eval (cadr itm)) T)) (setq r v) )
   )
 ); cond 
 r
); defun _GetWithOption 

5