chenry676 发表于 2022-11-7 15:46
谢谢！目前使用发现遇到一个问题，比例不整数的时候，是四舍五入，是否能做到是整数的时候保留整数，不是整 ...
http://bbs.mjtd.com/thread-182546-1-1.html
cq4920 发表于 2022-11-7 19:40
http://bbs.mjtd.com/thread-182546-1-1.html
主要是别人画的图，或者AutoCAD与浩辰之间打开的时候，有时候会出现比例值不整数，希望能提示，这样便于重新设置。
chenry676 发表于 2022-11-7 20:35
主要是别人画的图，或者AutoCAD与浩辰之间打开的时候，有时候会出现比例值不整数，希望能提示，这样便于 ...
明白你的意思，但是好像不太好判断！
(defun isInt(s)
(if (and s
(= (type (read s)) 'INT)
)
'T
nil
)
)
这个能判断是不是整数，但是比例计算的时候10会得出10.0 依然是判断非整数！
cq4920 发表于 2022-11-7 20:56
明白你的意思，但是好像不太好判断！
(defun isInt(s)
可否判断到小数点后6位？后1-6位均为0的时候填写整数，后1-6为其中1位不为0的时候判定为非整数。
本帖最后由 kucha007 于 2022-11-11 01:57 编辑
cq4920 发表于 2022-11-7 20:56
明白你的意思，但是好像不太好判断！
(defun isInt(s)
这样？
(if (= (distof scale 2) (atoi scale))
(princ "是整数值")
(princ "不是整数值")
)
本帖最后由 kucha007 于 2022-11-11 14:49 编辑
感谢大佬的无私分享，根据前面的讨论调整了一下，继续分享出来。
谢谢楼主源码！！！
kucha007 发表于 2022-11-11 03:14
感谢大佬的无私分享，根据前面的讨论调整了一下，继续分享出来。
文件下载不了
cq4920 发表于 2022-8-29 02:15
已经，用了一个小时，当年的问题现在解决起来还真不是很麻烦！
大佬，这个码现在可以查询并显示1：N的视口，有时候图纸比例是N:1的，这个时候查询的结果是1:1,请教一下这个要修改哪里。
tfanghui 发表于 2023-2-14 13:52
大佬，这个码现在可以查询并显示1：N的视口，有时候图纸比例是N:1的，这个时候查询的结果是1:1,请教一下 ...
(setq scale (/ (cdr(assoc 45 ent))(cdr(assoc 41 ent))))
(if (< scale 1)
(progn
(setq scale (/ 1 scal))
(setq scale(/ (fix(* scale 1000000)) 1000000.))
(setq scale (strcat "A3@“ (rtos scale 2 0) ” ：1" )))
(progn
(setq scale(/ (fix(* scale 1000000)) 1000000.))
(setq scale (strcat "A3@ 1:"(rtos scale 2 0)"" ))
)