xdrx_polyline_setBulgeAt的用法

XDSoft

你想在哪个顶点后面加入弧线段，就给哪个顶点索引（索引从0开始）。

设定一个表来定义是什么意思？ 举个具体的例子。
你要设置表，可以先构造数据，然后用 (mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt .......)))

XDSoft

kcad2010 发表于 2013-8-20 22:38
如果我是想建立一个正方形 四个角都分别为 R1 R2 R3 R4
应该怎么写?

告诉你个方法，加深你的印象。

你先收工画好你说的图形，倒角好的。 然后entget 它，看看凸度都是多少，4个。

然后你用 (setq e (xdrx_polyline_make t p1 p2 p3 p4)) 画个封闭矩形，点可以在其他地方。
然后        (xdrx_polyline_setbulgeAt e 0 凸度1)
               (xdrx_polyline_setbulgeAt e 1 凸度2)
               (xdrx_polyline_setbulgeAt e 2 凸度3)
              (xdrx_polyline_setbulgeAt e 3 凸度4)
凸度1,2,3,4是你上面看到的按顺序来的。

看看程序给你做什么样了。


另外：接受你的建议，下个版本加入 (xdrx_polyline_setBulgeAt e  <index1 凸度> [<index2 凸度>]... [<indexn 凸度>])这样的配对的参数了。

XDSoft

kcad2010 发表于 2013-8-20 23:02
你前面讲的我能明白
用(mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt .......)))
怎么写一个通 ...

不用写了，下个版本就支持配对的表了。

上面说的忘了，除了添加弧段，你还要添加4个顶点，因为倒角后变成8个顶点了。 添加顶点直接用：

(xdrx_polyline_addVertexat <LWPOLYLINE实体名> <index> <点> [bulge] [起始宽度][结束宽度])


把凸度直接加进去，就不用单独set了，然后另外四个顶点你需要用xdrx_polyline_setPointAt 移动


看下下面的例子

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq r (getreal "\n半径<退出>:"))
   
4.         (setq p1 (getpoint "\n矩形第一点<退出>:"))
   
5.         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))
   
6.       )
   
