A client asked me how to bisect an angle in ZWCAD recently. And I draw a conclusion that there are three methods:
ffice
ffice" />
1, Use Construction Line command
On Draw toolbar, click the Construction Line button and enter B to select the Bisect option. Then follow the prompt to select the vertex and two sides of the angle. Now you can get the bisector.
2, Use Dimension command
Firstly is to make an angular dimension for the angle. Then click the Line button on Draw toolbar and select the vertex point as first point of the line. Another point of the line is located at the midpoint of the dimension arc. Now the bisector is available and the angular dimension could be deleted.
3, ffice:smarttags" />
Firstly draw an accessorial circle using the angular vertex as centre to intersect with two sides of the angle. Then trim the arc outside the two sides. After that, draw a line with the angular vertex as starting point, and the midpoint of the arc as another point. Now the bisector comes out.
If you have some experience on using CAD software, please share with us. ![]()
![]()
![]()
![]()
![]()
(defun getln (PR)
(setq TYPE "nil"
PRMPT (strcat "'nPick " PR " line: "))
(while (/= TYPE "LINE")
(if (/= (setq TEMP (entsel PRMPT)) nil)
(progn
(setq LN1 (entget (car TEMP))
TYPE (cdr (assoc 0 LN1)))
(if (/= TYPE "LINE")
(print (strcat "Can't bisect a " TYPE)))
)
(print "Invalid point")
)
) ;end while
) ;end getln()
(defun C:BISECT(/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP TYPE)
(getln "first")
(setq P1 (cdr (assoc 10 LN1))
P2 (cdr (assoc 11 LN1))
PIK1 (osnap (cadr TEMP) "near")
)
(getln "second")
(setq p3 (cdr (assoc 10 LN1))
P4 (cdr (assoc 11 LN1))
PIK2 (osnap (cadr TEMP) "near")
)
; get intersection and angles
(setq P5 (inters P1 P2 P3 P4 nil)
ANGA (angle P5 PIK1)
ANGB (angle P5 PIK2)
)
(if (> ANGA ANGB)
(setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))
(setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))
)
; draw bisector from intersection to length
(command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")
(prin1)
); end bisect.lsp
Thanks
Thanks, donkeykid ;),
I'll try this. Though I like the 'Const Line' method, too.
I think there's also a way using 'cal (transparent 'calculator' command), but I can't remember it. The 'cal command for 'mid 2 points' was also very awkward to use in Autocad, so I gave it up. Now of course, Autocad has the 'mid 2 points' snap.
Maybe it can be integrated into ZwCad if it works well and there's no problem. Actually, it should be easy enough (for us) to put on the right-click menu - using the 'customise' command.
maker2008-05-06 01:03:19
Thank you all! We will consider whether to integrate it into ZWCAD.



