dhy 发表于 2010-6-7 19:40:00

[求助]这样的圆可以用LSP画出来吗？

请问怎样通过两点和输入半径画一个圆呢？望高手指点，谢谢

ZZXXQQ 发表于 2010-6-7 19:52:00

圆不确定怎么画？

dhy 发表于 2010-6-7 20:29:00

<p>通过两点，和指定了半径，那就确定一个圆了</p>

ZZXXQQ 发表于 2010-6-7 21:10:00

但可能画在左边或画在右边。

ZZXXQQ 发表于 2010-6-7 21:30:00

给你个顺时针两点画圆的程序：


;两点顺时针画圆 明经 ZZXXQQ 2010.6.7
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (setq pt1 (getpoint "\nFirst Point 第一点 :"))
(setq pt2 (getpoint "\nSecond Point 第二点 :"))
(setq r (getdist (strcat "\nRadius 半径 大于<" (rtos (/ (distance pt1 pt2) 2) 2 3) ">:")))
) (progn
(setq dst (/ (distance pt2 pt1) 2)
      pt3 (polar pt1 (angle pt1 pt2) dst)
      pt3 (polar pt3 (- (angle pt1 pt2) (/ pi 2)) (- r (sqrt (- (* r r) (* dst dst))))))
(command ".CIRCLE" "3P" pt1 pt2 pt3)
))
(setvar "CMDECHO" 1)
(princ)
)

461045462 发表于 2010-6-7 22:32:00

<p>我也下载了，很好用。</p>
<p>好好学习一下。</p>
<p>另外请教一个问题：如何能一次性将多种图形总面积标注到图上。有的程序用pl 画线标注不了，不知如何解决。</p>
<p>谢谢5楼</p>
<p>&nbsp;</p>

xhq1954425 发表于 2010-6-8 05:13:00

<font face="Verdana" color="#da2549"><b>路过，并向ZZXXQQ表示敬意！</b></font>

bearbear1 发表于 2010-6-8 14:08:00

好好学习一下

461045462 发表于 2010-6-8 21:06:00

如果不知道lsp，直接在两个指定点上，按半径作圆相交，就是圆心点了。

lenlenq 发表于 2010-6-11 19:36:00

正好在机械CAD论坛上有人提出相同的问题；现附上写的程序<br/><br/>
页: [1] 2
查看完整版本: [求助]这样的圆可以用LSP画出来吗？