不错，方便多了
同名的只需要用插入块的方式
1993063 发表于 2013-4-14 19:48 static/image/common/back.gif
错误: no function definition: USDXF
我用邹锋 的代码也是出现这样的情况、
200853006 发表于 2013-4-15 03:14 static/image/common/back.gif
我用邹锋 的代码也是出现这样的情况、
这里自定义函数没定义,z版搞定了
1993063 发表于 2013-4-15 23:26 static/image/common/back.gif
这里自定义函数没定义,z版搞定了
Z版的是可以用，
200853006 发表于 2013-4-16 08:55 static/image/common/back.gif
Z版的是可以用，
最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！
哈哈，我是做五金模具设计的哦，有空多交流交流
王航 发表于 2013-4-17 11:56 static/image/common/back.gif
最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！
问题已经解决，谢谢！
我特喜欢楼主的画中心线的部分，方便帮整合一下吗？谢谢！
;绘制螺孔
(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)
)
)
王航 发表于 2013-4-17 11:56 static/image/common/back.gif
最外面的圆总是红色的，我想变成绿色的，怎么写？请高人指点。谢谢！
(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))