[已解决]求高手帮忙改善下这个源码！关于entmake生成带有圆弧的多段线

qinleilei · 发表于 2014-6-3 18:33:47

本帖最后由 qinleilei 于 2014-6-4 23:04 编辑

下面是自己写的源码。就是不知道下图中R10的圆弧如何画出来。各位高手帮忙改善下源码。

(defun c:ac()
(princ"\n画A冲")
(setvar "cmdecho" 0)
(command "ucs" "w")
(setq a (getreal "\n输入A冲直径:"))
(setq b (getreal "\n输入P端直径:"))
(setq c (getreal "\n输入P端长度:"))
(setq d (getreal "\n输入总长度:"))
(setq P (getpoint "\n放置点:"))
(setq x(car p))
(setq y(cadr p))
(setq P1 (list (- x (+ (/ a 2) 1.5)) y))
(setq P2 (list (+ x (+ (/ a 2) 1.5)) y))
(setq P3 (list (+ x (+ (/ a 2) 1.5)) (- y 5)))
(setq P4 (list (+ x (/ a 2)) (- y 5)))
(setq P5 (list (- x (/ a 2)) (- y 5)))
(setq P6 (list (- x (+ (/ a 2) 1.5)) (- y 5)))
(setq P9 (list (- x (/ b 2)) (- y (- d c))))
(setq P10 (list (+ x (/ b 2)) (- y (- d c))))
(setq P11 (list (- x (/ b 2)) (- y d)))
(setq P12 (list (+ x (/ b 2)) (- y d)))
(setq h  (sqrt (- 100(expt(- 10 (/ (- a b) 2)) 2))))
(setq P8 (list (+ x (/ a 2)) (- y (- d (+ c h)))))
(setq P7 (list (- x (/ a 2)) (- y (- d (+ c h)))))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")  '(62 . 2) '(90 . 12) '(70 . 1) (cons 10 p1) (cons 10 p2)(cons 10 p3) (cons 10 p4) (cons 10 p8) (cons 10 p10) (cons 10 p12) (cons 10 p11) (cons 10 p9) (cons 10 p7) (cons 10 p5) (cons 10 p6)))
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p5) (cons 11 p4)))
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p7) (cons 11 p8)))
(princ))

lucas_3333 · 发表于 2014-6-3 18:53:27

我想应该P9 P10作为起点，P7, P8作为终点，　即起点，终点，半径画弧

qinleilei · 发表于 2014-6-3 19:32:47

lucas_3333 发表于 2014-6-3 18:53
我想应该P9 P10作为起点，P7, P8作为终点，　即起点，终点，半径画弧

那样是可以。但是我想知道的是如何用entmake生成带有圆弧的多段线。

lucas_3333 · 发表于 2014-6-3 19:37:17

qinleilei 发表于 2014-6-3 19:32
那样是可以。但是我想知道的是如何用entmake生成带有圆弧的多段线。

可以参考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109214

qinleilei · 发表于 2014-6-3 19:56:55

lucas_3333 发表于 2014-6-3 19:37
可以参考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109214

看了一下，不怎么明白，不知道他那个圆是怎么控制方位的，兄弟方便的话，帮我改善下这个代码好不？感激不尽！

edata · 发表于 2014-6-4 15:43:54

凸度=拱高/弦长的一半,如果弧从起点到终点是顺时针走向则凸度为负数，0表示直线，1表示半圆。
dxf组码 42

