倒角标注

Michael529

(DEFUN C:DIMCHAMFER () (SETVAR "CMDECHO" 0) (SETQ OLDOS (GETVAR "OSMODE")) (SETQ OLDZIN (GETVAR "DIMZIN")) (SETQ ORTHO (GETVAR "ORTHOMODE")) (SETQ OLDTAD (GETVAR "DIMTAD")) (SETVAR "DIMZIN" 8) (SETVAR "OSMODE" 0) (SETVAR "DIMTAD" 1) (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :")))) (WHILE (/= (CDR (ASSOC 0 DL)) "LINE")  (PRINC "\nError!")  (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :")))) ) (SETQ P1 (CDR (ASSOC 10 DL))       P2 (CDR (ASSOC 11 DL))       X (ABS (- (CAR P1) (CAR P2)))       Y (ABS (- (CADR P1) (CADR P2)))) (IF (EQUAL X Y 1E-4)  (SETQ TT (STRCAT (RTOS X 2 3) "x45%%d")) (PROGN  (SETQ CT (/ (DISTANCE P1 P2) (SQRT 2.0)))  (PRINC "\nDistance of Chamfer 倒角尺寸<") (PRINC (RTOS CT 2 3))  (SETQ TT (GETSTRING "> :")        TT (STRCAT (IF (= TT "") (RTOS CT 2 3) TT) "x45%%d")) )) (IF (/= TT "") (PROGN  (SETQ OLDASZ (GETVAR "DIMASZ")        P4 (POLAR P1 (ANGLE P1 P2) (* (DISTANCE P1 P2) 0.5)))  (SETVAR "DIMASZ" 0)  (SETVAR "SNAPANG" (ANGLE P1 P2))  (SETVAR "ORTHOMODE" 1)  (IF (SETQ P3 (GETPOINT P4 "\nText Point 文字点? ")) (PROGN   (SETQ P4 (IF (> (DISTANCE P3 P1) (DISTANCE P3 P2)) P2 P1)         P5 (POLAR P3 (/ PI 2) (* (GETVAR "DIMGAP") 1)))   (COMMAND "LEADER" P4 P5 "" TT "")  ))  (SETVAR "SNAPANG" 0)  (SETVAR "ORTHOMODE" ORTHO)  (SETVAR "DIMASZ" OLDASZ) )) (SETVAR "DIMZIN" OLDZIN) (SETVAR "OSMODE" OLDOS) (SETVAR "CMDECHO" 1) (PRINC))

[ 本帖最后由 bbsjava 于 2006-7-1 10:41 编辑 ]

jiangguiyang

太深奥 了看不懂

wangzai9303

能弄点大家能懂的上来不

scliukejun

This is a CAD AutoLISP developing sample. save it as "chamdim.lsp" in folder "c:programe files\autocad 2000\support\" ,on autocad toolbar do rightclicking,select "custom",add a button ,define it with command "^C^C(load "chamdim"dimchamfer".then click this button,you will dimchamfer as you want....

goodwt

看上去还不错!是楼主自己开发的吗?我先试试了!!!!楼主继续努力!!CAD二次开发很实用的!!!

ajean

This is a CAD AutoLISP developing sample. save it as "chamdim.lsp" in folder "c:programe files\autocad 2000\support\" ,on autocad toolbar do rightclicking,select "custom",add a button ,define it with command "^C^C(load "chamdim")dimchamfer".then click this button,you will dimchamfer as you want这是一个CAD AutoLISP开发样板，在文件夹"c:programe files\autocad 2000\support\"另存为"chamdim.lsp" ，在工具栏上右键，选择自定义，添加一个按纽，用命令行"^C^C(load "chamdim")dimchamfer"定义它，之后你再点击它时，你用可以随心所俗欲的标注倒角　

" O3 p0 X5 y$ Q7 B* M7 _# x5 {[ 本帖最后由 bbsjava 于 2006-7-1 10:42 编辑 ]

柔情主义者

谢谢６楼大哥的解释！

xingcheng

一点都不赞成，成形的软件要保持他原有的整结才好，少加其他内容

xyghyy

谢谢楼主,好好用.楼主,你能不能多写几个象这样的程序传上来.我是用CAD做五金模具.其它的我不会只有在CAD上做图还需要很多工具.你能发上来吗?     再次谢谢你.

wb-zl-1

唉！看不懂

whwxwxwx

讲解一下好像可以理解了

friendxjwq

,希望我会用.

liuyanzhao521

每人软件都有它自己的长处！不过我觉的CAD 应该改进了！那么多的命令学的人烦教的人烦啊·！

菲虫

感觉好难，看不懂。。。。。。。。

LCGLCG99

哪位高手能不能说的更明白一点,最好用中文!