论坛 › A/VLISP › 成双成对，形影相随......

/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)**** Hidden Message *****

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

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

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

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 **** Hidden Message *****

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

学习园地顶顶顶

查看完整版本: 成双成对，形影相随......