ZWSOFT User Community > ZWSOFT Forums - Find. Share. Connect. > ZWCAD > How to bisect an angle in ZWCAD?
How to bisect an angle in ZWCAD?

Rank: 1

zw_admin

Newbie

posts: 0

Registered: 2012-1-14

Message 1 of 4

How to bisect an angle in ZWCAD?
28-04-2008 11:27 . pm | View his/her posts only

A client asked me how to bisect an angle in ZWCAD recently. And I draw a conclusion that there are three methods:


fficeffice" />



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" />Use Circle command

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. TongueTongueClapClapClap

TOP 0 Kudos

Rank: 1

donkeykid

Newbie

posts: 0

Registered: 2011-11-16

Message 2 of 4

  How to bisect an angle in ZWCAD?
05-05-2008 05:09 . am | View his/her posts only
I usually use this lisp:

(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







0 Kudos

Rank: 1

maker

Newbie

posts: 0

Registered: 2008-8-15

Message 3 of 4

How to bisect an angle in ZWCAD?
05-05-2008 11:19 . pm | View his/her posts only

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
TOP 0 Kudos

Rank: 1

zw_admin

Newbie

posts: 0

Registered: 2012-1-14

Message 4 of 4

How to bisect an angle in ZWCAD?
06-05-2008 04:37 . am | View his/her posts only


Thank you all! We will consider whether to integrate it into ZWCAD. Smile

TOP 0 Kudos
© 2012 ZWCAD Software Co., Ltd. All rights reserved. | About ZWSOFT | Privacy Policy | Terms and Conditions | Contact us | Site Map
All trademarks,trade names or company names referenced herein are used for identification only and are the property of their respective owners.