ZZXXQQ 再请进 求倒角标注lisp

andyding

ZZXXQQ大侠请帮我的也改一改吧.谢谢你了!


C3.0标成C3了.帮帮忙.

ZZXXQQ

再标准化、优化一下:

1. (DEFUN C:DIM_CORNER ()
2. (SETVAR "CMDECHO" 0)
3. (SETQ OLDOS (GETVAR "OSMODE"))
4. (SETQ OLDZIN (GETVAR "DIMZIN"))
5. (SETVAR "DIMZIN" 8)
6. (SETVAR "OSMODE" 0)
7. (PRINC "\nPlease Select a Line 请选择一条直线 :")
8. (IF (SETQ SS (SSGET '((0 . "LINE")))) (PROGN
9.   (SETQ DL (ENTGET (SSNAME SS 0))
10.              P1 (CDR (ASSOC 10 DL))
11.              P2 (CDR (ASSOC 11 DL))
12.              X (ABS (- (CAR P1) (CAR P2)))
13.              Y (ABS (- (CADR P1) (CADR P2))))
14.   (IF (EQUAL X Y 1E-4) (PROGN
15.    (PRINC "\n倒角尺寸<") (PRINC (RTOS X 2 3))
16.    (SETQ TT (GETSTRING "> :")
17.                TT (IF (= TT "") (RTOS X 2 3) TT)
18.                TT (IF (> (- X (FIX X)) 0) TT (STRCAT TT ".0"))
19.                TT (STRCAT TT "x45%%d")
20.                OLDASZ (GETVAR "DIMASZ")
21.                P4 (POLAR P1 (ANGLE P1 P2) (* (DISTANCE P1 P2) 0.5)))
22.    (SETVAR "DIMASZ" 0)
23.    (SETQ ANG (/ PI 4))
24.    (SETVAR "SNAPANG" ANG)
25.    (IF (SETQ P3 (GETPOINT P4 "\nText Point 文字点? ")) (PROGN
26.      (SETQ P4 (IF (> (DISTANCE P3 P1) (DISTANCE P3 P2)) P2 P1))
27.      (COMMAND "LEADER" P4 P3 "" "" "" TT "")
28.    ))
29.    (SETVAR "SNAPANG" 0)
30.    (SETVAR "DIMASZ" OLDASZ)
31.   ))
32. ))
33. (SETVAR "DIMZIN" OLDZIN)
34. (SETVAR "OSMODE" OLDOS)
35. (SETVAR "CMDECHO" 1)
36. (PRINC)
37. )

复制代码

chenliguo

我是这样编的，可能没有各位的好，一个思路

dkj0322

谢谢楼上的分享，参考下，很感激

szboy

谢谢楼分享,学习了

d_rain719

嗯  不错 收下了

669423907

谢谢各位的好马！非常感谢！年后试用！