划分区域/测量i

MichaelAllfire · 发表于 2022-7-5 17:09:06

大家好，

我正在寻求帮助，以完成超出我技能水平的事情。为了便于理解，我附上了一张草图。我想做的是。。。

我试图测量两个点之间的距离，分别是P1和P2，并将该距离划分为等距区域，由xline分隔。但是，从第一条和最后一条连接线到点P1和P2的距离需要是每条连接线之间距离的一半。

要选择所需的空格和行数，我需要将P1、P2距离除以一个值（例如4200），然后将该值四舍五入到最接近的整数。该数字将是两点之间所需的连接线数量。

交联线需要垂直于测量的P1、P2距离的方向。

提前感谢！

marko_ribar · 发表于 2022-7-5 17:15:40

难道你不需要在没有任何计算的情况下提供XLine的数量（例如4200）吗？然后可以从xline的数量计算出测量值X:X=p1p2/4200，然后从端点得到X/2。。。

MichaelAllfire · 发表于 2022-7-5 17:17:00

你好，Marko，谢谢你的回复！抱歉，我想我用了一些删除和编辑的方式来破坏我的帖子，不习惯在论坛上发帖。

不幸的是，我不认为可以这样做。

4200值是两点之间允许的最大间距（由xline表示）。我将距离除以这个最大间距，这就给出了我将拥有的确切点数（例如，10000mm的距离除以4200得到2.38点）。然而，我不能得到一个点的一部分，所以我需要四舍五入到3。

为了正常计算间距，我将10000除以3，这是xline之间的间距，该值的一半位于点P1和P2的末端。命令的其余部分是在这些位置绘制连接线。

如果有一种方法可以作为命令的一部分进行第一次计算，那么这将大大加快处理速度。

marko_ribar · 发表于 2022-7-5 17:21:35

现在我不明白。。。

测试这个快速制作的版本，如果是，请告诉我：

copy


(defun c:xlindistdiv ( / p1 p2 v n num x k p pl )
 (setq p1 (getpoint "\nPick or specify first point : "))
 (setq p2 (getpoint p1 "\nPick or specify second point : "))
 (setq v (mapcar '- p2 p1))
 (setq n (polar '(0.0 0.0) (+ (angle '(0.0 0.0) v) (* 0.5 pi)) 1.0))
 (initget 7)
 (setq num (getint "\nSpecify number of XLINE entities for division of distance between two picked points : "))
 (setq x (/ (distance p1 p2) num))
 (setq k 0.5)
 (repeat num
   (setq p (polar p1 (angle p1 p2) (* k x)))
   (setq k (1+ k))
   (setq pl (cons p pl))
 )
 (setq pl (reverse pl))
 (foreach p pl
   (entmake
     (list
       '(0 . "XLINE")
       '(100 . "AcDbEntity")
       '(100 . "AcDbXline")
       (cons 10 p)
       (cons 11 n)
     )
   )
 )
 (princ)
)

M、 R。

MichaelAllfire · 发表于 2022-7-5 17:23:15

哇，太快了！

该命令工作良好，因为它正确地用x和半x间距分隔xline。然而，我想要绕过的命令部分是“指定xline实体的数量……”

我希望命令得到两点之间的距离，除以4200，四舍五入到最接近的整数，并将该整数用于“指定xline实体的名称”命令的一部分。这有意义吗？

命令的其余部分工作得很好，不过非常感谢您的宝贵时间！

marko_ribar · 发表于 2022-7-5 17:26:48

也许我又错过了什么：
您想指定X距离，而不是指定X线的数量？

MichaelAllfire · 发表于 2022-7-5 17:31:46

很抱歉让人困惑！试着想出一种不让人困惑的解释方法。

当它要求我选择两点时，我需要记住两点之间的距离，除以4200，然后四舍五入到最接近的整数。我需要记住这个号码，然后使用。

所以使用命令我会-

xlindistiv型；
单击指定点1
单击指定点2
该命令将取这两个点之间的距离，除以4200，向上取整，并记住取整后的数字。
然后，该命令将该值用于“指定连接线的数量”，并以与之前相同的方式绘制连接线。

我希望这有点道理。如果没有，请告诉我。再次感谢！

marko_ribar · 发表于 2022-7-5 17:35:27

很抱歉让人困惑！试着想出一种不让人困惑的解释方法。

当它要求我选择两点时，我需要记住两点之间的距离，除以4200，然后四舍五入到最接近的整数。我需要记住这个号码，然后使用。

所以使用命令我会-

xlindistiv型；
单击指定点1
单击指定点2
该命令将取这两个点之间的距离，除以4200，向上取整，并记住取整后的数字。
然后，该命令将使用该值重新计算“指定连接线数量”，并将该数字提示为默认连接线数量，并以与之前相同的方式绘制连接线。

我希望这有点道理。如果没有，请告诉我。再次感谢！

MichaelAllfire · 发表于 2022-7-5 17:36:00

对于重新计算部分正确。

这也适用于提示部分，尽管我不认为提示是必要的。然而，这两种方式都可以，所以都很好！

marko_ribar · 发表于 2022-7-5 17:41:30

我可能又错了，但我是这样理解的：

copy


(defun c:xlindistdiv ( / p1 p2 x dnum v n num k p pl )
 (setq p1 (getpoint "\nPick or specify first point : "))
 (setq p2 (getpoint p1 "\nPick or specify second point : "))
 (setq x (/ (distance p1 p2) 4200))
 (setq dnum (* (fix (1+ x)) 4200))
 (setq v (mapcar '- p2 p1))
 (setq n (polar '(0.0 0.0) (+ (angle '(0.0 0.0) v) (* 0.5 pi)) 1.0))
 (initget 6)
 (setq num (getint (strcat "\nSpecify number of XLINE entities for division of distance between two picked points <" (itoa dnum) "> : ")))
 (if (null num)
   (setq num dnum)
 )
 (setq x (/ (distance p1 p2) num))
 (setq k 0.5)
 (repeat num
   (setq p (polar p1 (angle p1 p2) (* k x)))
   (setq k (1+ k))
   (setq pl (cons p pl))
 )
 (setq pl (reverse pl))
 (foreach p pl
   (entmake
     (list
       '(0 . "XLINE")
       '(100 . "AcDbEntity")
       '(100 . "AcDbXline")
       (cons 10 p)
       (cons 11 n)
     )
   )
 )
 (princ)
)

HTH，M.R。

P、请注意，默认数字将为4200、8400（2*4200）、12600（3*4200），当第一次除法是用数字4200时，取决于四舍五入的数字。。。

[编程交流] 划分区域/测量i

发表回复

精选推荐