;;两点半径求凸度
(defun sk_2pr->bulge (p1 p2 r / mpt a b k bulge)
(if (and p1
p2
r
(= (type p1) 'LIST)
(= (type p2) 'LIST)
(numberp r)
)
(progn
(setq mpt (mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2)
a (distance p1 mpt)
b (sqrt (- (* r r) (* a a)))
k (- r b)
bulge (/ k a)
)
)
)
)
(defun c:ac()
(princ"\n画A冲")
(setvar "cmdecho" 0)
(command "ucs" "w")
(setq a (getreal "\n输入A冲直径:"))
(setq b (getreal "\n输入P端直径:"))
(setq c (getreal "\n输入P端长度:"))
(setq d (getreal "\n输入总长度:"))
(setq P (getpoint "\n放置点:"))
(setq x(car p))
(setq y(cadr p))
(setq P1 (list (- x (+ (/ a 2) 1.5)) y))
(setq P2 (list (+ x (+ (/ a 2) 1.5)) y))
(setq P3 (list (+ x (+ (/ a 2) 1.5)) (- y 5)))
(setq P4 (list (+ x (/ a 2)) (- y 5)))
(setq P5 (list (- x (/ a 2)) (- y 5)))
(setq P6 (list (- x (+ (/ a 2) 1.5)) (- y 5)))
(setq P9 (list (- x (/ b 2)) (- y (- d c))))
(setq P10 (list (+ x (/ b 2)) (- y (- d c))))
(setq P11 (list (- x (/ b 2)) (- y d)))
(setq P12 (list (+ x (/ b 2)) (- y d)))
(setq h (sqrt (- 100 (expt(- 10 (/ (- a b) 2)) 2))))
(setq P8 (list (+ x (/ a 2)) (- y (- d (+ c h)))))
(setq P7 (list (- x (/ a 2)) (- y (- d (+ c h)))))
(setq p8_bulge (sk_2pr->bulge p8 p10 10))
(setq p9_bulge (sk_2pr->bulge p9 p7 10))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(62 . 2) '(90 . 12) '(70 . 1) (cons 10 p1) (cons 10 p2)(cons 10 p3) (cons 10 p4) (cons 10 p8)(cons 42 p8_bulge) (cons 10 p10) (cons 10 p12) (cons 10 p11) (cons 10 p9)(cons 42 p9_bulge) (cons 10 p7) (cons 10 p5) (cons 10 p6)))
(entmake (list '(0 . "LINE") '(62 . 2) (cons 10 p5) (cons 11 p4)))
(entmake (list '(0 . "LINE") '(62 . 2) (cons 10 p7) (cons 11 p8)))
(princ))

;;两点半径求凸度 
(defun sk_2pr->bulge (p1 p2 r / mpt a b k bulge) 
  (if (and p1 
           p2 
           r 
           (= (type p1) 'LIST) 
           (= (type p2) 'LIST) 
           (numberp r) 
      ) 
    (progn 
      (setq mpt          (mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2) 
            a          (distance p1 mpt) 
            b          (sqrt (- (* r r) (* a a))) 
            k          (- r b) 
            bulge (/ k a) 
      ) 
    ) 
  ) 
) 
(defun c:ac() 
(princ"\n画A冲") 
(setvar "cmdecho" 0) 
(command "ucs" "w") 
(setq a (getreal "\n输入A冲直径:")) 
(setq b (getreal "\n输入P端直径:")) 
(setq c (getreal "\n输入P端长度:")) 
(setq d (getreal "\n输入总长度:")) 
(setq P (getpoint "\n放置点:")) 
(setq x(car p)) 
(setq y(cadr p)) 
(setq P1 (list (- x (+ (/ a 2) 1.5)) y)) 
(setq P2 (list (+ x (+ (/ a 2) 1.5)) y)) 
(setq P3 (list (+ x (+ (/ a 2) 1.5)) (- y 5))) 
(setq P4 (list (+ x (/ a 2)) (- y 5))) 
(setq P5 (list (- x (/ a 2)) (- y 5))) 
(setq P6 (list (- x (+ (/ a 2) 1.5)) (- y 5))) 
(setq P9 (list (- x (/ b 2)) (- y (- d c)))) 
(setq P10 (list (+ x (/ b 2)) (- y (- d c)))) 
(setq P11 (list (- x (/ b 2)) (- y d))) 
(setq P12 (list (+ x (/ b 2)) (- y d))) 
(setq h  (sqrt (- 100 (expt(- 10 (/ (- a b) 2)) 2)))) 
(setq P8 (list (+ x (/ a 2)) (- y (- d (+ c h))))) 
(setq P7 (list (- x (/ a 2)) (- y (- d (+ c h))))) 
(setq p8_bulge (sk_2pr->bulge p8 p10 10)) 
(setq p9_bulge (sk_2pr->bulge p9 p7 10)) 
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")  '(62 . 2) '(90 . 12) '(70 . 1) (cons 10 p1) (cons 10 p2)(cons 10 p3) (cons 10 p4) (cons 10 p8)(cons 42 p8_bulge) (cons 10 p10) (cons 10 p12) (cons 10 p11) (cons 10 p9)(cons 42 p9_bulge) (cons 10 p7) (cons 10 p5) (cons 10 p6))) 
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p5) (cons 11 p4))) 
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p7) (cons 11 p8))) 
(princ))

