一键显示视口比例

cq4920

chenry676 发表于 2022-11-7 15:46
谢谢！目前使用发现遇到一个问题，比例不整数的时候，是四舍五入，是否能做到是整数的时候保留整数，不是整 ...

http://bbs.mjtd.com/thread-182546-1-1.html

chenry676

cq4920 发表于 2022-11-7 19:40
http://bbs.mjtd.com/thread-182546-1-1.html

主要是别人画的图，或者AutoCAD与浩辰之间打开的时候，有时候会出现比例值不整数，希望能提示，这样便于重新设置。

cq4920

chenry676 发表于 2022-11-7 20:35
主要是别人画的图，或者AutoCAD与浩辰之间打开的时候，有时候会出现比例值不整数，希望能提示，这样便于 ...

明白你的意思，但是好像不太好判断！

(defun isInt(s)
  (if (and s
    (= (type (read s)) 'INT)
      )
    'T
    nil
  )
)
这个能判断是不是整数，但是比例计算的时候10会得出10.0 依然是判断非整数！

chenry676

cq4920 发表于 2022-11-7 20:56
明白你的意思，但是好像不太好判断！

(defun isInt(s)

可否判断到小数点后6位？后1-6位均为0的时候填写整数，后1-6为其中1位不为0的时候判定为非整数。

kucha007

cq4920 发表于 2022-11-7 20:56
明白你的意思，但是好像不太好判断！

(defun isInt(s)

这样？

1. (if (= (distof scale 2) (atoi scale))
   
2.     (princ "是整数值")
   
3.     (princ "不是整数值")
   
4. )
   
5. 
   

(if (= (distof scale 2) (atoi scale)) <br />     (princ "是整数值")<br />     (princ "不是整数值")<br /> )<br /> <br />

kucha007

感谢大佬的无私分享，根据前面的讨论调整了一下，继续分享出来。

阳阳阳

谢谢楼主源码！！！

KO你

kucha007 发表于 2022-11-11 03:14
感谢大佬的无私分享，根据前面的讨论调整了一下，继续分享出来。

文件下载不了

tfanghui

cq4920 发表于 2022-8-29 02:15
已经，用了一个小时，当年的问题现在解决起来还真不是很麻烦！

大佬，这个码现在可以查询并显示1：N的视口，有时候图纸比例是N:1的，这个时候查询的结果是1:1,请教一下这个要修改哪里。

cq4920

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