需要Lisp来创建stock leng

rajeshmuthu · 发表于 2022-7-6 08:51:24

在下面的草图中，我需要lisp创建与草图相同的重叠长度（例如12000mm）（例如1000mm）（未显示尺寸）。仅输入库存长度和搭接长度。[附件]30357

[ATTACH=CONFIG]30355[ATTACH]

Tharwat · 发表于 2022-7-6 09:00:32

你的素描至少对我来说不清楚。除此之外，这套套路的目的。。。。

rajeshmuthu · 发表于 2022-7-6 09:03:08

请查看随附的图纸。。。。。。。。。这对钢筋详图工作非常有用。

[附件]30356

Tharwat · 发表于 2022-7-6 09:08:10

这

copy

(defun c:stick-dim (/ p dim)
;; Tharwat 02. Oct. 2011 ;;
 (vl-load-com)
 (cond ((not mod)
        (setq mod (vla-get-modelspace
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
        )
       )
 )
 (if (setq p (getpoint "\n Starst point :"))
   (progn
     (setq dim (vla-adddimAligned
                 mod
                 (vlax-3d-point p)
                 (vlax-3d-point (polar p 0. 12000.))
                 (vlax-3d-point (polar p (/ pi 2.) 350.))
               )
     )
     (vla-put-textoverride
       dim
       "{\\H1.2x;<>}\\X{\\C1;(STOCK LENGTH)}"
     )
   )
   (princ)
 )
 (princ)
)

塔瓦特

rajeshmuthu · 发表于 2022-7-6 09:13:14

嗨，塔尔瓦特。在这个lisp中，我不想要维度。。。。
如果你看到我的dwg文件，我需要那条“青色线”，搭接（1000）长。。
我需要青色线将自动绘制到股票长度（12000mm）与搭接长度（1000mm）根据总长度。

前任。。如果总长为23000mm

我们需要分开12000+（11000+1000（圈））

Tharwat · 发表于 2022-7-6 09:18:38

您的意思是要将其绘制为长度为1000的线实体作为标准？

但是长度标签会是一行文字吗？

如果可能的话，您的信息不足以让我们知道给您提供正确的代码。

eldon · 发表于 2022-7-6 09:19:09

我想知道你会为这个lisp Tharwat支付多少钱，看看OP是如何为工作做广告的，毫无疑问会使用你的手工作品。

还是我在怀疑。虽然已经有了一些详细的项目，但我认为这些项目是要花钱的。那么，既然你的友好Cad论坛将提供

rajeshmuthu · 发表于 2022-7-6 09:27:30

对我需要画线（青色）只有正确的长度作为标准。

和长度标签仅供参考（长度）。。不需要在上面的行中显示文本

Tharwat · 发表于 2022-7-6 09:31:12

当然没什么，有时甚至连一句感谢都没有。

我通常不会走出Lisp论坛，因为这是我心爱的一个，根据你的建议，我想你是对的eldon。

完全同意。

rajeshmuthu · 发表于 2022-7-6 09:35:02

Hi eldon，目前我们正在Autocad中进行手动详细设计。我们正在尝试快速使用lisp。如果可能的话，我们可以使用这个lisp程序。
然后，不需要重新设置详细程序。。因为我们可以在Autocad中完成所有工作。它（Autocad）比重新设置详细程序更容易。。。所以我请求帮助改进我的工作。。。。

[编程交流] 需要Lisp来创建stock leng

发表回复

精选推荐