用grread做一个动态等分

depgfdepgf

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

cq4920

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

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

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

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

00放飞梦想00

楼主做什么行业的

bai2000

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

cq4920

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

全案设计，全屋定制

tomonkey239

大神，感谢分享大神

Klein

grread一直用不熟，学习下

zmzk

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

xyp1964

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

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

cq4920

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

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

道理就是这样

+ - 按键值只查询到这两个 不知道大键盘和小键盘的按键值是否一致