如何同时使用getdist getpoint getword等命令？

ThinkerHua · 发表于 2015-12-1 10:47

本帖最后由 ThinkerHua 于 2015-12-1 14:43 编辑

例如pline命令，能在指定下一点的同时，接收输入的指令。
不知道怎么插入截图，复制了一段pline的指令提示：
“指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:”

ll_j · 发表于 2015-12-1 17:21

这段程序应该是这样的：
(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:21

本帖最后由自贡黄明儒于 2015-12-1 11:22 编辑

(initget "getdist getpoint getword")
(setq no (getkword "\n 请输入链号[距离(D)/点(P)/关键字(W)]<D>:"))

有这样干的吗？

ZZXXQQ · 发表于 2015-12-1 11:46

理论上说是不能同时使用这三个命令的。但可以用initget选择。
(initget "getdist getpoint getword")
(setq do (getkword "\n 请输入链号[距离(D)/点(P)/关键字(W)]<D>:"))
(setq pt ((read do) "\n请输入参数: "))

ThinkerHua · 发表于 2015-12-1 14:42

楼上两位的没看懂啊，帮助文档是全英文的，更看不懂。有具体实例吗？

ThinkerHua · 发表于 2015-12-1 16:43

自贡黄明儒发表于 2015-12-1 11:21
有这样干的吗？

能否详细解答一下initget函数用法？

ll_j · 发表于 2015-12-1 17:26

ThinkerHua 发表于 2015-12-1 16:43
能否详细解答一下initget函数用法？

函数的用法可以看帮助文件或者这里：http://www.mjtd.com/function/index-126.html
附件是我一个很多年前的，能帮助理解AutoLisp。

ThinkerHua · 发表于 2015-12-2 09:00

ll_j 发表于 2015-12-1 17:21
这段程序应该是这样的：
(defun sub1
(initget "A H L W U") ;关键字

谢谢你的耐心解答

，现在知道怎么用了

账号		自动登录	找回密码
密码			注册

[已解答] 如何同时使用getdist getpoint getword等命令？

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源