如何同时使用getdist getpoint getword等命令？
本帖最后由 ThinkerHua 于 2015-12-1 14:43 编辑例如pline命令，能在指定下一点的同时，接收输入的指令。
不知道怎么插入截图，复制了一段pline的指令提示：
“指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:” 这段程序应该是这样的：
(defun sub1
(initget "A H L W U") ;关键字
(setq pt (getpoint “\n指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:”))
(cond
((= pt "A") (sub_arc));转圆弧子程序
((= pt "H")
(setq hh(getdistans "\n半宽");设置半宽
(sub1) ;回到输入点
)
(...)
(t (sub_point)) ;没输入关键字，转输入点的下一步
)
) 本帖最后由 自贡黄明儒 于 2015-12-1 11:22 编辑
(initget "getdist getpoint getword")
(setq no (getkword "\n 请输入链号[距离(D)/点(P)/关键字(W)]<D>:"))
有这样干的吗？ 理论上说是不能同时使用这三个命令的。但可以用initget选择。
(initget "getdist getpoint getword")
(setq do (getkword "\n 请输入链号[距离(D)/点(P)/关键字(W)]<D>:"))
(setq pt ((read do) "\n请输入参数: ")) 楼上两位的没看懂啊，帮助文档是全英文的，更看不懂。有具体实例吗？ 自贡黄明儒 发表于 2015-12-1 11:21 static/image/common/back.gif
有这样干的吗？
能否详细解答一下initget函数用法？ ThinkerHua 发表于 2015-12-1 16:43 static/image/common/back.gif
能否详细解答一下initget函数用法？
函数的用法可以看帮助文件或者这里：http://www.mjtd.com/function/index-126.html
附件是我一个很多年前的，能帮助理解AutoLisp。 ll_j 发表于 2015-12-1 17:21 static/image/common/back.gif
这段程序应该是这样的：
(defun sub1
(initget "A H L W U") ;关键字
谢谢你的耐心解答，现在知道怎么用了
页:
[1]