[求助]：再次发帖，希望能给与帮助！！谢谢！！

yfywk

;;;;;;索引符号插入命令
(defun c:s2 (/ lst pt1 pt2 pt3 n1)
(princ "\n")
(princ "索引符号插入命令，输入s2调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setq pt1 (getpoint "\n输入索引符号插入点[右索引(Y)/左索引(Z)]:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(command "INSERT" "sz.dwg" pt1 n1 n1 "")
(princ)
)

怎么样实现选项(setq pt1 (getpoint "\n输入索引符号插入点[右索引(Y)/左索引(Z)]:"))
选左索引插入一个块，选右索引插入另一个块？

狂刀

把pt1和块名对应起来就可以了阿

lsjjm

最初由 yfywk 发布
[B]...怎么样实现选项(setq pt1 (getpoint "\n输入索引符号插入点[右索引(Y)/左索引(Z)]:")) 选左索引插入一个块，选右索引插入另一个块？... [/B]

(getpoint 函数返回的是一个点呀！一个点怎么能知道是右索引，左索引？
看看这样行不行：
...
(initget "Y Z")
(setq kw (getkword "\n 选择索引符号[右索引(Y)/左索引(Z)]:"))
(setq pt1 (getpoint "\n输入插入点"))
(cond
  ((= kw "Z")(command "INSERT" "sz.dwg" pt1 n1 n1 ""))
  ((= kw "Y")(command "INSERT" "sy.dwg" pt1 n1 n1 ""))
)
...

它山之石

　　另一个思路，得到点后，判断鼠标的位置（利用GRREAD？），在所得点的左边就插入左索引要用的块。有些程序是根据鼠标位置实时改变的，也许是这样实现的。

狂刀

getpoint是可以返回字符串的
详见 vlisp帮助，initget

zihzih

添加一句 (initget 1 "Z Y"):

  ......
  (initget  1  "Z Y")
  (setq pt1 (getpoint "\n输入索引符号插入点[右索引(Y)/左索引(Z)]:"))
  .....

yfywk

谢谢“lsjjm 白金长老”的帮助，我改了一下，运行良好！
现在共享给lisp初学者参考！

;::::索引符号插入命令
(defun c:s2 (/ lst pt1 pt2 pt3 n1)
(princ "\n")
(princ "索引符号插入命令，输入s2调入命令。作者：凯凯")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(initget "Y Z")
(setq kw (getkword "\n 选择索引符号[右索引(Y)/左索引(Z)]<右索引>:"))
(setq pt1 (getpoint "\n输入插入点"))
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
   (setq n1 1)
)
(cond
((or(= kw "Z"))
(command "INSERT" "sz.dwg" pt1 n1 n1 ""))
((or (= kw "Y")
     (= kw nil))
(command "INSERT" "su.dwg" pt1 n1 n1 ""))
)
(princ)
)

hi71400

还不如点两个点呢，用第二个点判断左右，比回答字符方便！

狂刀

(initget "Y Z")
(setq kw (getpoint "\n 选点 [右索引(Y)/左索引(Z)]<右索引>:"))

lsjjm

最初由 狂刀 发布
[B](initget "Y Z")
(setq kw (getpoint "\n 选点 [右索引(Y)/左索引(Z)]<右索引>:")) [/B]

这个和getkword函数功效一样的，用哪一个都可以，但是点呢？  getpoint 不能同时获得字符和点。

狂刀

[php]
(defun c:ttt ()
  (while
    (progn
      (initget "A B")
      (setq p (getpoint "\n取点[A-左 /B-右]:"))
      (cond
        ((= 'LIST (type p)) (setq p2 (getpoint p1))
         (cond ((>(car p)(car p2))(princ "左"))
               ((<(car p)(car p2))(princ "右"))
         )
        )
        ((= "A" p) (princ "左"))
        ((= "B" p) (princ "右"))
        (T nil)
      )
    )
  )
)
[/php]