如何改变ssget提示?

xshrimp · 发表于 2013-6-8 17:53:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

问:如何改变ssget提示?
答:

(princ "提示词：")
(setvar "nomutt" 1)
(setq ss1 (ssget))
(setvar "nomutt" 0)

炫翔 · 发表于 2013-6-8 18:07:59

:lol来个这样的先，
(setq ss1 (ssget(setq lst(list (princ "请选取一个对象"))lst nil))))

wowan1314 · 发表于 2013-6-8 19:38:23

(princ "提示词")
(setq p1 (YY:getpoint '(nil 5 2)))
(setq p2 (YY:getcorner p1 "指定对角点" 1 nil) co (cadr p2) p2 (car p2))
(ssget (if (minusp co) "_c" "_w") p1 p2 )

Lispboy · 发表于 2013-6-8 19:43:28

wowan1314 发表于 2013-6-8 19:38
(princ "提示词")
(setq p1 (YY:getpoint '(nil 5 2)))
(setq p2 (YY:getcorner p1 "指定对角点" 1 nil) ...

小心有人投诉你伪代码了哦。:P

wowan1314 · 发表于 2013-6-8 19:49:24

Lispboy 发表于 2013-6-8 19:43
小心有人投诉你伪代码了哦。

呵呵，有道理。
yy:getcorner 地址http://bbs.xdcad.net/thread-668446-1-1.html
yy:getpoint 地址http://bbs.xdcad.net/thread-668619-1-1.html
这样就妥妥的了

Lispboy · 发表于 2013-6-8 19:50:26

wowan1314 发表于 2013-6-8 19:49
呵呵，有道理。
yy:getcorner 地址http://bbs.xdcad.net/thread-668446-1-1.html
yy:getpoint 地址http ...

呵呵，真听话，精神上鼓励下。;P

QiaoCheng · 发表于 2013-6-11 10:45:27

听起来，有人到现在还是有被人冤的感觉{:soso_e113:}
群众眼睛是雪亮的嘛

sicky111 · 发表于 2015-6-25 14:52:09

好办法

daomeidan · 发表于 2019-3-30 17:28:37

好办法

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

[你问我答] 如何改变ssget提示?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评

点评

点评

点评

评分