绘制埋头孔
拿起两点,画一个埋头孔,两种,M1和M2。我希望可以延长。可以修改代码中的参数(图9,10,5,5.5)
可以动态绘图吗?
你好
如果这两种类型的大小一直相同,则可以为每个形状创建一个块,如果需要,稍后可以轻松修改。
谢谢,塔尔瓦,很高兴见到你!
孔的长度不确定,使用砌块不能令人满意。
我有其他的想法,这是一个基本的,我想扩展。
孔的大小很多,所以在后期,我会使用DCL,添加数据。。。。。。。。。 此外,如果只有水槽的长度不同,则可以在动态块中使用长度参数使其仅用于长度。只是一个想法。
我还想过使用动态块,这需要输入数据(例如孔径、沉孔直径、沉孔深度等),我的想法是使用DCL,使用下拉框,选择螺钉,例如:我选择螺钉尺寸为M5,因此孔径=5.5,沉孔直径=9,沉孔深度=5,这些参数是自动生成的。
你能帮我完成基本功吗? 所以我很想看到DCL文件和一个显示所有这些类型水槽的示例图。 动态块想法是一个很好的想法,它不需要比您提议的程序更多的输入。但你需要知道如何制作动态块。你…吗?
如果你想走程序路线,那么你需要向程序员提供数据,正如塔瓦特所要求的那样。你能做一个DCL文件吗?你知道如何用AutoLISP编程吗?你自己能做多少?
顺便说一句,这两种方式以前可能已经做过了,尽管我没有任何具体的表现。你追求的是结果还是过程?
这样地:
Countersink
:dialog{ label="Hole Draw";
spacer;
:row{
:column{
:image_button{ key = "RM"; aspect_ratio = 1; width = 15; fixed_width = true; color = -2; allow_accept = true; }
:image_button{ key = "UN"; aspect_ratio = 1; width = 15; fixed_width = true; color = -2; allow_accept = true; }
}
:list_box{ key="RV"; value=8; width=20; height=15; allow_accept=true; }
}
ok_cancel;
}
这是一个*。slb幻灯片文件
埋头钻。拉链
谢谢你的建议我只是需要一个基本的程序,以后,我会努力完成它自己。 这只是M1型的开始。
(defun c:Test (/ 1p 2p d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p)
(if
(and (setq 1p (getpoint "\n Specify first point :"))
(setq 2p (getpoint "\n Second point :" 1p))
(if (<= (setq d (distance 1p 2p)) 5.)
(progn
(alert
"Distance between points must be longer than 5.0 units "
)
nil
)
t
)
)
(progn
(setq 3p(polar 1p (+ (setq ang (angle 1p 2p)) (* pi 0.5)) 4.5)
4p(polar 3p (+ ang (* pi 1.5)) 9.)
5p(polar 4p ang 5.)
6p(polar 5p (+ ang (* pi 0.5)) 9.)
7p(polar 5p (angle 5p 6p) 1.75)
8p(polar 7p ang (- d 5.))
9p(polar 8p (angle 5p 6p) 5.5)
10p (polar 9p (+ ang pi) (- d 5.))
)
(command "_.pline" "_non" 3p "_w" 0. 0. "_non" 4p "_non" 5p
"_non" 6p "_c")
(command "_.pline" "_non" 7p "_non" 8p "_non" 9p "_non" 10p "_c")
)
)
(princ)
)
页:
[1]
2