绘制埋头孔
拿起两点，画一个埋头孔，两种，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