分享一个画螺纹孔及螺钉的程序

王航 · 发表于 2012-9-7 13:46:52

分享一个画螺纹孔及螺钉的程序，需要的人可以参考一下，希望对大家有帮助！螺纹孔输入“lw”，螺钉输入“ld”。
(defun c:lw()
  (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)
)
(defun c:ld ()
  (setq CircleCenter (getpoint "\n指定圆心:\n"))
  (setq CircleDiameter (getreal "\n指定直径:"))
(command "circle" CircleCenter "d" CircleDiameter)
(command "change" "l" "" "p" "la" "0" "")
(command "circle" CircleCenter "d" (* CircleDiameter 0.85))
(command "change" "l" "" "p" "la" "细实线" "")
(command "break" "l" "" "f" (polar CircleCenter pi (/ CircleDiameter 2.0)) (polar CircleCenter (* 1.5 pi) (/ CircleDiameter 2.0)))
(princ)
)

王航 · 发表于 2012-9-7 13:47:31

沙发自己坐

raimo · 发表于 2012-9-7 21:49:26

虽然用不到，帮你顶一下

另外你这个程序需要图层“细实线”，如果没有就会出错。。
最好可以补充一下，没有这个图层就新建一个

429014673 · 发表于 2012-9-7 22:02:35

是标准件吗？？？

726613 · 发表于 2012-9-21 21:08:12

谢谢楼主分享源码

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

分享一个画螺纹孔及螺钉的程序

相关帖子

点评