难题-圆角Lisp

johnshar123xx · 发表于 2022-7-6 12:06:57

难题-圆角Lisp

AutoCAD 2007
我有很多棘手的问题/要求，我目前正在寻找一些LISP来解决它们。我一直在网上搜索我需要的lisps，虽然我已经找到了一些东西，但我仍然有一些东西，我似乎无法找到确切的我要找的东西。我想借此机会提前感谢每一位对我的问题有意见的人，感谢他们给予我的任何帮助。

想知道是否有人有一个lisp，可以让我圆角一条直线或多段线连接到一个圆弧

Lee Mac · 发表于 2022-7-6 12:14:29

圆角半径是多少？

Lee Mac · 发表于 2022-7-6 12:19:40

这

copy


(defun c:fil (/ *error* e1 e2 vl ov)
 (vl-load-com)
 (defun *error* (e)
   (and ov (mapcar 'setvar vl ov))
   (or (wcmatch (strcase e) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " e " **")))
   (princ))
 
 (while
   (progn
     (setq e1 (car (entsel "\nSelect First Object: ")))
     (cond (  (eq 'ENAME (type e1))
              (if (vl-position (cdr (assoc 0 (entget e1))) '("LINE" "LWPOLYLINE" "ARC"))
                (while
                  (progn
                    (setq e2 (car (entsel "\nSelect Second Object: ")))
                    (cond (  (eq 'ENAME (type e2))
                             (if (not (vl-position (cdr (assoc 0 (entget e2))) '("LINE" "LWPOLYLINE" "ARC")))
                               (princ "\n** Object must be Line/Polyline/Arc **"))))))
                
                (princ "\n** Object must be Line/Polyline/Arc **"))))))
 (setq vl '("CMDECHO" "OSMODE" "FILLETRAD") ov (mapcar 'getvar vl))
 (mapcar 'setvar vl '(0 0 0.0))
 (vl-cmdf "_.fillet" e1 e2)
 (mapcar 'setvar vl ov)
 (princ))

alanjt · 发表于 2022-7-6 12:24:31

虽然我觉得这完全没有必要，也不值得普林斯这么做，但我想指出一点关于你的选择。圆角将工作时，只饲料2搪瓷，但会给混合的结果。始终为其提供“（ename点）。李，没有什么对你不利的，我只是想知道。

copy

(defun c:fil (/ *error* e1 e2 vl ov)
 (vl-load-com)
 (defun *error* (e)
   (and ov (mapcar 'setvar vl ov))
   (or (wcmatch (strcase e) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " e " **")))
   (princ))
 
 (while
   (progn
     (setq e1 (entsel "\nSelect First Object: "))
     (cond (  (eq 'ENAME (type (car e1)))
              (if (vl-position (cdr (assoc 0 (entget (car e1)))) '("LINE" "LWPOLYLINE" "ARC"))
                (while
                  (progn
                    (setq e2 (entsel "\nSelect Second Object: "))
                    (cond (  (eq 'ENAME (type (car e2)))
                             (if (not (vl-position (cdr (assoc 0 (entget (car e2)))) '("LINE" "LWPOLYLINE" "ARC")))
                               (princ "\n** Object must be Line/Polyline/Arc **"))))))
                
                (princ "\n** Object must be Line/Polyline/Arc **"))))))
 (setq vl '("CMDECHO" "OSMODE" "FILLETRAD") ov (mapcar 'getvar vl))
 (mapcar 'setvar vl '(0 0 0.0))
 (vl-cmdf "_.fillet" e1 e2)
 (mapcar 'setvar vl ov)
 (princ))

只要修剪一下，把所有的东西都当作尖端。然后只需选择这两条线。

Lee Mac · 发表于 2022-7-6 12:28:53

谢谢艾伦的建议，谢谢。

我意识到Lisp程序对于这个微不足道的任务来说相当简单。。

也许这就是所有必要的：

copy


(defun c:fil ( )
 (command "_.fillet" pause pause)
 (princ))

但在那一点上，为什么要麻烦呢。

alanjt · 发表于 2022-7-6 12:37:33

没错，何必费心呢眨眼：

copy

Command: F
FILLET
Current settings: Mode = TRIM, Radius = 0.00
Select first object or [undo/Polyline/Radius/Trim/Multiple]:
Select second object or shift-select to apply corner:

李，我只是在挑你的毛病。