绘制带凸出的圆弧

SZLMCL · 发表于 2022-7-6 11:25:26

Hy，

我想用AutoCAD VBA绘制一条圆弧。已知圆弧起点和终点，以及凸出值。

使用LWPolyline可以很容易地绘制圆弧（SetBulge），但我需要使用此绘图绘制圆弧。模型空间。AddArc命令。这里不是Setbulge函数。（Addarc需要StartAngle、ENDARGE、Radius、CenterPoint）。

我怎么画？

谢谢

Lee Mac · 发表于 2022-7-6 11:45:32

可以从凸出的定义中导出必要的参数：

Lee Mac · 发表于 2022-7-6 11:58:57

在LISP中：

copy


;; BulgeData  ~  Lee Mac
;; Args: p1,p2 Points, b Bulge
;; Returns:  (<centre> <inc. angle> <radius>)
(defun BulgeData (p1 p2 b / theta/2 radius centre)
 (setq theta/2 (* 2. (atan b))
       radius  (/ (distance p1 p2) (* 2. (sin theta/2)))
       centre  (polar p1 (+ (- (/ pi 2.) theta/2) (angle p1 p2)) radius))
 (list centre (* 2. theta/2) (abs radius)))

SZLMCL · 发表于 2022-7-6 12:17:54

谢谢，我在VBA中解决了这个问题。

Lee Mac · 发表于 2022-7-6 12:26:51

很乐意帮忙

[编程交流] 绘制带凸出的圆弧

发表回复

精选推荐