原创，圆孔生成镙丝孔

200853006

不错，方便多了

lenlenq

同名的只需要用插入块的方式

200853006

1993063 发表于 2013-4-14 19:48
错误: no function definition: USDXF

我用邹锋 的代码也是出现这样的情况、

1993063

200853006 发表于 2013-4-15 03:14
我用邹锋 的代码也是出现这样的情况、

这里自定义函数没定义,z版搞定了

200853006

1993063 发表于 2013-4-15 23:26
这里自定义函数没定义,z版搞定了

Z版的是可以用，

王航

200853006 发表于 2013-4-16 08:55
Z版的是可以用，

最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！

新新小兵

哈哈，我是做五金模具设计的哦，有空多交流交流

王航

王航 发表于 2013-4-17 11:56
最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！

问题已经解决，谢谢！

669423907

我特喜欢楼主的画中心线的部分，方便帮整合一下吗？谢谢！

;绘制螺孔
(defun c:lkkk()
(setq la (getvar"clayer"))
(if (= a nil) (setq a 8))
(princ "\n请输入螺孔规格(M")(princ (fix a))(princ"):")
(setq x (getreal))
(cond ((= nil (numberp x))(setq x a)) ((= T (numberp x))(setq a x)))
(setq pb (getpoint "\n请指定放置位置:"))
(setvar"clayer""螺纹")
(setq m (/ a 2)m1 (* 0.85 m)p1 (polar pb pi m)p2 (polar pb (* pi 1.5) m))
(command "arc" p2 "e" p1 pb)
(setvar"clayer""0")
(setq l1 (ssget"l"))(command "circle" pb m1)
(princ))


;生成中心线
  (entmake (list (cons 0 "LINE")
     (cons 8 "screw")
     (CONS 62 1)
     (cons 6  "CENTER")
     (cons 48 xk)
     (cons 10 pt1)
     (cons 11 pt3)
      )
      )
  (setq en2 (entlast))
  ;生成中心线
  (entmake (list (cons 0 "LINE")
     (cons 8 "screw")
     (CONS 62 1)
     (cons 6  "CENTER")
     (cons 48 xk)
     (cons 10 pt2)
     (cons 11 pt4)
      )
      )

669423907

王航 发表于 2013-4-17 11:56
最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！

(list '(0 . "ARC") (cons 10 pc) (cons 40 r) (cons 50 an1) (cons 51 an2) '(62 . 1))

(list '(0 . "ARC") (cons 10 pc) (cons 40 r) (cons 50 an1) (cons 51 an2) '(62 . 3))