rakea 发表于 2013-9-23 20:03:49

这个程序绘制一个通孔，为什么选择边缘执行成功，选中间不成功？？

这个程序绘制一个通孔，为什么选择边缘执行成功，选中间不成功？？

(defun c:MH (/ pa,pb,ww,p1,p2,p3,p4)
(setq pa (getpoint "请输入开始点:"))
(setq pb (getpoint "请输入终止点:"))
(setq ww (getreal "\n请输入螺纹大小M(6，8，10，12，14):"))
(setq p1 ( list (+ (car pa) (/ ww 2)) (cadr pa)))
(setq p2 ( list (+ (car pb) (/ ww 2)) (cadr pb)))
(setq p3 ( list (car p1) (- (cadr p1) 2)))
(setq p4 ( list (- (car pb) (/ ww 2)) (cadr pb)))
(command "line" pa pb "" )
(command "line" p1 p2 "" )
(command "mirror" p3 "" pa pb "" )
(princ)
)

Andyhon 发表于 2013-9-23 21:07:50

通孔为是何义?

看来楼主只是忘了关闭捕捉模式

rakea 发表于 2013-9-25 19:07:48

我就是要用捕捉来定位的，所谓通孔就是机械上加工的圆孔，例如9的圆孔，就是如此，只是我的程序在捕捉环境下无法正常使用！

Andyhon 发表于 2013-9-25 19:35:09

...要用捕捉来定位的...
于何段落要用捕捉来定位!?

包括下三列吗?
(command "line" pa pb "" )
(command "line" p1 p2 "" )
(command "mirror" p3 "" pa pb "" )

ZZXXQQ 发表于 2013-9-25 20:45:36

(defun c:MH (/ pa pb ww p1 p2)
(setq pa (getpoint "请输入开始点: "))
(setq pb (getpoint "请输入终止点: "))
(setq ww (getreal "\n请输入螺纹大小M(6，8，10，12，14): "))
(if (= ww nil) (setq ww 6))
(setq ang (angle pa pb))
(setq p1 (polar pa (+ (/ pi 2) ang) (/ ww 2)))
(setq p2 (polar pb (+ (/ pi 2) ang) (/ ww 2)))
(command "line" "non" pa "non" pb "" )
(command "line" "non" p1 "non" p2 "" )
(command "mirror" "L" "" "non" pa "non" pb "")
(princ)
)

rakea 发表于 2013-9-26 20:47:35

本帖最后由 rakea 于 2013-9-26 20:58 编辑

非常感谢版主的帮助，让我学到更多东西。不过还要请版主讲解一下我的错误在哪里？？谢谢！

zmzk 发表于 2022-12-24 13:53:42

收藏了！有一天可能会用到
页: [1]
查看完整版本: 这个程序绘制一个通孔，为什么选择边缘执行成功，选中间不成功？？