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

liuhe · 发表于 2023-8-14 16:01:37

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 · 发表于 2023-8-14 16:26:23

chq168168 · 发表于 2023-8-14 16:43:25

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

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

chq168168 · 发表于 2023-8-14 16:49:16

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

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

liuhe · 发表于 2023-8-14 16:50:13

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

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

chq168168 · 发表于 2023-8-14 16:57:37

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

明白了谢谢大哥

lee50310 · 发表于 2023-8-14 16:58:12

執行指令:tt

chq168168 · 发表于 2023-8-14 17:13:43

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

谢谢大神

chq168168 · 发表于 2023-8-14 17:27:13

本帖最后由 chq168168 于 2023-8-14 17:30 编辑

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

谢谢大神的源码

xj6019 · 发表于 2023-8-14 17:48:36

好热闹好热闹

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源

点评