[LISP程序]：请帮我看一看程序，帮我修改一下

lfx49

我刚接触lisp程序，请帮修改。
在不同的条件下，插入不同的图框

(defun c:cr()
  (setp tl (getstring "\n 插入图框(1/4)"))
  (if (=tl "1")
  (command "insert" "*kt1" "0,0" "1" "" "")
  (command "insert" "*kt2" "0,0" "1" "" "")
  (command "insert" "*kt3" "0,0" "1" "" "")  
  (command "insert" "*kt4" "0,0" "1" "" "")
)

xyp1964

[php]
(defun c:cr ()
  (setq tl (getstring "\n 插入图框(1/4)"))
  (setq tl (ukword 1 "1 2 3 4" "\n\t1-A1/2-A2/3-A3/4-A4" tl))
  (if (= tl "1")
    (cond ((= tl "1") (command "insert" "kt1" "0,0" "1" "" ""))
          ((= tl "2") (command "insert" "kt2" "0,0" "1" "" ""))
          ((= tl "3") (command "insert" "kt3" "0,0" "1" "" ""))
          ((= tl "4") (command "insert" "kt4" "0,0" "1" "" ""))
    )))
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2))))
    (setq msg (strcat "\n" msg ":")))
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp inp def))
[/php]

lfx49

选1，插入kt1；选2，插入kt2，以此类推、
只能插入kt1,其他三个都不能插入
各位老前辈，帮忙再修改一下

xyp1964

没测试，多了(if (= tl "1")
[php]
(defun c:cr ()
  (setq tl (getstring "\n 插入图框(1/4)"))
  (setq tl (ukword 1 "1 2 3 4" "\n\t1-A1/2-A2/3-A3/4-A4" tl))
  (cond        ((= tl "1") (command "insert" "kt1" "0,0" "1" "" ""))
        ((= tl "2") (command "insert" "kt2" "0,0" "1" "" ""))
        ((= tl "3") (command "insert" "kt3" "0,0" "1" "" ""))
        ((= tl "4") (command "insert" "kt4" "0,0" "1" "" ""))
  )
)
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)
[/php]

梦断江南

玩玩:

2. 
   
3. ;; ai = 插入图框--
   
4. (defun c:ai ( / k f)
   
5.   (initget "1 2 3 4" )
   
6.   (setq k (getstring "\n插入图框kt?(请输入0~4): kt")
   
7.         k (strcat "kt" k))
   
8.   (if (or (tblobjname "BLOCK" k)(findfile (strcat k ".dwg")))
   
9.     (command ".insert" k "0,0" "1" "" "")
   
10.     (princ "\n找不到文件!")
    
11.   )(princ)
    
12. )
    

<br /> ;; ai = 插入图框--<br /> (defun c:ai ( / k f)<br />   (initget "1 2 3 4" )<br />   (setq k (getstring "\n插入图框kt?(请输入0~4): kt")<br />         k (strcat "kt" k))<br />   (if (or (tblobjname "BLOCK" k)(findfile (strcat k ".dwg")))<br />     (command ".insert" k "0,0" "1" "" "")<br />     (princ "\n找不到文件!")<br />   )(princ)<br /> )<br />

lfx49

真的感谢两位，两种程序全部通过!