<ruby id="bdb3f"></ruby>

    <p id="bdb3f"><cite id="bdb3f"></cite></p>

      <p id="bdb3f"><cite id="bdb3f"><th id="bdb3f"></th></cite></p><p id="bdb3f"></p>
        <p id="bdb3f"><cite id="bdb3f"></cite></p>

          <pre id="bdb3f"></pre>
          <pre id="bdb3f"><del id="bdb3f"><thead id="bdb3f"></thead></del></pre>

          <ruby id="bdb3f"><mark id="bdb3f"></mark></ruby><ruby id="bdb3f"></ruby>
          <pre id="bdb3f"><pre id="bdb3f"><mark id="bdb3f"></mark></pre></pre><output id="bdb3f"></output><p id="bdb3f"></p><p id="bdb3f"></p>

          <pre id="bdb3f"><del id="bdb3f"><progress id="bdb3f"></progress></del></pre>

                <ruby id="bdb3f"></ruby>

                企業??AI智能體構建引擎,智能編排和調試,一鍵部署,支持知識庫和私有化部署方案 廣告
                [^-^]: 根據論壇源碼修改 [鏈接](http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102165&extra=page%3D2%26filter%3Dtypeid%26typeid%3D107) 效果圖: ![](https://box.kancloud.cn/b24fea96a29fa1501fcc1be0351aa1a3_682x464.gif) 源碼: ``` (defun c:ng:dengfen (/ L1 L2 P1 P2 A1 D1 P3 P4 A2 D2 PL1 PL2 PTS count) (while (and (while (or (not count) (<= count 1)) (setq count (getint "請輸入等分數量:") ) (cond (null count) (setq count 10) (<= count 1) (prompt "\\n等分數不能小于1\\n") ) ) (setq l1 (car (entsel "\\n選擇曲線1:"))) (setq l2 (car (entsel "\\n選擇曲線2:"))) ) (setq p1 (vlax-curve-getStartPoint l1) p2 (vlax-curve-getEndPoint l1) d1 (\* (/ 1.0 count) (vlax-curve-getDistAtParam l1 (vlax-curve-getEndParam l1))) p3 (vlax-curve-getStartPoint l2) p4 (vlax-curve-getEndPoint l2) d2 (\* (/ 1.0 count) (vlax-curve-getDistAtParam l2 (vlax-curve-getEndParam l2))) pl1 (list p1) pl2 (list p3) i 0 ) (repeat (\- count 1) (setq i (1+ i) pl1 (cons (vlax-curve-getpointatdist l1 (\* d1 i)) pl1) pl2 (cons (vlax-curve-getpointatdist l2 (\* d2 i)) pl2) ) ) (setq pl1 (cons p2 pl1) pl2 (cons p4 pl2) ) (if (inters (car pl1) (car pl2) (last pl1) (last pl2)) (setq pl2 (reverse pl2)) ) (setq pts (mapcar 'list pl1 pl2)) (mapcar ' (lambda (x) (entmake (list ' (0 . "line") (cons 10 (car x)) (cons 11 (cadr x)))) ) pts ) ) (princ) ) ```
                  <ruby id="bdb3f"></ruby>

                  <p id="bdb3f"><cite id="bdb3f"></cite></p>

                    <p id="bdb3f"><cite id="bdb3f"><th id="bdb3f"></th></cite></p><p id="bdb3f"></p>
                      <p id="bdb3f"><cite id="bdb3f"></cite></p>

                        <pre id="bdb3f"></pre>
                        <pre id="bdb3f"><del id="bdb3f"><thead id="bdb3f"></thead></del></pre>

                        <ruby id="bdb3f"><mark id="bdb3f"></mark></ruby><ruby id="bdb3f"></ruby>
                        <pre id="bdb3f"><pre id="bdb3f"><mark id="bdb3f"></mark></pre></pre><output id="bdb3f"></output><p id="bdb3f"></p><p id="bdb3f"></p>

                        <pre id="bdb3f"><del id="bdb3f"><progress id="bdb3f"></progress></del></pre>

                              <ruby id="bdb3f"></ruby>

                              哎呀哎呀视频在线观看