leoson034 发表于 2018-4-6 21:00:16

已知三边长，批量画三角形！如何加循环?

      这是我在论坛上搜到已知三边长度，画单个三角形的程序。可我对编程不懂，不知如何能实现批量输入导出三角形。我的数据是在EXCEL表格里按一定顺序排好的三列数据。请论坛大神赐教~~！


         (defun c:sjx()
(setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
(setq a (getreal "\n请输入三角形第一条边长："))
(setq b (getreal "\n请输入三角形第二条边长："))
(setq c (getreal "\n请输入三角形第三条边长："))
(setq qq (/ (+ a b c) 2))
(setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
(setq h (/ (* s 2) c))
(setq d (sqrt (- (* b b) (* h h))))
(setq jj (atan (/ h d)))
(setq pt2 (polar pt1 0 c))
(setq pt3 (polar pt1 jj b))
(command "pline" pt1 pt2 pt3 "c" "")
)

yshf 发表于 2018-4-7 16:11:33

试用附件中的程序

yshf 发表于 2018-4-7 09:52:46

各个三角形之间位置有何联系？

leoson034 发表于 2018-4-7 14:27:03

yshf 发表于 2018-4-7 09:52
各个三角形之间位置有何联系？

感谢您的回复！我想要达到的效果最好就是能以三列数据中的一列数据为底边水平放置。各个三角形的位置以同等间距横向隔开，比如说间距为300或者500mm。

leoson034 发表于 2018-4-7 19:54:14

yshf 发表于 2018-4-7 16:11
试用附件中的程序

非常感谢您的帮助！很有用····第一次上论坛发帖求助，您也是我的第一个帖子的第一个热心回复者。很有意义，如果可以的话，可否加个好友？

leoson034 发表于 2018-4-7 20:00:29

yshf 发表于 2018-4-7 16:11
试用附件中的程序

如果可以，是否能改进一下，加上自动标注尺寸呢？

yshf 发表于 2018-4-8 09:03:47

附件中程序可标注边长

leoson034 发表于 2018-4-8 13:48:15

yshf 发表于 2018-4-8 09:03
附件中程序可标注边长

真棒！感激不尽~~！

sunny_8848 发表于 2018-4-9 09:48:51

多谢分享，要是那种常规的标注方式就更好了

zmzk 发表于 2022-12-6 11:34:43

yshf ,厉害！下载 用了
页: [1] 2
查看完整版本: 已知三边长，批量画三角形！如何加循环?