suntao008 发表于 2004-12-3 13:49:00

[求助]：请教各位高手，怎样实现绘制圆中命令行中有三切的功能？

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">请教各位高手，怎样实现绘制圆得这样以下的功能？



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">命令<FONT face="Times New Roman">: c CIRCLE </FONT>指定圆的圆心或<FONT face="Times New Roman"> [</FONT>三点<FONT face="Times New Roman">(3P)/</FONT>两点<FONT face="Times New Roman">(2P)/</FONT>相切、相切、半径<FONT face="Times New Roman">(T)/</FONT>相切、相切、相切<FONT face="Times New Roman">(<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv w:st="on" UnitName="a" SourceValue="3" HasSpace="False" Negative="False" NumberType="1" TCSC="0">3A</st1:chmetcnv>)]:</FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">_<st1:chmetcnv w:st="on" UnitName="a" SourceValue="3" HasSpace="False" Negative="False" NumberType="1" TCSC="0">3A</st1:chmetcnv> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">指定对象与圆的第一个切点<FONT face="Times New Roman">:<o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">指定对象与圆的第二个切点<FONT face="Times New Roman">:<o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">指定对象与圆的第三个切点<FONT face="Times New Roman">:</FONT><o:p></o:p>

ZZXXQQ 发表于 2004-12-3 14:13:00

写个程序吧！不过加载了这个程序后，原来的单字母命令C无效了。


(DEFUN C:C ()<BR>(SETVAR "CMDECHO" 0)<BR>(SETQ OLDOS (GETVAR "OSMODE"))<BR>(INITGET "3A 3P 2P Ttr")<BR>(SETQ PT (GETPOINT "\n指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)/相切、相切、相切(3A)]:"))<BR>(IF (/= PT nil)<BR>        (COND<BR>       ((= PT "3A")<BR>               (SETVAR "OSMODE" 256)<BR>               (COMMAND "CIRCLE" "3P" PAUSE PAUSE PAUSE)<BR>               (SETVAR "OSMODE" OLDOS)<BR>       )<BR>       ((= PT "Ttr") (COMMAND "CIRCLE" "TTR"))<BR>       (T (COMMAND "CIRCLE" PT))<BR>        )<BR>)<BR>(SETVAR "CMDECHO" 1)<BR>(PRINC)<BR>)

Joseflin 发表于 2004-12-3 17:00:00

1.先按功能表列之【绘图】项，然后在命令行依序键入C, A就行了。


2.在Draw tool bar 中新增一个icon,操作更方便了。macro=^C^C_circle _3p _tan \_tan \_tan

zero207 发表于 2004-12-3 20:55:00

直接用“三点（3p）”选项，并辅以“切点”捕捉即可。

zpqcq 发表于 2004-12-3 22:11:00

不错。谢谢<A name=73557><FONT color=#000066><B>ZZXXQQ</B></FONT></A>

zxdcad 发表于 2004-12-4 00:36:00

ACAD本身就提供TTT方式画圆,只是没抓出来而已!


       


       

香玉公主 发表于 2004-12-24 16:01:00

发现你们好可怕！！


太历害会打击我们这些小不点的
页: [1]
查看完整版本: [求助]：请教各位高手，怎样实现绘制圆中命令行中有三切的功能？