7.     (progn
   
8.       (setq vec (mapcar '- p3 p1)
   
9.             v (list (car vec) 0.0 0.0)
   
10.             p2 (mapcar '+ p1 v)
    
11.             v (list 0.0 (cadr vec) 0.0)
    
12.             p4 (mapcar '+ p1 v)
    
13.             bulge (xdrx_math_tan (/ pi 8))
    
14.             h+ (list  r 0.0 0.0)
    
15.             h- (list (- r) 0.0 0.0)
    
16.             v- (list 0.0 (- r) 0.0)
    
17.             v+ (list  0.0 r 0.0)
    
18.       )
    
19.       (setq e (xdrx_polyline_make t p1 p2 p3 p4))
    
20.       (xdrx_polyline_addVertexAt e 1 (mapcar '+ p2 h-) bulge)
    
21.       (xdrx_polyline_setPointAt  e 2 (mapcar '+ p2 v+))
    
22.       (xdrx_polyline_addVertexAt e 3 (mapcar '+ p3 v-) bulge)
    
23.       (xdrx_polyline_setPointAt  e 4 (mapcar '+ p3 h-))
    
24.       (xdrx_polyline_addVertexAt e 5 (mapcar '+ p4 h+) bulge)
    
25.       (xdrx_polyline_setPointAt  e 6 (mapcar '+ p4 v-))
    
26.       (xdrx_polyline_addVertexAt e 0 (mapcar '+ p1 v+) bulge)
    
27.       (xdrx_polyline_setPointAt  e 1 (mapcar '+ p1 h+))
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt ()<br />   (if (and<br />         (setq r (getreal "\n半径<退出>:"))<br />         (setq p1 (getpoint "\n矩形第一点<退出>:"))<br />         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))<br />       )<br />     (progn<br />       (setq vec (mapcar '- p3 p1)<br />             v (list (car vec) 0.0 0.0)<br />             p2 (mapcar '+ p1 v)<br />             v (list 0.0 (cadr vec) 0.0)<br />             p4 (mapcar '+ p1 v)<br />             bulge (xdrx_math_tan (/ pi 8))<br />             h+ (list  r 0.0 0.0)<br />             h- (list (- r) 0.0 0.0)<br />             v- (list 0.0 (- r) 0.0)<br />             v+ (list  0.0 r 0.0)<br />       )<br />       (setq e (xdrx_polyline_make t p1 p2 p3 p4))<br />       (xdrx_polyline_addVertexAt e 1 (mapcar '+ p2 h-) bulge)<br />       (xdrx_polyline_setPointAt  e 2 (mapcar '+ p2 v+))<br />       (xdrx_polyline_addVertexAt e 3 (mapcar '+ p3 v-) bulge)<br />       (xdrx_polyline_setPointAt  e 4 (mapcar '+ p3 h-))<br />       (xdrx_polyline_addVertexAt e 5 (mapcar '+ p4 h+) bulge)<br />       (xdrx_polyline_setPointAt  e 6 (mapcar '+ p4 v-))<br />       (xdrx_polyline_addVertexAt e 0 (mapcar '+ p1 v+) bulge)<br />       (xdrx_polyline_setPointAt  e 1 (mapcar '+ p1 h+))<br />     )<br />   )<br />   (princ)<br /> )

newer

XDSoft 发表于 2013-8-20 23:53
不用写了，下个版本就支持配对的表了。

上面说的忘了，除了添加弧段，你还要添加4个顶点，因为倒角后 ...

老大的程序还可以这样改写

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq r (getreal "\n半径<退出>:"))
   
4.         (setq p1 (getpoint "\n矩形第一点<退出>:"))
   
5.         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))
   
6.       )
   
7.     (progn
   
8.       (setq vec (mapcar '- p3 p1)
   
9.             v (list (car vec) 0.0 0.0)
   
10.             p2 (mapcar '+ p1 v)
    
11.             v (list 0.0 (cadr vec) 0.0)
    
12.             p4 (mapcar '+ p1 v)
    
13.             bulge (xdrx_math_tan (/ pi 8))
    
14.             h+ (list  r 0.0 0.0)
    
15.             h- (list (- r) 0.0 0.0)
    
16.             v- (list 0.0 (- r) 0.0)
    
17.             v+ (list  0.0 r 0.0)
    
18.             p1_- (mapcar '+ p1 v+)
    
19.             p1_+ (mapcar '+ p1 h+)
    
20.             p2_- (mapcar '+ p2 h-)
    
21.             p2_+ (mapcar '+ p2 v+)
    
22.             p3_- (mapcar '+ p3 v-)
    
23.             p3_+ (mapcar '+ p3 h-)
    
24.             p4_- (mapcar '+ p4 h+)
    
25.             p4_+ (mapcar '+ p4 v-)
    
26.       )
    
27.       (setq e (xdrx_polyline_make t  p1_- p1_+ p2_- p2_+ p3_- p3_+ p4_- p4_+))
    
28.       (mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt (list e x bulge)))'(0 2 4 6))
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )
    
33. 
    

(defun c:tt ()<br />   (if (and<br />         (setq r (getreal "\n半径<退出>:"))<br />         (setq p1 (getpoint "\n矩形第一点<退出>:"))<br />         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))<br />       )<br />     (progn<br />       (setq vec (mapcar '- p3 p1)<br />             v (list (car vec) 0.0 0.0)<br />             p2 (mapcar '+ p1 v)<br />             v (list 0.0 (cadr vec) 0.0)<br />             p4 (mapcar '+ p1 v)<br />             bulge (xdrx_math_tan (/ pi 8))<br />             h+ (list  r 0.0 0.0)<br />             h- (list (- r) 0.0 0.0)<br />             v- (list 0.0 (- r) 0.0)<br />             v+ (list  0.0 r 0.0)<br />             p1_- (mapcar '+ p1 v+)<br />             p1_+ (mapcar '+ p1 h+)<br />             p2_- (mapcar '+ p2 h-)<br />             p2_+ (mapcar '+ p2 v+)<br />             p3_- (mapcar '+ p3 v-)<br />             p3_+ (mapcar '+ p3 h-)<br />             p4_- (mapcar '+ p4 h+)<br />             p4_+ (mapcar '+ p4 v-)<br />       )<br />       (setq e (xdrx_polyline_make t  p1_- p1_+ p2_- p2_+ p3_- p3_+ p4_- p4_+))<br />       (mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt (list e x bulge)))'(0 2 4 6))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

kcad2010 发表于 2013-8-21 08:05
xdrx_math_tan 这个是什么。我cad２００５好像用不了这个?

你现在用的是什么版本的API？ 现在最新的是0820版本了。

newer

kcad2010 发表于 2013-8-21 08:42
我有一个问题不知道老大是怎么看的
xdrx_polyline_make 你说要升版那如果我们现在写的好lisp以后下新的a ...

再给你个改编的版本，这个好理解了。用圆和多段线交点去求那8个顶点。

1. (defun c:tt ( / bulge e e1 int intl p p1 p2 p3 p4  r v vec x)
   
2.   (defun _t(e p r / e1 int) ;;给圆心半径，算出倒角后两顶点
   
3.      (setq e1 (xdrx_circle_make p r)
   
4.            int (xdrx_entity_intersectwith e e1)
   
5.      )
   
6.      (xdrx_entity_delete e1)
   
7.      int
   
8.   )
   
9.   (if (and
   
10.         (setq r (getreal "\n半径<退出>:"))
    
11.         (setq p1 (getpoint "\n矩形第一点<退出>:"))
    
12.         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))
    
13.       )
    
14.     (progn
    
15.       (setq vec (mapcar '- p3 p1)
    
16.             v (list (car vec) 0.0 0.0)
    
17.             p2 (mapcar '+ p1 v)
    
18.             v (list 0.0 (cadr vec) 0.0)
    
19.             p4 (mapcar '+ p1 v)
    
20.             bulge (xdrx_math_tan (/ pi 8))
    
21.       )
    
22.       (setq e (xdrx_polyline_make t  p1 p2 p3 p4)
    
23.             intl (apply 'append (mapcar '(lambda(x)(_t e x r))(list p1 p2 p3 p4)));;四个顶点变成倒角后的8个顶点
    
24.             intl (xdrx_points_sortOnCurve  e intl t);;顶点表沿着曲线排序，保证点顺序正确
    
25.       )
    
26.       (xdrx_entity_delete e)
    
27.       (setq e(apply 'xdrx_polyline_make (cons t intl)));;绘制8个顶点多段线
    
28.       (mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt (list e x bulge)))'(1 3 5 7));;添加弧段
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )
    
33. 
    

(defun c:tt ( / bulge e e1 int intl p p1 p2 p3 p4  r v vec x)<br />   (defun _t(e p r / e1 int) ;;给圆心半径，算出倒角后两顶点<br />      (setq e1 (xdrx_circle_make p r)<br />            int (xdrx_entity_intersectwith e e1)<br />      )<br />      (xdrx_entity_delete e1)<br />      int<br />   )<br />   (if (and<br />         (setq r (getreal "\n半径<退出>:"))<br />         (setq p1 (getpoint "\n矩形第一点<退出>:"))<br />         (setq p3 (getcorner p1 "\n矩形对角点<退出>:"))<br />       )<br />     (progn<br />       (setq vec (mapcar '- p3 p1)<br />             v (list (car vec) 0.0 0.0)<br />             p2 (mapcar '+ p1 v)<br />             v (list 0.0 (cadr vec) 0.0)<br />             p4 (mapcar '+ p1 v)<br />             bulge (xdrx_math_tan (/ pi 8))<br />       )<br />       (setq e (xdrx_polyline_make t  p1 p2 p3 p4)<br />             intl (apply 'append (mapcar '(lambda(x)(_t e x r))(list p1 p2 p3 p4)));;四个顶点变成倒角后的8个顶点<br />             intl (xdrx_points_sortOnCurve  e intl t);;顶点表沿着曲线排序，保证点顺序正确<br />       )<br />       (xdrx_entity_delete e)<br />       (setq e(apply 'xdrx_polyline_make (cons t intl)));;绘制8个顶点多段线<br />       (mapcar '(lambda(x)(apply 'xdrx_polyline_setBulgeAt (list e x bulge)))'(1 3 5 7));;添加弧段<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

kcad2010 发表于 2013-8-21 08:42
我有一个问题不知道老大是怎么看的
xdrx_polyline_make 你说要升版那如果我们现在写的好lisp以后下新的a ...

你没跟踪过API，你没理解老大的意思，意思是，现在只支持单参数的，以后支持多参数

比如现在的设置凸度，你只能 (xdrx_polyline_setBulgeAt e p0 0.5), 你要修改多个，只能重复的写，改编后，就在一个函数就搞定了，省略循环处理了。
改后应该是这样：(xdrx_polyline_setBulgeAt e p0 0.5 p1 0.3 p2 0.4.....pn 0.3),不会影响你原来的写过的程序的，因为(xdrx_polyline_setBulgeAt e p0 0.5)这样的还一样用。