圆部分长度乐筑天下 - Powered by Discuz! Archiver

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

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

(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？

(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年缺少什么命令？

页: 1 [2]

乐筑天下's Archiver