在螺纹孔上加中心线（多谢cabinsummer 大师热情帮助）

cabinsummer

最简单的是做个块，然后直接插入。因为你只要求M10，其余的都不要求，所以开发程序没什么效率，反而浪费时间。

cabinsummer

以下代码由块插入实现功能

1. (setvar "cmdecho" 0)
   
2. (setvar "osmode" 0)
   
3. (entmake '((0 . "block")(10 0 0 0)(70 . 0)(2 . "M10")))
   
4. (command "clayer" "0")
   
5. (entmake '((0 . "circle")(10 0 0 0)(40 . 4.35)(8 . "0")))
   
6. (entmake '((0 . "arc")(10 0 0 0)(40 . 5)(50 . 0)(51 . 4.72)(62 . 2)(8 . "螺纹")))
   
7. (entmake '((0 . "line")(10 -6 0 0)(11 6 0 0)(62 . 1)(8 . "中心线")))
   
8. (entmake '((0 . "line")(10 0 -6 0)(11 0 6 0)(62 . 1)(8 . "中心线")))
   
9. (setq blkname (entmake '((0 . "endblk"))))
   
10. (princ)
    
11. 
    
12. (defun c:M10(/ p)
    
13.   (setvar "cmdecho" 0)
    
14.   (setq p (getpoint "Enter the center:"))
    
15.   (entmake (list '(0 . "insert")(cons 2 blkname)(cons 10 p)))
    
16.   (princ)
    
17. )

(setvar "cmdecho" 0)<br /> (setvar "osmode" 0)<br /> (entmake '((0 . "block")(10 0 0 0)(70 . 0)(2 . "M10")))<br /> (command "clayer" "0")<br /> (entmake '((0 . "circle")(10 0 0 0)(40 . 4.35)(8 . "0")))<br /> (entmake '((0 . "arc")(10 0 0 0)(40 . 5)(50 . 0)(51 . 4.72)(62 . 2)(8 . "螺纹")))<br /> (entmake '((0 . "line")(10 -6 0 0)(11 6 0 0)(62 . 1)(8 . "中心线")))<br /> (entmake '((0 . "line")(10 0 -6 0)(11 0 6 0)(62 . 1)(8 . "中心线")))<br /> (setq blkname (entmake '((0 . "endblk"))))<br /> (princ)<br /> <br /> (defun c:M10(/ p)<br />   (setvar "cmdecho" 0)<br />   (setq p (getpoint "Enter the center:"))<br />   (entmake (list '(0 . "insert")(cons 2 blkname)(cons 10 p)))<br />   (princ)<br /> )

669423907

cabinsummer 发表于 2011-10-30 23:21
最简单的是做个块，然后直接插入。因为你只要求M10，其余的都不要求，所以开发程序没什么效率，反而浪费时间 ...

非常感谢 cabinsummer 大师的热情帮！
我只会照葫芦画瓢而已，很多时候还画不好！
我只能照着写M4，M5，M6，...............

插入块当然更好！
我在一份DWG中画了很多块，每个块都有名字..................

我也在明经看了很多大师们关于插入块的程序，但好像没有能像输入块名，就可以直接自动从一份DWG中自动选出相对应的块并打碎的功能？

也许是我没找到？

如果没有，大师方便的话，就造福一下大伙啦！

cabinsummer

669423907 发表于 2011-10-30 23:58
非常感谢 cabinsummer 大师的热情帮！
我只会照葫芦画瓢而已，很多时候还画不好！
我只能照着写M4，M5， ...

这些都能实现。但如果你要生成那么多种螺纹，还是参数化程序为好，那些做一长串插入块的代码就浪费了

菜卷鱼

cabinsummer 发表于 2011-10-30 22:44

一般的圆法向Z坐标是（0.0    0.0   1.0）,但是我们用UG导出CAD的时候，孔的法向Z坐标是负的，你的这个程序就用不了了

wayne_myles

菜卷鱼 发表于 2012-5-12 21:15
一般的圆法向Z坐标是（0.0    0.0   1.0）,但是我们用UG导出CAD的时候，孔的法向Z坐标是负的，你的这个程 ...

可以纠正的有lisp代码，参考下吧！http://bbs.mjtd.com/forum.php?mo ... mp;page=2#pid736484

菜卷鱼

wayne_myles 发表于 2015-7-20 10:44
可以纠正的有lisp代码，参考下吧！http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91003&page=2#pid7 ...

哥，三年多以前的帖子你还回！

wayne_myles

菜卷鱼 发表于 2015-7-20 16:00
哥，三年多以前的帖子你还回！

呵呵 俺还真没注意啊！

dingtiedt

大师的风格是迅速，果断

shcvip

cabinsummer 发表于 2011-10-30 23:52
以下代码由块插入实现功能

里面的数字，不能变量吗