lzg8877 发表于 2012-4-30 07:25:16

求高手帮个忙 画圆代码

求个代码   画圆 选中心点选任意距离 向圆心偏移10mm 到中心！

linheyuanpcb 发表于 2012-4-30 11:54:36

(defun c:c20 ( )
(setq oldlay (getvar "clayer"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq d (getreal "\n请输入直径或默认:")
       d (/ (if d d 20)))
(setq pl (getpoint "\n指定中心点或按esc键退出:"))
(setq r (/ d 2))
(command "circle" pl r )
(setq npy (getint "\n偏移次数<4>:"))
(if (null npy) (setq npy 3))
(setq pyd (getvar "offsetdist" ))
(setq pyd (abs pyd))
(setq str_1 (strcat "\n偏移距离<" (rtos pyd) ">:"))
(setvar "offsetdist" pyd)
(setq pydi (getreal str_1))
(if (null pydi) (setq pydi 10))
(setq pyd1 (/ pydi 2))
(setq en (car (entsel "\n选择对象:")))
(setq pt1 (getpoint "\n指定点以确认偏移方向:"))
(setq i 1)
(repeat npy
(setq pydis (* i pyd1))
(command "offset" pydis en pt1 "")
(setq i (1+ i))
)
(setvar "offsetdist" pydi)
        (setvar "osmode" 16383)
       (setvar "clayer" oldlay)
        (princ)
)
试下这个,你再改进下

lzg8877 发表于 2012-5-1 06:35:35

linheyuanpcb 发表于 2012-4-30 11:54 static/image/common/back.gif
(defun c:c20 ( )
(setq oldlay (getvar "clayer"))
(setvar "osmode" 0)


基本达到了要求 高手无处不在呀 谢谢

328302216 发表于 2012-9-26 11:41:28

给力

清风明月名字 发表于 2013-6-29 09:05:50

谢谢2楼楼主的分享！很有意思的软件，收藏备用。

duanshui83 发表于 2013-12-13 22:42:46

这个写的有点复杂吧

看天的小树 发表于 2014-10-24 22:57:57

谢谢2楼楼主
页: [1]
查看完整版本: 求高手帮个忙 画圆代码