以下代码由块插入实现功能
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(entmake '((0 . "block")(10 0 0 0)(70 . 0)(2 . "M10")))
(command "clayer" "0")
(entmake '((0 . "circle")(10 0 0 0)(40 . 4.35)(8 . "0")))
(entmake '((0 . "arc")(10 0 0 0)(40 . 5)(50 . 0)(51 . 4.72)(62 . 2)(8 . "螺纹")))
(entmake '((0 . "line")(10 -6 0 0)(11 6 0 0)(62 . 1)(8 . "中心线")))
(entmake '((0 . "line")(10 0 -6 0)(11 0 6 0)(62 . 1)(8 . "中心线")))
(setq blkname (entmake '((0 . "endblk"))))
(princ)
(defun c:M10(/ p)
(setvar "cmdecho" 0)
(setq p (getpoint "Enter the center:"))
(entmake (list '(0 . "insert")(cons 2 blkname)(cons 10 p)))
(princ)
)
cabinsummer 发表于 2011-10-30 23:21 static/image/common/back.gif
最简单的是做个块，然后直接插入。因为你只要求M10，其余的都不要求，所以开发程序没什么效率，反而浪费时间 ...
非常感谢 cabinsummer 大师的热情帮！
我只会照葫芦画瓢而已，很多时候还画不好！
我只能照着写M4，M5，M6，...............
插入块当然更好！
我在一份DWG中画了很多块，每个块都有名字..................
我也在明经看了很多大师们关于插入块的程序，但好像没有能像输入块名，就可以直接自动从一份DWG中自动选出相对应的块并打碎的功能？
也许是我没找到？
如果没有，大师方便的话，就造福一下大伙啦！
669423907 发表于 2011-10-30 23:58 static/image/common/back.gif
非常感谢 cabinsummer 大师的热情帮！
我只会照葫芦画瓢而已，很多时候还画不好！
我只能照着写M4，M5， ...
这些都能实现。但如果你要生成那么多种螺纹，还是参数化程序为好，那些做一长串插入块的代码就浪费了 cabinsummer 发表于 2011-10-30 22:44 static/image/common/back.gif
一般的圆法向Z坐标是（0.0 0.0 1.0）,但是我们用UG导出CAD的时候，孔的法向Z坐标是负的，你的这个程序就用不了了 菜卷鱼 发表于 2012-5-12 21:15 static/image/common/back.gif
一般的圆法向Z坐标是（0.0 0.0 1.0）,但是我们用UG导出CAD的时候，孔的法向Z坐标是负的，你的这个程 ...
可以纠正的有lisp代码，参考下吧！http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91003&page=2#pid736484 wayne_myles 发表于 2015-7-20 10:44 static/image/common/back.gif
可以纠正的有lisp代码，参考下吧！http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91003&page=2#pid7 ...
哥，三年多以前的帖子你还回！ 菜卷鱼 发表于 2015-7-20 16:00 static/image/common/back.gif
哥，三年多以前的帖子你还回！
呵呵 俺还真没注意啊！ 大师的风格是迅速，果断 cabinsummer 发表于 2011-10-30 23:52
以下代码由块插入实现功能
里面的数字，不能变量吗
页:
1
[2]