depgfdepgf 发表于 2022-12-21 20:27:46

大佬，第一个和第二个里面没有找到
Mc:ZXc 这个函数

cq4920 发表于 2022-12-21 23:22:26

depgfdepgf 发表于 2022-12-21 20:27
大佬，第一个和第二个里面没有找到
Mc:ZXc 这个函数

;;;两点画直线
(defun Mc:ZXC (PT1 PT2 col /)
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)(cons 62 col)))
)

这个函数也不复杂，稍微思考一下嘛

00放飞梦想00 发表于 2023-1-8 20:27:47

楼主做什么行业的

bai2000 发表于 2023-1-8 21:36:28

效果我的和楼主的怎么不一样呢？

cq4920 发表于 2023-1-9 15:49:49

00放飞梦想00 发表于 2023-1-8 20:27
楼主做什么行业的

全案设计，全屋定制

tomonkey239 发表于 2023-1-9 16:42:30

大神，感谢分享大神

Klein 发表于 2023-1-10 15:39:32

grread一直用不熟，学习下

zmzk 发表于 2023-1-26 20:32:46

这个功能是如何实现的？可以预先给等分数目，然后+号增加，-号减少，

xyp1964 发表于 2023-1-26 21:43:03

zmzk 发表于 2023-1-26 20:32
这个功能是如何实现的？可以预先给等分数目，然后+号增加，-号减少，



(princ "\n数量增加(a)/数量减少(s)/厚度增加(d)/厚度减少(f)/切换方向(q)/退出(鼠标、空格键或回车)")

cq4920 发表于 2023-1-27 02:04:50

本帖最后由 cq4920 于 2023-1-27 02:05 编辑

zmzk 发表于 2023-1-26 20:32
这个功能是如何实现的？可以预先给等分数目，然后+号增加，-号减少，

（and (=2 a) (= 43 aa )） （ setq n（1+ n））
.....
（and(=2 a) (= 45 aa )）（ setq n（1-n））
.....

道理就是这样

+ - 按键值只查询到这两个 不知道大键盘和小键盘的按键值是否一致
页: 1 [2] 3 4
查看完整版本: 用grread做一个动态等分