成双成对，形影相随......

/db_自贡黄明儒_ · 发表于 2020-8-11 15:27:09

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2020-11-12 13:24 编辑

成双成对(不断更新......)
Lisp编程中，有些函数是成双成对的出现，我举个例子，当是抛砖引玉了，希望大家不断完善，利己利人。
1 shortcutmenu initget
  (setvar 'shortcutmenu 11)这样随后的(initget "mC mL mR")才能弹出右键菜单
2 (redraw) (grdraw p1 p2 1 1)(或者grvecs)
  (redraw)须写在前面，grdraw写在后面
3 (setvar "DIMZIN" 0) (rtos RealNum 2 n) n小数位数
  想取得小数位数，先得(setvar "DIMZIN" 0)
4 (Setvar 'pickbox 0)

游客，如果您要查看本帖隐藏内容请回复

/db_自贡黄明儒_ · 发表于 2020-8-11 15:32:52

本帖最后由 /db_自贡黄明儒_ 于 2020-8-11 15:38 编辑

5

游客，如果您要查看本帖隐藏内容请回复

同志们，少写程序，多看抗日神剧，有助于提升爱国热情

fangmin723 · 发表于 2020-8-12 08:05:52

顶一下，支持黄大师新作！！！

434939575 · 发表于 2020-8-12 09:39:24

学习了解下。

HLCAD · 发表于 2020-8-12 11:38:09

大师的程序一定要学习一下

小陶 · 发表于 2020-8-14 14:45:37

黄大师作品必是精品！学习

/db_自贡黄明儒_ · 发表于 2020-8-14 15:10:26

小陶发表于 2020-8-14 14:45
黄大师作品必是精品！学习

精品算不上，我想我会的你们一定要会哈，下面还有一对
6

游客，如果您要查看本帖隐藏内容请回复

xshrimp · 发表于 2020-8-17 11:41:53

关注一下

bai0371 · 发表于 2020-8-18 21:06:39

大师的程序一定要学习一下

/db_自贡黄明儒_ · 发表于 2020-9-2 18:30:27

8 下面这一对不用说了，大家都熟习，它们长得太象了。
(setq arg (vl-catch-all-apply 'function list))
(vl-catch-all-error-p arg)

ketxu · 发表于 2020-9-2 22:35:13

Thanks for sharing

WhoCanSay · 发表于 2020-12-10 09:54:57

太遗憾，没多少人顶

a117034423 · 发表于 2020-12-12 13:21:08

大师就是大师呀

pxr201419 · 发表于 2020-12-13 10:47:55

xuexixuexi.........

wzg35356 · 发表于 2020-12-13 14:25:36

学习园地顶顶顶

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

[研讨] 成双成对，形影相随......

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