用grread做一个动态等分

cq4920 · 发表于 2022-12-9 13:21

本帖最后由 cq4920 于 2023-9-5 23:38 编辑

;;117.3 [功能] 返回当前视窗左下角和右上角坐标
(defun viewpnts (/ A B C D X)
(setq d (getvar "screensize")) ;屏像素
(setq b (* (getvar "viewsize") 0.5) ;viewsize屏竖长
a (* b (/ (car d) (cadr d))) ;屏横长
x (trans (getvar "viewctr") 1 2) ;屏中点viewctr
c (list (- (car x) a) (- (cadr x) b) 0.0)
d (list (+ (car x) a) (+ (cadr x) b) 0.0)
)
(list (trans c 2 1) (trans d 2 1))
)

zj20190405 · 发表于 2022-12-10 08:26

这样控制数量很不方便，明经有个动态矩形等分的

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

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)))
)

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

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

本帖最后由 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））
.....

道理就是这样

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

depgfdepgf · 发表于 2022-12-9 13:41

少了关键函数MC:MD

cq4920 · 发表于 2022-12-20 23:59

zj20190405 发表于 2022-12-10 08:26
这样控制数量很不方便，明经有个动态矩形等分的

直接显示数量会不会好一些，另外我其实想做层不管矩形方向如何都能正确运行

depgfdepgf · 发表于 2022-12-21 07:18

很历害了

depgfdepgf · 发表于 2022-12-21 08:40

大佬，是不是少了一些函数，用不了

depgfdepgf · 发表于 2022-12-21 08:48

Mc:ZXc 老大可以补全下这个函数不？

a2580106803 · 发表于 2022-12-21 09:41

本帖最后由 a2580106803 于 2022-12-21 09:45 编辑

(SETQ NHH (fix (+ (/ HH n) 0.5)))
(SETQ Nww (fix (+ (/ ww n) 0.5)))

(setq pa (polar Pa R (fix (+ (/ (- k (* cb(1- n))) n) 0.5))))
(setq pb (polar Pb R (fix (+ (/ (- k (* cb(1- n))) n) 0.5))))
间距取整会比较好，不然最后全是小数点

cq4920 · 发表于 2022-12-21 18:52

depgfdepgf 发表于 2022-12-21 07:18
很历害了

第一个立面有函数，第二个是单纯程序

cq4920 · 发表于 2022-12-21 19:03

a2580106803 发表于 2022-12-21 09:41
(SETQ NHH (fix (+ (/ HH n) 0.5)))
(SETQ Nww (fix (+ (/ ww n) 0.5)))

这有想过在做动态调整层板厚度的时候做这样的处理，如果是手动设置厚度倒是影响不大

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

[经验] 用grread做一个动态等分

本帖子中包含更多资源

点评

评分