线条方向显示整数线条长度，求帮忙，有BUG，谢谢

wofatfat19777 · 发表于 2021-3-23 20:04:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 wofatfat19777 于 2021-3-23 20:04 编辑

多次输入一个数字后，显示的数字会比输入的数字少1，求帮忙，谢谢(defun c:jl (/ ang ang1 ang2 ang3 ang4  zg jtl oldcm oldos pt1 pt2 pt3 scale dis dis1  ddzhc ddjl1 )

  (setq oldcm (getvar "cmdecho"))
  (setq oldos (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq scale (getreal "\n请输入比例<100>:"))
  (if (= scale nil)
(setq scale 100)
  )
  (setq  zg(* 3.5 scale)                         ; // 字形高度
  )
  (setq pt1 (getpoint "\n请输入第一点:"))       ; //第一点坐标

  (setq pt3 (getpoint pt1 "\n鼠标选距离方向，输入距离:" )) ; //第二点坐标，输入距离
  (setq ang (angle pt3 pt1))                   ; //箭头角度,用弧度表示
  (setq ang1 (angle pt1 pt3))                   ; //文本角度，用弧度表示
  (setq ang2 (* 57.2974 ang1))                   ; //文本角度，用度数表示
  (setq ang3 (* 57.2974 ang))
  (if(and (> ang2 90) (< ang2 270)) (setq ang4 (+ 0 ang3)) (setq ang4 (+ 0 ang2)))

  (setq dis (distance pt1 pt3))                ; //带电距离，小数
  (setq dis1 (fix dis))                         ; //带电距离，取整
  (setq ddzhc (itoa dis1))
  (setq ddjl1 (strcat "≥" ddzhc))
  (command "pline" pt1 "w" 0 0  pt3  ""  "mtext" pt1 "R" ang4 "H" zg "J" "BC" pt3 ddzhc "")
  (setvar "cmdecho" oldcm)
  (setvar "osmode" oldos)
  (princ "\n")
  (princ  dis )
  (princ  dis1 )
  (princ ddzhc )

  (princ "\n继续使用pline命令")
  (princ)
)

wofatfat19777 · 发表于 2021-3-23 20:04:09

看了下输出1800.0 1799 1800.0取整的时候出错了变成了1799，不知道怎么改

weizx2000 · 发表于 2021-3-24 08:55:32

帮忙顶一下~~~~

长安乱 · 发表于 2021-3-24 09:09:45

虽然看不懂还是觉得很厉害

wofatfat19777 · 发表于 2021-3-26 20:07:11

看了下输出1800.0 1799 1800.0取整的时候出错了变成了1799，不知道怎么改

wofatfat19777 · 发表于 2021-3-26 20:10:43

求帮忙，有BUG，谢谢

wofatfat19777 · 发表于 2021-4-10 19:03:33

帐号		自动登录	找回密码
密码			立即注册

[文字] 线条方向显示整数线条长度，求帮忙，有BUG，谢谢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。