鼠标点选P1\P2\P3然后就画图如下图所示的图形。65跟150是固定的。麻烦大神给搞个编码

liuhe

chq168168 发表于 2023-8-14 15:49
liuhe 发表于 2023-8-14 15:42

(setq p4 (polar p3 (+ alf2(* 0.5 pi))150))
(setq old(getvar 'osmode ))
(setvar 'osmode 0);;;;关闭捕捉
(setq pp (inters pm (polar pm (angle p1 p2) 100) pn (polar pn (angle p2 p3) 100) nil))
(setq p5 (inters p6 (polar p6 (angle p1 p2) 100) p4 (polar p4 (angle p2 p3) 100) nil))
(command-s "pline" p1 p2 p3 p4 P5  p6 "c")
(command-s "pline" pm  PP pn  "")
(command-S "LINE" P2 P5 "")
  (setvar 'osmode old)

bonny

chq168168

bonny 发表于 2023-8-14 16:26

大哥你这个更高级了，我更学不来了，还是算了吧

chq168168

liuhe 发表于 2023-8-14 16:01
(setq p4 (polar p3 (+ alf2(* 0.5 pi))150))
(setq old(getvar 'osmode ))
(setvar 'osmode 0);;;;关 ...

大哥我那个编码画出来的时候有时候有个边是75那个是怎么回事，我试了下你的这个就没有问题，这是什么问题？是我的没有关闭捕捉么？

liuhe

chq168168 发表于 2023-8-14 16:49
大哥我那个编码画出来的时候有时候有个边是75那个是怎么回事，我试了下你的这个就没有问题，这是什么问题 ...

用command  的时候  不关闭捕捉，就会出现定位不准确

chq168168

liuhe 发表于 2023-8-14 16:50
用command  的时候  不关闭捕捉，就会出现定位不准确

明白了谢谢大哥

lee50310

執行指令:tt

chq168168

lee50310 发表于 2023-8-14 16:58
執行指令:tt

谢谢大神

chq168168

lee50310 发表于 2023-8-14 16:58
執行指令:tt

谢谢大神的源码

xj6019

好热闹  好热闹