(setq wwd (/ wwd1 hhn)) 在计算时显示hhn一直按数值2来计算的，请问哪里错了？
本帖最后由 swamii 于 2022-5-30 10:33 编辑(prompt "\n选择对象：")
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq jxty (ssget))
;选择对象获得图元信息
(setq jxty (ssname jxty 0))
;获得第一个图元名称
(setq jxty (entget jxty))
;获得图元详细信息
(setqjxty (mapcar 'cdr (vl-remove-if (function (lambda (e) (/= 10 (car e)))) jxty)))
;获得图元坐标点
(setq pp1 (car jxty))
;获取图一点坐标
(setq pp2 (cadr jxty))
;获取图元一点坐标
(setq pp3 (caddr jxty))
;获取图元一点坐标
(setq pp4 (cadddr jxty))
;获取图元一点坐标
(setq ppx1 (car pp1)) (setq ppy1 (cadr pp1))
(setq ppx2 (car pp2)) (setq ppy2 (cadr pp2))
(setq ppx3 (car pp3)) (setq ppy3 (cadr pp3))
(setq ppx4 (car pp4)) (setq ppy4 (cadr pp4))
;获取各点的x,y值
(setq ppx1 (min ppx1 ppx2 ppx3 ppx4)) (setq ppx3 (max ppx1 ppx2 ppx3 ppx4))
(setq ppy1 (min ppy1 ppy2 ppy3 ppy4)) (setq ppy3 (max ppy1 ppy2 ppy3 ppy4))
(setq ww (- ppx3 ppx1)) (setq hh (- ppy3 ppy1))
;获得最小点和最大对角点
(setq hhn (getreal "\n输入竖分格的数目"))
(setq wwn (getreal "\n输入横向分格的数目"))
(setq hhw (getreal "\n输入分割线宽度"))
(setq wwd1 (- wwhhw))
(setq wwd(/ wwd1 hhn))
ww哪来的？ (setq hhn (getint "\n输入竖分格的数目: "))
页:
[1]