线条宏

JoeyG_77 · 发表于 2022-7-6 23:16:32

大家好。。。我试着做一个宏，当我选取2个点时，它会画出那条线。074短于Y轴上的2个点。我对它的代码有问题。这是我到目前为止所拥有的一切，在我到达终点后，它不会再继续下去。


^C^C_LINE;\FROM;\@.074<-90;;

BIGAL · 发表于 2022-7-6 23:37:08

比加尔，
谢谢你的口齿不清。。。工作完美，并将其添加到我的宏

再次感谢
乔伊·G

JoeyG_77 · 发表于 2022-7-6 23:52:21

不用担心很容易的要求。

您多久在dwg中进行一次此偏移，以及是否更改偏移值？如果偏移量不同，则有一种快捷方法。

BIGAL · 发表于 2022-7-7 00:02:37

嘿BIGAL。。。再次感谢您多年来提供的帮助和建议。你问了一个问题，我不知道如何回答偏移值。我也有同样的想法，但我觉得有点牵扯其中。
我在一家橱柜店工作，一直在做改变。我需要一个口齿不清的语言，能够选择2个点，然后问我的减法是多少，然后从你开始选择的整体维度中减去。然后你必须根据你输入的数字将其分成相等的空间。然后在每个点上画6“线。

JoeyG_77 · 发表于 2022-7-7 00:08:10

所以你画了一个矩形并对其进行了尺寸标注，但尺寸标注必须有一个小尺寸公差，这样你才能将其推入，对吗？这很容易使用尺寸覆盖和更改尺寸值。我不确定偏移线后几个例子。在对图纸进行BIM时，检查textoverride值并使用该值。

; IAcadDimRotated:AutoCAD旋转标注界面
; 属性值：
; 测量（RO）=44.09
; TextOverride=“”

copy


; draw a line with  y amount changed
; By Big-al Feb 2019
(defun c:074 ( / pt1 pt2 x1 x2 y1 y2 diff)
;(setq diff (getreal "Enter difference)) ; use this if want to enter value
(setq diff 0.074) ; remove this line if use line above
(setq pt1 (getpoint "Pick 1st point"))
(setq x1 (car pt1)) 
(setq y1 (+ (cadr pt1) diff)) ; add 0.074 to Y
(setq pt2 (getpoint "Pick point 2"))
(setq x2 (car pt2))
(setq y2 (- (cadr pt2) diff)) ; subtract 0.074 from Y
(setq pt2 (list x2 y2)) ; make new co-ords
(command "line" pt1 pt2 "") ; draw a line 
)

BIGAL · 发表于 2022-7-7 00:22:53

[综合讨论] 线条宏

发表回复

精选推荐