qinleilei · 发表于 2014-6-4 22:53:53

本帖最后由 qinleilei 于 2014-6-4 22:55 编辑

edata 发表于 2014-6-4 15:43
凸度=拱高/弦长的一半,如果弧从起点到终点是顺时针走向则凸度为负数，0表示直线，1表示半圆。
dxf组码 42
...

非常感谢 E大的耐心解答，虽说你的代码我还看不懂，但至少我知道了圆弧是由 dxf组码 42 凸度来控制的了，E大的热心让我心服口服！

下面的源码是我自己改进了一下。也达到了预期的效果。

(defun c:ac()
(princ"\n画A冲")
(setvar "cmdecho" 0)
(command "ucs" "w")
(setq a (getreal "\n输入A冲直径:"))
(setq b (getreal "\n输入P端直径:"))
(setq c (getreal "\n输入P端长度:"))
(setq d (getreal "\n输入总长度:"))
(setq P (getpoint "\n放置点:"))
(setq x(car p))
(setq y(cadr p))
(setq P1 (list (- x (+ (/ a 2) 1.5)) y))
(setq P2 (list (+ x (+ (/ a 2) 1.5)) y))
(setq P3 (list (+ x (+ (/ a 2) 1.5)) (- y 5)))
(setq P4 (list (+ x (/ a 2)) (- y 5)))
(setq P5 (list (- x (/ a 2)) (- y 5)))
(setq P6 (list (- x (+ (/ a 2) 1.5)) (- y 5)))
(setq P9 (list (- x (/ b 2)) (- y (- d c))))
(setq P10 (list (+ x (/ b 2)) (- y (- d c))))
(setq P11 (list (- x (/ b 2)) (- y d)))
(setq P12 (list (+ x (/ b 2)) (- y d)))
(setq h  (sqrt (- 100(expt(- 10 (/ (- a b) 2)) 2))))
(setq P8 (list (+ x (/ a 2)) (- y (- d (+ c h)))))
(setq P7 (list (- x (/ a 2)) (- y (- d (+ c h)))))
(setq m (list (/ (+ (car p8) (car p10)) 2) (/ (+ (cadr p8) (cadr p10)) 2)));点P8到点P10之间的中点
(setq m1(list (+ x (/ b 2) 10) (- y (- d c))));R10圆心坐标
(setq m2 (- 10 (distance m m1)));拱高
(setq m3 (/ m2 (/ (distance p8 p10) 2))) ;凸度
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")  '(62 . 2) '(90 . 12) '(70 . 1) (cons 10 p1) (cons 10 p2)(cons 10 p3) (cons 10 p4) (cons 10 p8) (cons 42 m3) (cons 10 p10) (cons 10 p12) (cons 10 p11) (cons 10 p9) (cons 42 m3) (cons 10 p7) (cons 10 p5) (cons 10 p6)))
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p5) (cons 11 p4)))
(entmake (list '(0 . "LINE") '(62 . 2)  (cons 10 p7) (cons 11 p8)))
(princ))

qinleilei · 发表于 2014-6-4 23:06:22

怎么将帖子设置为已解决，谁能告诉我一下

edata · 发表于 2014-6-4 23:13:00

据我所知，你这个两个直径相差20，P段直径是不可以省略输入，如果是，那么凸度也算是固定的，直接用用这个固定的凸度也可以。

冒个烟圈 · 发表于 2015-5-29 21:59:44

edata 发表于 2014-6-4 15:43
凸度=拱高/弦长的一半,如果弧从起点到终点是顺时针走向则凸度为负数，0表示直线，1表示半圆。
dxf组码 42
...

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(62 . 2) '(90 . 12) '(70 . 1) (cons 10 p1) (cons 10 p2)(cons 10 p3) (cons 10 p4) (cons 10 p8)(cons 42 p8_bulge) (cons 10 p10) (cons 10 p12) (cons 10 p11) (cons 10 p9)(cons 42 p9_bulge) (cons 10 p7) (cons 10 p5) (cons 10 p6)))
这段真长。。，，，

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

[已解答] [已解决]求高手帮忙改善下这个源码！关于entmake生成带有圆弧的多段线

本帖子中包含更多资源

相关帖子

评分

点评