修剪为什么只能剪二次

eachy

吃饭才能长胖 发表于 2013-8-17 20:51
没有的！我知道圆孤可以生成来更快，但是圆的话好像没有起点！VLISP我的函数我还不知道怎么用呢。大神用V ...

圆的起点是 三点 方向象限点，这个打断可以用 Break ，但是第一次断开后就没有Circle了，新生成了 Arc ，而且对 ARC 的 Break 要按逆时针来操作，下一次的实体用 entlast 获取

吃饭才能长胖

eachy 发表于 2013-8-17 21:01
圆的起点是 三点 方向象限点，这个打断可以用 Break ，但是第一次断开后就没有Circle了，新生成了 Arc ， ...

为什么要逆时针，顺时针不行么？

eachy

吃饭才能长胖 发表于 2013-8-17 21:07
为什么要逆时针，顺时针不行么？

用xdapi 写了一个，都是简单函数，用V/Alisp 也可以写出来
Break 算法很麻烦，Circle 第一次 Break 后 Entity ObjectID 是不变的，虽然变为圆弧但没有新实体生成，只有圆弧Break后才会生成新实体！

1. (defun c:tt (/ getarcpts e n p r pcen an a an0 pl)
   
2.   (defun getarcpts (p pcen / an an1)
   
3.     (setq an  (angle pcen p)
   
4.    an1 (atan 2. (sqrt (- (* r r) 4)))
   
5.     )
   
6.     (list (polar pcen (- an an1) r)
   
7.    (polar pcen (+ an an1) r)
   
8.     )
   
9.   )
   
10.   (xdrx_begin)
    
11.   (while
    
12.     (and (setq e (car (xdrx_entsel "\n拾取圆: " '((0 . "CIRCLE")))))
    
13.   (setq n (getint "\n分段数: "))
    
14.   (setq p (getpoint "\n起始点: "))
    
15.     )
    
16.      (setq r (xdrx_getentdxf 40)
    
17.     p (vlax-curve-getclosestpointto e p)
    
18.     pcen (xdrx_getentdxf 10)
    
19.     an (angle pcen p)
    
20.     a 1
    
21.     an0 (/ (* pi 2) n)
    
22.      )
    
23.      (repeat n
    
24.        (setq pl (cons (polar pcen (+ an (* a an0)) r) pl)
    
25.       a (1+ a)
    
26.        )
    
27.      )
    
28.      (setq pl (mapcar '(lambda (x)
    
29.     (getarcpts x pcen)
    
30.          )
    
31.         pl
    
32.        )
    
33.      )
    
34.      (mapcar '(lambda (x y)
    
35.   (xdrx_arc_make
    
36.     pcen
    
37.     r
    
38.     (angle pcen (cadr y))
    
39.     (angle pcen (car x))
    
40.   )
    
41.        )
    
42.       pl
    
43.       (append (cdr pl) (list (car pl)))
    
44.      )
    
45.      (entdel e)
    
46.   )
    
47.   (xdrx_end)
    
48.   (princ)
    
49. )

(defun c:tt (/ getarcpts e n p r pcen an a an0 pl)<br />   (defun getarcpts (p pcen / an an1)<br />     (setq an  (angle pcen p)<br />    an1 (atan 2. (sqrt (- (* r r) 4)))<br />     )<br />     (list (polar pcen (- an an1) r)<br />    (polar pcen (+ an an1) r)<br />     )<br />   )<br />   (xdrx_begin)<br />   (while<br />     (and (setq e (car (xdrx_entsel "\n拾取圆: " '((0 . "CIRCLE")))))<br />   (setq n (getint "\n分段数: "))<br />   (setq p (getpoint "\n起始点: "))<br />     )<br />      (setq r (xdrx_getentdxf 40)<br />     p (vlax-curve-getclosestpointto e p)<br />     pcen (xdrx_getentdxf 10)<br />     an (angle pcen p)<br />     a 1<br />     an0 (/ (* pi 2) n)<br />      )<br />      (repeat n<br />        (setq pl (cons (polar pcen (+ an (* a an0)) r) pl)<br />       a (1+ a)<br />        )<br />      )<br />      (setq pl (mapcar '(lambda (x)<br />     (getarcpts x pcen)<br />          )<br />         pl<br />        )<br />      )<br />      (mapcar '(lambda (x y)<br />   (xdrx_arc_make<br />     pcen<br />     r<br />     (angle pcen (cadr y))<br />     (angle pcen (car x))<br />   )<br />        )<br />       pl<br />       (append (cdr pl) (list (car pl)))<br />      )<br />      (entdel e)<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )

Lispboy

eachy 发表于 2013-8-18 00:06
用xdapi 写了一个，都是简单函数，用V/Alisp 也可以写出来
Break 算法很麻烦，Circle 第一次 Break 后 E ...

是把圆等分打断吗？如果是，API可以更简单的，一个主函数 xdrx_curve_getsplitcurves 就做到了

1. (defun XD::Geom:NumDiv (num div / i numl)
   
2.   (setq i 1)
   
3.   (repeat (- div 1)
   
4.     (setq numl (cons (* i (/ num div)) numl)
   
5.           i (1+ i)
   
6.     )
   
7.   )
   
8.   (cons 0.0 (reverse (cons num numl)))
   
9. )
   
10. (defun c:tt()
    
11.    (if (and (setq e (car (xdrx_entsel "\n选取圆<退出>:" '((0 . "circle")))))
    
12.             (setq div (getint "\n等分数<退出>:"))
    
13.             (setq pt (getpoint "\n起始点<退出>:"))
    
14.        )
    
15.      (progn
    
16.         (setq pnear (xdrx_curve_getClosestPoint e pt)
    
17.               ps (xdrx_curve_getparamatpoint e (car pnear))
    
18.               numl (XD::Geom:NumDiv (* 2 pi) div)
    
19.               numl1 (mapcar '(lambda(x)(+ x ps)) numl)
    
20.         )
    
21.         (apply 'xdrx_curve_getSplitCurves (cons e numl1))
    
22.      )
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    

(defun XD::Geom:NumDiv (num div / i numl)<br />   (setq i 1)<br />   (repeat (- div 1)<br />     (setq numl (cons (* i (/ num div)) numl)<br />           i (1+ i)<br />     )<br />   )<br />   (cons 0.0 (reverse (cons num numl)))<br /> )<br /> (defun c:tt()<br />    (if (and (setq e (car (xdrx_entsel "\n选取圆<退出>:" '((0 . "circle")))))<br />             (setq div (getint "\n等分数<退出>:"))<br />             (setq pt (getpoint "\n起始点<退出>:"))<br />        )<br />      (progn<br />         (setq pnear (xdrx_curve_getClosestPoint e pt)<br />               ps (xdrx_curve_getparamatpoint e (car pnear))<br />               numl (XD::Geom:NumDiv (* 2 pi) div)<br />               numl1 (mapcar '(lambda(x)(+ x ps)) numl)<br />         )<br />         (apply 'xdrx_curve_getSplitCurves (cons e numl1))<br />      )<br />   )<br />   (princ)<br /> )<br /> <br />

st788796

Lispboy 发表于 5 小时前

                               
登录/注册后可看大图

是把圆等分打断吗？如果是，API可以更简单的，一个主函数 xdrx_curve_getsplitcurves 就做到了
[code=lisp]
(defun XD::Geom:NumDiv (n

楼主的本意是在圆上开缺口，不是等分，可以计算绘制一段孤，然后用阵列
来自: Android客户端

st788796

1. (vl-load-com)
   
2. (defun c:tt (/ getdivangle acdoc ms _2pi)
   
3.   ;;获取半玄长对应角度
   
4.   (defun getdivangle (r d)
   
5.     (atan d (sqrt (- (* r r) (* d d))))
   
6.   )
   
7.   (setq        acdoc (vla-get-activedocument (vlax-get-acad-object))
   
8.         ms    (vla-get-modelspace acdoc)
   
9.         _2pi (* pi 2)
   
10.   )
    
11.   (vla-startundomark acdoc)
    
12.   (vl-catch-all-apply
    
13.     (function
    
14.       (lambda (/ ss n sl i an el)
    
15.         (while (and (progn (princ "\n选择圆....")
    
16.                            (setq ss (ssget '((0 . "CIRCLE"))))
    
17.                     )
    
18.                     (setq n (getint "\n等分数: "))
    
19.                )
    
20.           (progn
    
21.             (setq sl (sslength ss)
    
22.                   i  -1
    
23.                   an (/ _2pi n)
    
24.             )
    
25.             (repeat sl
    
26.               (setq el (cons (ssname ss (setq i (1+ i))) el))
    
27.             )
    
28.             (mapcar '(lambda (x / r a1 p arc)
    
29.                        (setq r        (vla-get-radius x)
    
30.                              a1        (getdivangle r 2.)
    
31.                              p        (vla-get-center x)
    
32.                        )
    
33.                        (setq
    
34.                          arc (vla-addarc ms p r a1 (- an (* 2 a1)))
    
35.                        )
    
36.                        (vla-arraypolar arc n _2pi p)
    
37.                      )
    
38.                     (mapcar 'vlax-ename->vla-object el)
    
39.             )
    
40.             (vl-cmdf ".erase" ss "")
    
41.           )
    
42.         )
    
43.       )
    
44.     )
    
45.   )
    
46.   (vla-endundomark acdoc)
    
47.   (princ)
    
48. )

(vl-load-com)<br /> (defun c:tt (/ getdivangle acdoc ms _2pi)<br />   ;;获取半玄长对应角度<br />   (defun getdivangle (r d)<br />     (atan d (sqrt (- (* r r) (* d d))))<br />   )<br />   (setq        acdoc (vla-get-activedocument (vlax-get-acad-object))<br />         ms    (vla-get-modelspace acdoc)<br />         _2pi (* pi 2)<br />   )<br />   (vla-startundomark acdoc)<br />   (vl-catch-all-apply<br />     (function<br />       (lambda (/ ss n sl i an el)<br />         (while (and (progn (princ "\n选择圆....")<br />                            (setq ss (ssget '((0 . "CIRCLE"))))<br />                     )<br />                     (setq n (getint "\n等分数: "))<br />                )<br />           (progn<br />             (setq sl (sslength ss)<br />                   i  -1<br />                   an (/ _2pi n)<br />             )<br />             (repeat sl<br />               (setq el (cons (ssname ss (setq i (1+ i))) el))<br />             )<br />             (mapcar '(lambda (x / r a1 p arc)<br />                        (setq r        (vla-get-radius x)<br />                              a1        (getdivangle r 2.)<br />                              p        (vla-get-center x)<br />                        )<br />                        (setq<br />                          arc (vla-addarc ms p r a1 (- an (* 2 a1)))<br />                        )<br />                        (vla-arraypolar arc n _2pi p)<br />                      )<br />                     (mapcar 'vlax-ename->vla-object el)<br />             )<br />             (vl-cmdf ".erase" ss "")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (vla-endundomark acdoc)<br />   (princ)<br /> )

eachy

理解 API 方法

1. ;;获取半弦长对应角度
   
2. (defun XD::ARC:ChordAngle (r d)
   
3.   (atan d (sqrt (- (* r r) (* d d))))
   
4. )
   
5. (defun c:tt (/ _2pi mat ss n a r p a1 arc)
   
6.   (xdrx_begin)
   
7.   (setq _2pi (* 2 pi)
   
8. mat  (xdrx_matrix_identity 3)
   
9.   )
   
10.   (while (and
    
11.     ;;(setq ss (xdrx_ssget "\n选择圆: " '((0 . "CIRCLE"))));_此处 2014 下出现Bug
    
12.     (progn
    
13.       (princ "\n选择圆....")
    
14.       (setq ss (ssget '((0 . "CIRCLE"))))
    
15.     )
    
16.     (setq n (getint "\n等分数: "))
    
17.   )
    
18.     (xdrx_setsstodb ss 0)
    
19.     (setq a (/ _2pi n))
    
20.     (while (setq e (xdrx_getentdata 0))
    
21.       (setq r  (xdrx_getentdxf 40)
    
22.      p  (xdrx_getentdxf 10)
    
23.      a1 (XD::ARC:ChordAngle r 2.)
    
24.       )
    
25.       (xdrx_arc_make p r a1 (- a (* 2 a1)))
    
26.     )
    
27.     (repeat (1- n)
    
28.       (xdrx_entity_transformedcopy
    
29. (entlast)
    
30. (xdrx_matrix_setrotation mat a '(0. 0. 1.) p)
    
31.       )
    
32.     )
    
33.     (xdrx_entity_delete ss)
    
34.   )
    
35.   (xdrx_end)
    
36.   (princ)
    
37. )

;;获取半弦长对应角度<br /> (defun XD::ARC:ChordAngle (r d)<br />   (atan d (sqrt (- (* r r) (* d d))))<br /> )<br /> (defun c:tt (/ _2pi mat ss n a r p a1 arc)<br />   (xdrx_begin)<br />   (setq _2pi (* 2 pi)<br /> mat  (xdrx_matrix_identity 3)<br />   )<br />   (while (and<br />     ;;(setq ss (xdrx_ssget "\n选择圆: " '((0 . "CIRCLE"))));_此处 2014 下出现Bug<br />     (progn<br />       (princ "\n选择圆....")<br />       (setq ss (ssget '((0 . "CIRCLE"))))<br />     )<br />     (setq n (getint "\n等分数: "))<br />   )<br />     (xdrx_setsstodb ss 0)<br />     (setq a (/ _2pi n))<br />     (while (setq e (xdrx_getentdata 0))<br />       (setq r  (xdrx_getentdxf 40)<br />      p  (xdrx_getentdxf 10)<br />      a1 (XD::ARC:ChordAngle r 2.)<br />       )<br />       (xdrx_arc_make p r a1 (- a (* 2 a1)))<br />     )<br />     (repeat (1- n)<br />       (xdrx_entity_transformedcopy<br /> (entlast)<br /> (xdrx_matrix_setrotation mat a '(0. 0. 1.) p)<br />       )<br />     )<br />     (xdrx_entity_delete ss)<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )

zxq0220

2. (defun BRKCIRCLE (DL N W / PC R ANG1 A LR WO5 PT1 P2 P1)
   
3. (if (= (type DL) 'ENAME) (setq DL (entget DL)))
   
4. (setq PC (cdr (assoc 10 DL))    R (cdr (assoc 40 DL))
   
5.        ANG1 (/ (+ PI PI) N) A 0  LR (* 2 PI R)
   
6.        W05 (* W 0.5) AL1 (/ PI 2))
   
7. (if (> LR (* W N))
   
8.   (repeat N
   
9.    (setq PT1 (polar PC A R)
   
10.          P2 (polar PT1 (- A AL1) W05) P1 (polar PT1 (+ A AL1) W05))
    
11.    (if (= A 0)
    
12.     (command "BREAK" PT1 "F" P2 P1)
    
13.     (command "BREAK" PT1 "F" P1 P2)
    
14.    )
    
15.    (setq A (+ A ANG1))
    
16.   )
    
17.   (princ "\nCon't to break this circle! 本圆无法打桥断!")
    
18. )
    
19. )
    
20. ;调用：(BRKCIRCLE (car(entsel)) 4 4)

(defun BRKCIRCLE (DL N W / PC R ANG1 A LR WO5 PT1 P2 P1)<br /> (if (= (type DL) 'ENAME) (setq DL (entget DL)))<br /> (setq PC (cdr (assoc 10 DL))    R (cdr (assoc 40 DL))<br />        ANG1 (/ (+ PI PI) N) A 0  LR (* 2 PI R)<br />        W05 (* W 0.5) AL1 (/ PI 2))<br /> (if (> LR (* W N))<br />   (repeat N<br />    (setq PT1 (polar PC A R)<br />          P2 (polar PT1 (- A AL1) W05) P1 (polar PT1 (+ A AL1) W05))<br />    (if (= A 0)<br />     (command "BREAK" PT1 "F" P2 P1)<br />     (command "BREAK" PT1 "F" P1 P2)<br />    )<br />    (setq A (+ A ANG1))<br />   )<br />   (princ "\nCon't to break this circle! 本圆无法打桥断!")<br /> )<br /> )<br /> ;调用：(BRKCIRCLE (car(entsel)) 4 4)

Lispboy

st788796 发表于 2013-8-18 07:15
楼主的本意是在圆上开缺口，不是等分，可以计算绘制一段孤，然后用阵列

没跟帖，就看你那个程序了，如果打缺口，也可以先算出参数点，xdrx_curve_getSplitCurves 后，把断开的地方删除掉就是了。

吃饭才能长胖

st788796 发表于 2013-8-18 07:15
楼主的本意是在圆上开缺口，不是等分，可以计算绘制一段孤，然后用阵列

好思路，我怎么就没有想到呢。！