需要Lisp来创建stock leng
在下面的草图中，我需要lisp创建与草图相同的重叠长度（例如12000mm）（例如1000mm）（未显示尺寸）。仅输入库存长度和搭接长度。[附件]3035730355 你的素描至少对我来说不清楚。除此之外，这套套路的目的。。。。 请查看随附的图纸。。。。。。。。。这对钢筋详图工作非常有用。
[附件]30356 这
(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)
)
塔瓦特 嗨，塔尔瓦特。在这个lisp中，我不想要维度。。。。
如果你看到我的dwg文件，我需要那条“青色线”，搭接（1000）长。。
我需要青色线将自动绘制到股票长度（12000mm）与搭接长度（1000mm）根据总长度。
前任。。如果总长为23000mm
我们需要分开12000+（11000+1000（圈）） 您的意思是要将其绘制为长度为1000的线实体作为标准？
但是长度标签会是一行文字吗？
如果可能的话，您的信息不足以让我们知道给您提供正确的代码。 我想知道你会为这个lisp Tharwat支付多少钱，看看OP是如何为工作做广告的，毫无疑问会使用你的手工作品。
还是我在怀疑。虽然已经有了一些详细的项目，但我认为这些项目是要花钱的。那么，既然你的友好Cad论坛将提供 对我需要画线（青色）只有正确的长度作为标准。
和长度标签仅供参考（长度）。。不需要在上面的行中显示文本 当然没什么，有时甚至连一句感谢都没有。
我通常不会走出Lisp论坛，因为这是我心爱的一个，根据你的建议，我想你是对的eldon。
完全同意。 Hi eldon，目前我们正在Autocad中进行手动详细设计。我们正在尝试快速使用lisp。如果可能的话，我们可以使用这个lisp程序。
然后，不需要重新设置详细程序。。因为我们可以在Autocad中完成所有工作。它（Autocad）比重新设置详细程序更容易。。。所以我请求帮助改进我的工作。。。。
页:
[1]
2