XDGE 中 hardTrimByParams 错误

st788796

按 lzh 版主这个函数http://bbs.xdcad.net/forum.php?m ... 646&pid=3528129用 XdGe 库函数改写成 Lisp，Line Circle Arc Ellipse 正常，Spline Lwpolyline 错误

1. (defun GetSubCurve (ge from to / in atStart atEnd clone nin)
   
2.   (setq        in        (car (xdge::getpropertyvalue ge "getInterval"))
   
3.         atStart        (equal (xdge::getpropertyvalue in "lowerBound")
   
4.                        to
   
5.                        (car (xdrx_document_getprec))
   
6.                 )
   
7.         atEnd        (equal (xdge::getpropertyvalue in "upperBound")
   
8.                        from
   
9.                        (car (xdrx_document_getprec))
   
10.                 )
    
11.   )
    
12.   (cond
    
13.     ((and atStart atEnd) ge)
    
14.     ((= (xdge::type ge) "kNurbCurve3d")
    
15.      (if (< from to)
    
16.        (progn
    
17.          (if (or atStart atEnd)
    
18.            (progn
    
19.              (xdge::setpropertyvalue ge "hardTrimByParams" from to)
    
20.              ge
    
21.            )
    
22.            (progn
    
23.              (xdge::setpropertyvalue
    
24.                ge
    
25.                "hardTrimByParams"
    
26.                (xdge::getpropertyvalue "lowerBound")
    
27.                to
    
28.              )
    
29.              (xdge::setpropertyvalue ge "hardTrimByParams" from to)
    
30.              ge
    
31.            )
    
32.          )
    
33.        )
    
34.        (progn
    
35.          (setq clone (xdge::copy ge))
    
36.          (xdge::setpropertyvalue
    
37.            ge
    
38.            "hardTrimByParams"
    
39.            from
    
40.            (xdge::getpropertyvalue in "upperBound")
    
41.          )
    
42.          (xdge::setpropertyvalue
    
43.            clone
    
44.            "hardTrimByParams"
    
45.            (xdge::getpropertyvalue in "lowerBound")
    
46.            to
    
47.          )
    
48.          (xdge::setpropertyvalue ge "joinWith" clone)
    
49.          ge
    
50.        )
    
51.      )
    
52.     )
    
53.     (t
    
54.      (setq nin (xdge::constructor "AcGeInterval" from to))
    
55.      (xdge::setpropertyvalue ge "setInterval" nin)
    
56.      ge
    
57.     )
    
58.   )
    
59. )
    
60. (defun c:tt (/ e p1 p2 ge from to clone)
    
61.   (if (and (setq e (entsel))
    
62.            (setq p1 (cadr e))
    
63.            (setq p2 (getpoint p1 "\nSecond point: "))
    
64.            (setq ge (xdge::constructor (car e)))
    
65.            (setq from (xdge::getpropertyvalue
    
66.                         ge
    
67.                         "paramOf"
    
68.                         (xdge::getpropertyvalue ge "closestPointTo" p1)
    
69.                       )
    
70.                  to   (xdge::getpropertyvalue
    
71.                         ge
    
72.                         "paramOf"
    
73.                         (xdge::getpropertyvalue ge "closestPointTo" p2)
    
74.                       )
    
75.            )
    
76.       )
    
77.     (progn
    
78.       (setq clone (GetSubCurve ge from to))
    
79.       (xdge::entity:make clone)
    
80.       (xdrx_entity_setcolor (entlast) 1)
    
81.       (vl-cmdf ".move" "l" "" p1)
    
82.     )
    
83.   )
    
84.   (princ)
    
85. )
    

(defun GetSubCurve (ge from to / in atStart atEnd clone nin)<br />   (setq        in        (car (xdge::getpropertyvalue ge "getInterval"))<br />         atStart        (equal (xdge::getpropertyvalue in "lowerBound")<br />                        to<br />                        (car (xdrx_document_getprec))<br />                 )<br />         atEnd        (equal (xdge::getpropertyvalue in "upperBound")<br />                        from<br />                        (car (xdrx_document_getprec))<br />                 )<br />   )<br />   (cond<br />     ((and atStart atEnd) ge)<br />     ((= (xdge::type ge) "kNurbCurve3d")<br />      (if (< from to)<br />        (progn<br />          (if (or atStart atEnd)<br />            (progn<br />              (xdge::setpropertyvalue ge "hardTrimByParams" from to)<br />              ge<br />            )<br />            (progn<br />              (xdge::setpropertyvalue<br />                ge<br />                "hardTrimByParams"<br />                (xdge::getpropertyvalue "lowerBound")<br />                to<br />              )<br />              (xdge::setpropertyvalue ge "hardTrimByParams" from to)<br />              ge<br />            )<br />          )<br />        )<br />        (progn<br />          (setq clone (xdge::copy ge))<br />          (xdge::setpropertyvalue<br />            ge<br />            "hardTrimByParams"<br />            from<br />            (xdge::getpropertyvalue in "upperBound")<br />          )<br />          (xdge::setpropertyvalue<br />            clone<br />            "hardTrimByParams"<br />            (xdge::getpropertyvalue in "lowerBound")<br />            to<br />          )<br />          (xdge::setpropertyvalue ge "joinWith" clone)<br />          ge<br />        )<br />      )<br />     )<br />     (t<br />      (setq nin (xdge::constructor "AcGeInterval" from to))<br />      (xdge::setpropertyvalue ge "setInterval" nin)<br />      ge<br />     )<br />   )<br /> )<br /> (defun c:tt (/ e p1 p2 ge from to clone)<br />   (if (and (setq e (entsel))<br />            (setq p1 (cadr e))<br />            (setq p2 (getpoint p1 "\nSecond point: "))<br />            (setq ge (xdge::constructor (car e)))<br />            (setq from (xdge::getpropertyvalue<br />                         ge<br />                         "paramOf"<br />                         (xdge::getpropertyvalue ge "closestPointTo" p1)<br />                       )<br />                  to   (xdge::getpropertyvalue<br />                         ge<br />                         "paramOf"<br />                         (xdge::getpropertyvalue ge "closestPointTo" p2)<br />                       )<br />            )<br />       )<br />     (progn<br />       (setq clone (GetSubCurve ge from to))<br />       (xdge::entity:make clone)<br />       (xdrx_entity_setcolor (entlast) 1)<br />       (vl-cmdf ".move" "l" "" p1)<br />     )<br />   )<br />   (princ)<br /> )<br />

XDSoft

谢谢！SPLINE,和POLYLINE错误具体是什么？

st788796

XDSoft 发表于 2014-9-18 08:37
谢谢！SPLINE,和POLYLINE错误具体是什么？

SPLINE 不稳定，容易异常警告，PLINE 无效，返回整条