请各位老师帮忙谢谢

linheyuanpcb · 发表于 2012-2-14 14:54

都在过节呢>?继续等待

linheyuanpcb · 发表于 2012-2-14 17:01

linheyuanpcb · 发表于 2012-2-14 17:03

圆孔位置指定一个位置了,镜像还要手动一下....没人帮下忙...只有这样了

ZZXXQQ · 发表于 2012-2-14 22:09

根据题意在坐标(x/2-5 -7)处画圆（为何要镜像，直接画另一个圆不就行了。）
      在坐标(x/2-5 y+14)处画另一圆：
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq pt (getpoint "\nMax Point :"))(progn
  (command ".RECTANG" "0,0" pt)
  (setq pc (polar (polar (list 0 0 0) 0 (- (/ (car pt) 2) 5)) (/ pi 2) -7)
      pc1 (polar pc (/ pi 2) (+ (cadr pt) 14)))
  (command ".CIRCLE" pc 5 ".CIRCLE" pc2 5)
))
(princ)
)

linheyuanpcb · 发表于 2012-2-16 16:19

把孔放在左右两边应该怎么改？现在程序是在上下位置,谢谢

langjs · 发表于 2012-2-16 20:39

那个图和说明怎么看也不能理解楼主到底想要干啥

ZZXXQQ · 发表于 2012-2-16 21:10

本帖最后由 ZZXXQQ 于 2012-2-16 22:39 编辑

linheyuanpcb 发表于 2012-2-16 16:19
把孔放在左右两边应该怎么改？现在程序是在上下位置,谢谢

那就要更改你提供的公式。
在坐标(-7 y/2-5)处画圆，在坐标(x+14 y/2-5)处画另一圆：
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq pt (getpoint "\nMax Point :")) (progn
  (command ".RECTANG" "0,0" pt)
  (setq pc (polar (polar (list 0 0 0) 0 -7) (/ pi 2) (- (/ (cadr pt) 2) 5))
      pc1 (polar pc 0 (+ (car pt) 14)))
  (command ".CIRCLE" pc 5 ".CIRCLE" pc1 5)
))
(princ)
)

linheyuanpcb · 发表于 2012-2-16 21:56

ZZXXQQ 发表于 2012-2-16 21:10
那就要更改你提供的公式。
根据题意在坐标(-7 y/2-5)处画圆，在坐标(x+14 y/2-5)处画另一圆：
(defun c ...

是的，不好意思没表达清楚，现显示参数太多

linheyuanpcb · 发表于 2012-2-16 22:24

langjs 发表于 2012-2-16 20:39
那个图和说明怎么看也不能理解楼主到底想要干啥

图中的数据 60,91

-7,60/2-5处画圆然后在91+7,60/2-5处再画一个

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

请各位老师帮忙谢谢

本帖子中包含更多资源

本帖子中包含更多资源

评分

请各位老师帮忙 谢谢

本帖子中包含更多资源

本帖子中包含更多资源

评分

请各位老师帮忙谢谢