求画圆、矩形、椭圆及多边形带中心线。

王航 · 发表于 2012-8-30 10:06:16

本帖最后由王航于 2012-8-30 14:58 编辑

求源码
求画圆、矩形、椭圆及多边形带中心线的程序，中心线为点划线，图层为“点划线”图层，即画圆、椭圆、矩形及多边形的同时，中心线也带上了，而且中心线为点划线，图层为“点划线”图层，另求画螺纹孔自带中心线的程序，中心线为点划线，图层为“点划线”图层，且螺纹为四分之三圆，画螺纹孔带中心线的程序可通过修改下面的程序实现：
(defun c:ll ()
  (setq CircleCenter (getpoint "\n指定圆心:\n"))
  (setq CircleDiameter (getreal "\n指定直径:"))
(command "circle" CircleCenter "d" (* CircleDiameter 0.85))
(command "change" "l" "" "p" "la" "0" "")
(command "circle" CircleCenter "d" CircleDiameter)
(command "change" "l" "" "p" "la" "细实线" "")
(command "break" "l" "" "f" (polar CircleCenter pi (/ CircleDiameter 2.0)) (polar CircleCenter (* 1.5 pi) (/ CircleDiameter 2.0)))
  (princ)
)

vormittag · 发表于 2012-8-30 10:16:35

这么简单的东西，自己作作练习不好么？

王航 · 发表于 2012-8-30 10:26:54

vormittag 发表于 2012-8-30 10:16
这么简单的东西，自己作作练习不好么？

自己做练习很好，但我刚接触AUTOlLISP，不好意思，见笑了。

王航 · 发表于 2012-8-30 13:02:19

vormittag 发表于 2012-8-30 10:16
这么简单的东西，自己作作练习不好么？

烦劳您不吝赐教，本人不胜感激，谢谢！

xiaoyingzi · 发表于 2012-8-30 13:23:47

发帖之前多站内搜一下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90362

王航 · 发表于 2012-8-30 14:57:06

xiaoyingzi 发表于 2012-8-30 13:23
发帖之前多站内搜一下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90362

谢谢您的指点，不过那个程序只是加中心线的，我的意思是，画图时自带中心线，不用再画。

王航 · 发表于 2012-8-31 14:04:39

xiaoyingzi 发表于 2012-8-30 13:23
发帖之前多站内搜一下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90362

我的要求实现起来很难吗?请不吝赐教，谢谢您！

王航 · 发表于 2012-9-7 13:03:29

请高手们不吝赐教啊！谢谢大家了！

sscylh · 发表于 2012-9-10 15:18:26

想弱弱地问一句,中心线是什么线....

王航 · 发表于 2013-1-28 10:48:23

这帖子这么久了，怎么还没人回复？是不是太简单了，高手们都不屑一顾啊，杯具啊！

账号		自动登录	找回密码
密码			注册

求画圆、矩形、椭圆及多边形带中心线。

相关帖子

点评