[求助]:关于标注问题

bycyc · 发表于 2006-2-26 09:50

如图例,标注图中圆直径时,我用手工画了一个辅助线,有哪位高手或老师们能提供一个标注时能自动画出辅助线的程序吗?其他CAD好象都能自动标注出.

ljpnb · 发表于 2006-2-26 10:55

本帖最后由作者于 2006-2-26 16:06:17 编辑

(defun c:test (/ sel point ent dxf center radius ent1 dxf1)
(setq sel   (entsel)
point (cadr sel)
ent   (car sel)
dxf   (entget ent)
)
(setq center (cdr (assoc 10 dxf)))
(setq radius (cdr (assoc 40 dxf)))
(command "circle" center radius)
(setq ent1 (entlast))
(setq dxf1 (entget ent1))
(setq dxf1 (subst (cons 8 "CENTER") (assoc 8 dxf1) dxf1)) ;_这里的center是中心线层名,你可以改成你的中心线层
(entmod dxf1)
(command "dimdiameter" (list ent1 point) pause)
)

bycyc · 发表于 2006-2-26 13:17

谢谢二楼,不过好象用不起来,有对话匡提示,是怎么回事?

ljpnb · 发表于 2006-2-26 14:26

2楼已经修改过了，你再试试，我不知道你有没有“center”的中心线层，没有的话把程序中改成你需要的层就可以了

bycyc · 发表于 2006-2-26 14:53

我试了,出现了与前面的结果一样,我的中心线层是CENTER2,改成它没用,后来又改成我的中心线名称"3中心线层".还是没用.

ljpnb · 发表于 2006-2-26 15:34

这个可不知道了，我这儿没这个问题

bycyc · 发表于 2006-2-26 15:57

我用2006版试过了,可以,不过标注的始终是直径,那半径的标注呢?另外还有个问题,这个辅助圆始终是圆,应该是对面两个圆弧,这个圆弧应该要好设置,就相当于尺寸界线一样,超出尺寸线的长度好设置.这个程序好修改吗?

龙龙仔 · 发表于 2006-3-3 08:10

;;实在没空完善
;;只是一个编程方向
(defun C:TEST (/ ENT)
(setq ENT (entsel))
(command "_.arc"
    "nea"
    (cadr ENT)
    "c"
    "cen"
    (cadr ENT)
    PAUSE
)
(command "_.change" (entlast) "" "p" "c" 1 "")
(command "dimdiameter" (list (entlast) (cadr ENT)) PAUSE)
(princ)
)

ljpnb · 发表于 2006-3-3 11:08

支持2006

龙龙仔 · 发表于 2006-3-3 12:30

其怪系统不让我给奖励! 8-(

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

[求助]:关于标注问题

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源