用grread做一个动态等分
本帖最后由 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))
)
这样控制数量很不方便，明经有个动态矩形等分的 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: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））
.....
道理就是这样
+ - 按键值只查询到这两个 不知道大键盘和小键盘的按键值是否一致
少了关键函数MC:MD
zj20190405 发表于 2022-12-10 08:26
这样控制数量很不方便，明经有个动态矩形等分的
直接显示数量会不会好一些，另外我其实想做层不管矩形方向如何都能正确运行 很历害了 大佬，是不是少了一些函数，用不了:'( Mc:ZXc 老大可以补全下这个函数不？
本帖最后由 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))))
间距取整会比较好，不然最后全是小数点
depgfdepgf 发表于 2022-12-21 07:18
很历害了
第一个立面有函数，第二个是单纯程序 a2580106803 发表于 2022-12-21 09:41
(SETQ NHH (fix (+ (/ HH n) 0.5)))
(SETQ Nww (fix (+ (/ ww n) 0.5)))
这有想过在做动态调整层板厚度的时候做这样的处理，如果是手动设置厚度倒是影响不大