绘多义线角平分线.lsp*****主题付费，附件免费

绘多义线角平分线.lsp
自己花了一天时间写的

1. 
   
2. 
   
3. ===================================================================
   
4. ;;;功能：等分角平分线工具dfj
   
5. ;;;作者：biaoge124 日期：2011.9.8
   
6. ===================================================================
   
7. (defun c:dfj ()
   
8. ;;; 定义系统变量
   
9. (setq osn (getvar "osmode"))
   
10. (setvar "osmode" 0)
    
11. (setvar "cmdecho" 0)
    
12. ;;; 选取对象，必须为多义线
    
13. (setq en (car (entsel "\n选取多边形:")))
    
14. (setq ent (entget en))
    
15. (setq i 0)
    
16. ;;; 定义空集
    
17. (setq plptll '())
    
18. ;;; 提取多义线点集
    
19. (if (null ent)
    
20. ()
    
21. (progn
    
22. (repeat (length ent)
    
23. (setq entnn (nth i ent))
    
24. (if (= (car entnn) 10)
    
25. (setq
    
26. plptll (cons (cdr entnn) plptll)
    
27. )
    
28. )
    
29. (setq i (1+ i))
    
30. )
    
31. )
    
32. )
    
33. (setq plptll (reverse plptll))
    
34. ;;;绘第一个角平分线
    
35. (setq ii 1)
    
36. (setq ptii (nth 0 plptll))
    
37. (setq ptii+ (nth 1 plptll))
    
38. (setq ptii- (nth (1- (length plptll)) plptll))
    
39. (fsy_dfcz)
    
40. ;;;绘中间点角平分线
    
41. (repeat (- (length plptll) 2)
    
42. (setq ptii (nth ii plptll))
    
43. (setq ptii+ (nth (1+ ii) plptll))
    
44. (setq ptii- (nth (1- ii) plptll))
    
45. (fsy_dfcz)
    
46. (setq ii (1+ ii))
    
47. )
    
48. ;;;绘最后一个角平分线
    
49. (setq ptii+ (nth 0 plptll))
    
50. (setq ptii- (nth (- (length plptll) 2) plptll))
    
51. (setq ptii (nth (1- (length plptll)) plptll))
    
52. (fsy_dfcz)
    
53. (setvar "osmode" osn)
    
54. (princ "谢谢使用biaoge124的等分角平分线工具 命令：dfj")
    
55. (princ)
    
56. )
    
57. ;;;"biaoge124"
    
58. ===================================================================
    
59. ===================================================================
    
60. 
    
61. ;;;具体等分操作
    
62. (defun fsy_dfcz ()
    
63. (setq ptang1 (angle ptii ptii+)
    
64. ptang2 (angle ptii ptii-)
    
65. )
    
66. (if (< (abs (- ptang1 ptang2)) pi)
    
67. (progn (setq ptang (/ (+ ptang1 ptang2) 2.0))
    
68. (command "pline"
    
69. ptii
    
70. (polar ptii ptang (distance ptii ptii+))
    
71. ""
    
72. )
    
73. )
    
74. (progn
    
75. (setq ptang (+ (/ (+ ptang1 ptang2) 2.0) pi)
    
76. )
    
77. (command "pline"
    
78. ptii
    
79. (polar ptii ptang (distance ptii ptii+))
    
80. ""
    
81. )
    
82. )
    
83. )
    
84. )
    
85. ;;;"biaoge124"
    
86. ===================================================================
    
87. ===================================================================

复制代码

另附动画

楼主，要是不好的话可以退不！嘿！

http://www.bridgehead.com.cn/thread-40231-1-1.html
看看这个
如果有需要可以在那里留言
我给你写个
初学

fsy-plpt这个命令咋不行呢

农大哥2013 发表于 2011-9-9 10:41

                               
登录/注册后可看大图

fsy-plpt这个命令咋不行呢

命令为DFJ
呵呵呵