如何在纯CAD中，用lisp程序实现尺寸驱动?

HGQ8888

看看...

zhaozwf

搞个双边驱动比较好，对称的那种，这种单边的用途好像不大

zctao1966

支持原创！！！

它山之石

等着吧

官方会提供的

bloodmao

为什么我不能看源码啊。。。。

qiweisoft

ZZXXQQ
老师,你太伟大了,

ibook

恩，伤脑筋哇

yufei113

2. ;;;编写: BDYCAD
3. ;;;时间: 2005-03-18
4. ;;;开发用时  26分钟
5. ;;;功能: 尺寸驱动
6. (defun c:tt(/ BLB EP ESPL N-EP N-SP NEW-T SD SD-DXF SEA SEB SP SS1 SS2 SS3)
7.   (setq SD (entsel "\n选择驱动尺寸:"))
8.   (if SD
9.     (PROGN
10.       (SETQ SD-DXF (ENTGET (CAR SD)))
11.       (WHILE (NOT (wcmatch (CDR (ASSOC 0 SD-DXF)) "*DIM*"))
12. (setq SD (entsel "\n选择驱动尺寸:"))
13. (SETQ SD-DXF (ENTGET (CAR SD))))
14.       (SETQ SP (CDR (ASSOC 13 SD-DXF))
15.      EP (CDR (ASSOC 14 SD-DXF))
16.      ESPL (DISTANCE SP EP)
17.      SEA (ANGLE SP EP)
18.      SEB (ANGLE EP SP)
19.      NEW-T (getdist "\n新的长度:"))
20.       (while (eq nil NEW-T)
21. (setq  NEW-T (getdist "\n新的长度:")))
22.       (if NEW-T
23. (progn
24.       (setq BLB (* 0.5 (abs (-  NEW-T ESPL))))
25.       (if (> ESPL NEW-T )
26. (setq N-SP (POLAR SP SEA BLB)
27.        N-EP (POLAR EP (+ PI SEA) BLB))
28. (setq N-SP (POLAR SP SEB BLB)
29.        N-EP (POLAR EP (+ PI SEB) BLB))
30. )
31.       (setvar "osmode" (logior (getvar "osmode") 16384))
32.       (setvar "cmdecho" 0)
33.       (vl-cmdf "_.undo" "_group")
34.       (SETQ SS1 (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
35.      SS2 (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
36.      )
37.       (IF SS1
38. (COMMAND "STRETCH" (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
39.    ""SP N-SP))
40.       (IF SS2
41. (COMMAND "STRETCH" (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
42.    ""EP N-EP))
43.       (vl-cmdf "_.undo" "_end")
44.       (setvar "osmode" (logand (getvar "osmode") 49151))
45.       (PRINC"\n编写:BDYCAD\n尺寸驱动程序运行完毕, 欢迎使用.谢谢!")))
46.       )
47.     )
48.   (princ)
49.   )

;;;编写: BDYCAD ;;;时间: 2005-03-18 ;;;开发用时  26分钟 ;;;功能: 尺寸驱动 (defun c:tt(/ BLB EP ESPL N-EP N-SP NEW-T SD SD-DXF SEA SEB SP SS1 SS2 SS3)   (setq SD (entsel "\n选择驱动尺寸:"))   (if SD     (PROGN       (SETQ SD-DXF (ENTGET (CAR SD)))       (WHILE (NOT (wcmatch (CDR (ASSOC 0 SD-DXF)) "*DIM*")) (setq SD (entsel "\n选择驱动尺寸:")) (SETQ SD-DXF (ENTGET (CAR SD))))       (SETQ SP (CDR (ASSOC 13 SD-DXF))      EP (CDR (ASSOC 14 SD-DXF))      ESPL (DISTANCE SP EP)      SEA (ANGLE SP EP)      SEB (ANGLE EP SP)      NEW-T (getdist "\n新的长度:"))       (while (eq nil NEW-T) (setq  NEW-T (getdist "\n新的长度:")))       (if NEW-T (progn       (setq BLB (* 0.5 (abs (-  NEW-T ESPL))))       (if (> ESPL NEW-T ) (setq N-SP (POLAR SP SEA BLB)        N-EP (POLAR EP (+ PI SEA) BLB)) (setq N-SP (POLAR SP SEB BLB)        N-EP (POLAR EP (+ PI SEB) BLB)) )       (setvar "osmode" (logior (getvar "osmode") 16384))       (setvar "cmdecho" 0)       (vl-cmdf "_.undo" "_group")       (SETQ SS1 (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))      SS2 (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))      )       (IF SS1 (COMMAND "STRETCH" (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))    ""SP N-SP))       (IF SS2 (COMMAND "STRETCH" (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))    ""EP N-EP))       (vl-cmdf "_.undo" "_end")       (setvar "osmode" (logand (getvar "osmode") 49151))       (PRINC"\n编写:BDYCAD\n尺寸驱动程序运行完毕, 欢迎使用.谢谢!")))       )     )   (princ)   )

网上一高手搞的，不是本人写的，我试着还好！

yxyfy

这是一个研究的方向

jn2888

都这么厉害的，我也想学学