圆部分长度

mdbdesign · 发表于 2022-7-6 13:27:12

谢谢李，现在我将尝试合并两个lisp例程，以获得第一篇文章中图片上的结果。附件是dimarc lisp。
你怎么想？会有用吗？？
DIMARC。LSP

Lee Mac · 发表于 2022-7-6 13:28:59

DIMARC命令只允许圆弧/多段线分段输入-因此，不，我认为这不起作用，除非创建临时圆弧，对其进行尺寸标注，然后将其删除。

mdbdesign · 发表于 2022-7-6 13:33:29

到目前为止，我就是这么做的。得到了另一个LISP，它在截面上分割圆，并将选定零件的图层更改为隐藏（您的图层），还有一个LISP，它在弧外创建圆。所以，如果我把它和宏观结合起来，它应该会起作用。

VovKa · 发表于 2022-7-6 13:35:28

李，你应该给你的代码加一些额外的检查

copy


(mapcar        'entmakex
'(((0 . "CIRCLE") (10 21.3977 221.18 0.0) (40 . 20.1493))
  ((0 . "LINE") (10 21.3977 221.18 0.0) (11 41.2409 224.679 0.0))
  ((0 . "LINE") (10 21.3977 221.18 0.0) (11 41.547 221.18 0.0))
  ((0 . "LINE") (10 21.3977 221.18 0.0) (11 41.2409 217.682 0.0))
 )
)

计算上中线之间的弧长，然后计算中中线和下中线之间的弧长。。。他们应该是平等的

Lee Mac · 发表于 2022-7-6 13:39:54

事实上，他们是VovKa（在合理范围内）：

Lee Mac · 发表于 2022-7-6 13:43:56

像这样的可能是M？

copy


(defun c:DimCir (/ doc spc ent p1 p2 ax cen)
 (vl-load-com)
 (setq doc (vla-get-ActiveDocument
             (vlax-get-Acad-Object))
       spc (if (zerop (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))
 (if (and (setq ent (car (entsel "\nSelect Circle: ")))
          (eq "CIRCLE" (cdr (assoc 0 (entget ent))))
          (setq p1 (getpoint "\nPt1: "))
          (setq p2 (getpoint "\nPt2: ")))
   (progn
     (setq ax
       (vla-addArc spc
         (vlax-3D-point
           (setq cen
             (cdr (assoc 10 (entget ent)))))
         (cdr (assoc 40 (entget ent)))
         (angle cen p1) (angle cen p2)))
     (vlax-invoke spc 'adddimarc cen p1 p2 p1)
     (vla-delete ax)
     (vl-cmdf "_.dimtedit" (entlast) pause)))
 (princ))

VovKa · 发表于 2022-7-6 13:44:30

李，你知道我的意思吗
答案应该是实数，而不是列表

Lee Mac · 发表于 2022-7-6 13:49:16

我知道：眨眼：

但是，一个人怎么知道他们想要什么？

mdbdesign · 发表于 2022-7-6 13:52:09

制作按钮：
^C^C（加载“brcirc”）\u brcirc\\^C^C\u（加载“dimarc”）-la；设置尺寸_dimarc \\\u擦除；\^C^C_（加载“a2c.lsp”）_a2c

并附上所有lisp文件。
像魅力一样工作。

我只拿到了2002块。lsp
DIMARC。LSP
A2C。LSP

Lee Mac · 发表于 2022-7-6 13:54:15

哦，02年缺少什么命令？

[编程交流] 圆部分长度

发表回复

精选推荐