沿两条线的连接点

churchntj · 发表于 2022-7-5 23:35:26

这很好，现在它可以完美地工作了，除了我似乎无法使它与圆弧一起工作。

ymg3 · 发表于 2022-7-5 23:40:44

Churdhntj，

在我发布的这个版本的图像中，顶部多段线有两个弧
底部是一条样条线。

一个问题可能是，我们正在用
直线段。你的目标有点小。

因此，在非常紧密的弧的情况下，它可能会错过。

ymg公司

churchntj · 发表于 2022-7-5 23:44:21

我已经试过几次了，但都不能只处理圆弧或一组多段线中的圆弧。这是我的命令行所做的：
（我突然想到，我在法语AutoCAD中工作，所以这会有影响吗？到目前为止，我对此没有任何问题）

命令：Joint
选择第一条多段线：
选择第二条多段线：。快速移动
Spécifiez le coin d'une fenêtre，entrez un facteur déchelle（nX ou nXP）ou
[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet]：
Spécifiez le premier硬币：Spécifiez le coin Opposté：
命令：_。快速移动
Spécifiez le coin d'une fenêtre，entrez un facteur déchelle（nX ou nXP）ou
[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet]：
Spécifiez le premier硬币：Spécifiez le coin Opposté：
命令：

ymg3 · 发表于 2022-7-5 23:46:33

churchntj，

你确定你安装了Express Tools吗？？

您应该会收到选择第一条多段线的提示
然后另一个提示选择第二个，然后
命令继续绘制线。

现在，您正在（acet ss zoom extenses（setq ss（ssadd en））处分手
这是第一个被称为Express Tools的工具。

ymg公司

churchntj · 发表于 2022-7-5 23:50:21

ymg3，

Express Tools已安装并正常工作。lsp适用于普通多段线。
这两个提示有效，单击第二行时出错：

选择第一条多段线：
选择第二条多段线：。快速移动
Spécifiez le coin d'une fenêtre，entrez un facteur déchelle（nX ou nXP）ou
[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet]：
Spécifiez le premier硬币：Spécifiez le coin Opposté：*不正确*
; 错误：年度基金

ymg3 · 发表于 2022-7-5 23:53:42

churchntj，

C'est a ce moment que la fonction“acet ss zoom extenses”
这是上诉。

对于cément c'est la que le problème se situe。

这是一种可能性。

Fais un essai en enlevant la première ligne de la fonction（getfencesel）

ymg公司

ymg3 · 发表于 2022-7-5 23:55:01

churchntj，

Essaye en remplaçant la fonction“getfencesel”
par la suivante：

copy


;;*************************************************************************;
  ;; getfencesel        by ymg                                               ;
  ;;                                                                         ;
  ;; Arguments:  en,  Linear Entity Name (Polylines, Arc, Ellipse etc.)      ;
  ;;            flt,  A valid Entity filer Ex: '((0 . "3DFACE"))  or nil     ;
  ;;                                                                         ;
  ;;   Returns: A Selection Set of Entities touching the selecting entity.   ;
  ;;                                                                         ;
  ;;  Requires: Express Tools                                                ;
  ;;*************************************************************************;
  (defun getfencesel (en flt / fe px ss)    
     (vl-cmdf "_ZOOM" "_O" en "")
     (setq px (* 0.75 (acet-geom-pixel-unit))
           fe (acet-list-remove-adjacent-dups (acet-geom-object-point-list en (/ px 2.0)))
           ss (if flt (ssget "_F" fe flt) (ssget "_F" fe))
     )      
  )