[帮助]拔出此螺栓
请，请帮我用entmake或一些命令（多边形、圆、Pline或圆弧）绘制这个。我试过使用命令，但我对几何和号角非常胆小，我在计算坐标方面有问题，所以这成了一个大问题。。。（不需要所有尺寸和螺栓中心的两个小圆+3/4圆，我只是添加到描述中。输入为D）
谢谢大家的帮助
为什么不使用积木？ 我试图将DCL属于D的lisp代码放入其中，或者手动绘制，然后makeEntmake，然后将其缩放为一个块。。但是，正如我所提到的，我在几何方面非常胆小 我还是会用一个街区。 那么，你能帮我怎么通过3点做一个弧吗？还是制作相同形状的普林线？ 以下是我关于三点弧/圆的函数：
;; 3-Point Arc-Lee Mac
;; Returns the Center, Start/End Angle, Radius of the
;; Arc defined by three supplied points.
(defun LM:3PArc ( p1 p2 p3 / cn m1 m2 )
(setq m1 (mid p1 p2)
m2 (mid p2 p3)
)
(if
(setq cn
(inters
m1 (polar m1 (+ (angle p1 p2) (/ pi 2.)) 1.0)
m2 (polar m2 (+ (angle p2 p3) (/ pi 2.)) 1.0)
nil
)
)
(append (list cn)
(if (LM:Clockwise-p p1 p2 p3)
(list (angle cn p3) (angle cn p1))
(list (angle cn p1) (angle cn p3))
)
(list (distance cn p1))
)
)
)
;; 3-Point Circle-Lee Mac
;; Returns the Center and Radius of the Circle defined
;; by three supplied points.
(defun LM:3PCircle ( p1 p2 p3 / cn m1 m2 )
(setq m1 (mid p1 p2)
m2 (mid p2 p3)
)
(if
(setq cn
(inters
m1 (polar m1 (+ (angle p1 p2) (/ pi 2.)) 1.0)
m2 (polar m2 (+ (angle p2 p3) (/ pi 2.)) 1.0)
nil
)
)
(list cn (distance cn p1))
)
)
;; Midpoint-Lee Mac
;; Returns the midpoint of two points
(defun mid ( a b )
(mapcar (function (lambda ( a b ) (/ (+ a b) 2.0))) a b)
)
;; Clockwise-p-Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented
(defun LM:Clockwise-p ( p1 p2 p3 )
(< (* (- (carp2) (carp1)) (- (cadr p3) (cadr p1)))
(* (- (cadr p2) (cadr p1)) (- (carp3) (carp1)))
)
)
弧->凸出从我的凸出转换函数集。 使用下面的程序创建绘制内容的ENTMAKE。
参见附件*。dwg。。。
您好，M.R。
绘制ketxu。图纸
模型：ketxu。图纸 已更新并更正*。dwg文件-添加模型。。。
M、 R。
Marko Ribar，d.i.a.（建筑专业毕业工程师）
lol谢谢Ketxu
页:
[1]
2