理论和实际X点

Margusrebase · 发表于 2022-7-5 15:53:32

我需要autolisp，它可以计算理论点和实际点之间的差异，并绘制箭头和放置x；y值。

注意！看附件！

Roy_043 · 发表于 2022-7-5 16:02:23

你可能想解释一下“理论点”和“实际点”是什么意思。

Margusrebase · 发表于 2022-7-5 16:06:55

实际上这是两点，我需要两点之间的差异！Autolisp绘制箭头和值x；y

eldon · 发表于 2022-7-5 16:10:02

在论坛线程中搜索“ASBUILD”

ronjonp · 发表于 2022-7-5 16:13:40

减去你的x和y？

copy

(defun c:foo (/ s)
 (if (and (setq s (ssget '((0 . "point")))) (= 2 (sslength s)))
   (progn (setq s (mapcar '(lambda (x) (cdr (assoc 10 (entget x))))
                   (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
           )
   )
   (alert (vl-princ-to-string (mapcar 'abs (mapcar '- (car s) (cadr s)))))
   )
 )
 (princ)
)

Aftertouch · 发表于 2022-7-5 16:19:20

像这样的？

copy


(defun c:CADTUTOR ( / )
(setq point1 (getpoint "Select first point: "))
(setq point2 (getpoint "Select second point: "))
(command "_DIMLINEAR" point1 point2 "H" point2)
(command "_DIMLINEAR" point1 point2 "V" point2)
(princ)
)

BIGAL · 发表于 2022-7-5 16:28:26

获取大量点的方法是创建一个真实点的选择集创建一个理论选择集，然后可以使用公差检查这些点的接近程度，选择是x1，y1->x2，y2=距离文件，在屏幕上或像后触摸一样模糊。也没找到的！

Margusrebase · 发表于 2022-7-5 16:30:27

这几乎是我需要的，但是。。。您可以这样编辑代码：autolisp绘制箭头和差异（mm）箭头结束！

见以上附件！

谢谢
马格斯

Margusrebase · 发表于 2022-7-5 16:36:14

这几乎是我需要的，但是。。。您可以这样编辑代码：autolisp绘制箭头和差异（mm）箭头结束！

见以上附件！

谢谢
马格斯

BIGAL · 发表于 2022-7-5 16:43:21

pt3不是对引线的模糊观察，而是在角度pt1-pt2处与pt2的偏移

copy


(command "leader" pt1 pt2 pt3 "a" diff "")

[编程交流] 理论和实际X点

发表回复

精选推荐