[求助]

ctower

陈老师：请教一个问题：我想编一个简单的lsp小程序DH(一次性水平标注尺寸)，但调用完命令dim后，不知道该怎么把控制权再交给原程序，让它退出dim。

附源程序
(defun C:DH(/)
   (COMMAND "DIM" "HOR" "" "" "hor")
   (command "e" "")
)

陈伯雄

ctower

陈老师：
       还是退不到原程序，我的想法是执行完(COMMAND "DIM" "HOR")后，我按交互输入的方法进行水平尺寸标注，然后让它返回程序，退出dim命令。(尺寸标注完后CAD的提示符是"dim:"，我想让它退到"COMMAND:"提示符下，能实现么？)
       谢谢!

陈伯雄

为什么？
您把脖子伸出来，想让别人砍么？

龙龙仔

ll_j

[此贴子已经被作者于2002-9-26 19:26:51编辑过]

lfc9861

需要执行内部定义命令时在DIM的命令前加"."号，执行内部定义命令

lfc9861

在需要执行内部定义命令时前，在命令前加"."

秋枫

Command: dim
Dim: hor
Specify first extension line origin or <select object>:
Specify second extension line origin:
Specify dimension line location or [Mtext/Text/Angle]:
Enter dimension text <206.96>:
Dim: exi
Command:
可以啊。你怎么不行？
试用command函数也对, 如期回到了命令提示符command上。
Command: (command "dim" "hor" "0,0" "3000,0" "0,1000" "" "exi")
nil
Command:

你是太笨还是爱开玩笑？

ctower

都怪我国文没学好，我的意思是：怎样才能让以下程序执行以后还能返回到“COMMAND:”提示符下。
    (defun C:DH(/)
       (COMMAND "DIM" "HOR" )
       ;DIM命令所要求的第一点、第二点、第三点及标注的数字有我交互
       ;输入
      (command "e")
       ;该行实际上程序没有执行，怎麽样才能让他执行？
    )
   实际上，该程序执行后是停留在“DIM:”提示符下的。

   以下是我的执行过程：
   Command: dh DIM
Dim: HOR
First extension line origin or press ENTER to select: e *Invalid*
error: Function cancelled
(COMMAND "e")
(C:DH)

First extension line origin or press ENTER to select:
Second extension line origin:
Dimension line location (Text/Angle):
Dimension text <1200>:

Dim: