这几天遇到一个怪事，请大佬们帮忙看看~

xjshaha · 发表于 2023-4-9 20:21:43

用如下源代码生成的R0.2圆弧的矩形
在A图档中可以向内偏移无法向外偏移
在B图档中可以正常偏移
请各位大佬帮忙看看分析其中原因?

(defun C:TT (/ LST_PT LST_TU MAXX MAXY MINX MINY P1 P2 PT PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 R1 TU)
  (setq p1 (getpoint "\n指定第一个角点：")
p2 (getpoint p1 "\n指定另一个角点：")
R1 0.2
minx (min (car p1) (car p2))
miny (min (cadr p1) (cadr p2))
maxx (max (car p1) (car p2))
maxy (max (cadr p1) (cadr p2))
  )
  (setq pt1 (list (+ minx R1) miny 0)
pt2 (list minx (+ miny R1) 0)
pt3 (list minx (- maxy R1) 0)
pt4 (list (+ minx R1) maxy 0)
pt5 (list (- maxx R1) maxy 0)
pt6 (list maxx (- maxy R1) 0)
pt7 (list maxx (+ miny R1) 0)
pt8 (list (- maxx R1) miny 0)
  )
  (setq lst_pt (list pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8)
lst_tu (list -0.414214 0 -0.414214 0 -0.414214 0 -0.414214 0)
  )
  (entmakeX
(append (list '(0 . "LWPOLYLINE")
   '(100 . "AcDbEntity")
   '(100 . "AcDbPolyline")
   (cons 90 (length lst_pt))
   (cons 70 1)
      )
      (apply 'append (mapcar '(lambda (pt tu) (list (cons 10 pt) (cons 42 tu))) lst_pt lst_tu))
)
  )
)

xyp1964 · 发表于 2023-4-9 22:38:06

(defun c:tt ()
(if (and (setq p1 (getpoint "\n指定第一个角点: "))
(setq p2 (getcorner p1 "\n指定另一个角点: "))
)
(progn
(command "rectang" p1 p2)
(setq s1 (entlast))
(setvar "filletrad" 0.2)
(command "fillet" "p" s1)
)
)
(princ)
)

xjshaha · 发表于 2023-4-9 23:21:16

xyp1964 发表于 2023-4-9 22:38

谢谢指点，不知道是AB两图档中哪个参数或者变量不一样导致的。

tigcat · 发表于 2023-4-10 21:07:32

xjshaha 发表于 2023-4-9 23:21
谢谢指点，不知道是AB两图档中哪个参数或者变量不一样导致的。

我比较了各个变量,很遗憾,没找到.把A图中的图复制到B图也可以.B图中的复制到A图中就不行了.

xjshaha · 发表于 2023-4-10 22:13:49

tigcat 发表于 2023-4-10 21:07
我比较了各个变量,很遗憾,没找到.把A图中的图复制到B图也可以.B图中的复制到A图中就不行了.

是的，我目前得出结论是是凸度-0.414214精度不够，生成r角八位数显示不是0.20000000而是0.19999985，将-0.4142141改成（- 1 （sqrt 2)）后，生成的圆弧刚好是0.20000000,在A图中是可以正常偏移的,但是我想找出AB两图档中的差异，看看到底是什么不一样导致的。

账号		自动登录	找回密码
密码			注册

[提问] 这几天遇到一个怪事，请大佬们帮忙看看~

本帖子中包含更多资源

评分