谁能用AutoLisp编写这个程式

blue123 · 发表于 2005-9-27 23:44

只要点选一个圆,用坐标式的标注方法标注出图面上所有等直径的圆的坐标!!! 小弟在此多谢各位了!!!

blue123 · 发表于 2005-9-28 20:28

版主能不能帮忙搞定啊,拜托你了

meflying · 发表于 2005-9-28 20:31

(defun c:dimc()
(setq ent (car (entsel)))
(setq pt (cdr (assoc 10 (entget ent))))
(command "_.dimordinate" pt "y" (polar pt pi 15))
(command "_.dimordinate" pt "x" (polar pt (* 0.5 pi) 15))
(princ)
)

yxp · 发表于 2005-9-28 20:31

我也学习一下。

blue123 · 发表于 2005-9-28 20:35

飞哥,好像只能标一个圆的尺寸啊,我要标所有等大小圆的尺寸

yxp · 发表于 2005-9-28 20:37

如果圆的半径是123，那么用下面语句至少能把所有符合条件的圆选出来。

(setq ss1 (ssget '((0 . "circle") (40 . 123))))

meflying · 发表于 2005-9-28 20:39

这样标注那些整齐排列的圆看起来不是会很拥挤,杂乱?

还有,我给出了标注一个圆,你自己循环一下不就可以标注所有等大小的圆了吗

yxp · 发表于 2005-9-28 20:41

我的问题你怎么不帮助我啊，飞哥。

blue123 · 发表于 2005-9-28 20:47

楼上的朋友,光选出所有半径为123的还不行,要能全都标出来,而且,如果某些孔X轴在同一条线上,那这条线上所有孔X只标一次,然后它们之间用虚线连接.能不能搞定啊

liu22737 · 发表于 2005-9-28 20:54

(defun c:dimc()
(setq ent (car (entsel)))
; (setq pt (cdr (assoc 10 (entget ent))))
(setq ssg (ssget "x" (append'((0 . "circle"))(list(cons 40 (cdr (assoc 40 (entget ent)))))) ) i 0)
(repeat (sslength ssg)
(setq pt (cdr (assoc 10 (entget (ssname ssg i)))) i (+ i 1))
(command "_.dimordinate" pt "y" (polar pt pi 15))
(command "_.dimordinate" pt "x" (polar pt (* 0.5 pi) 15))
)
(princ)
)

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

谁能用AutoLisp编写这个程式

本帖子中包含更多资源

re

浏览过的版块