CADXY坐标标注AUTOLISP程序.docx
- 文档编号:1866812
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:20
- 大小:19.10KB
CADXY坐标标注AUTOLISP程序.docx
《CADXY坐标标注AUTOLISP程序.docx》由会员分享,可在线阅读,更多相关《CADXY坐标标注AUTOLISP程序.docx(20页珍藏版)》请在冰豆网上搜索。
CADXY坐标标注AUTOLISP程序
CADX,Y坐标标注AUTOLISP程序
;;(DEFUNIDPT(/ppxpypxxpyy)
(DEFUNIDPT()
(SETQXT)
(WHILEX
(SETVAR"OSMODE"(+132512))
(INITGET1)
(SETQPP(GETPOINT"\nPLEASEPICKTHEPOINT:
"))
(SETVAR"OSMODE"0)
(SETQP(OSNAPPP"INT,END,CEN"))
(IF(=PNIL)
(PROMPT"\nINVALIDPOINT,PICK!
")
(SETQXNIL)))
(SETQPXX(CARP)
PYY(CADRP)
PX(RTOSPXX2PRE1)
PY(RTOSPYY2PRE1)))
;;(DEFUNMAX_XY(WIPXPY/LPXPY)
(DEFUNMAX_XY()
(SETQKKK"X")
(SETQLLL"Y")
(SETQLX(STRLENPX)
LY(STRLENPY))(IF(>LXLY)
(PROGN
(SETQW_NU(-LXLY))
(WHILE(>W_NU0)
(SETQPY(STRCAT""PY))
(SETQW_NU(-W_NU1)))))(IF( (PROGN (SETQW_NU(-LYLX)) (WHILE(>W_NU0) (SETQPX(STRCAT""PX)) (SETQW_NU(-W_NU1)))))(SETQPY(STRCATKKKPY)) (SETQPX(STRCATLLLPX)) (SETQPXL(STRLENPX) PYL(STRLENPY) MAXL(FLOAT(MAXPXLPYL)) L(*WIMAXL))) ;;(DEFUNTEXT_P(/WWXWY) (DEFUNTEXT_P() (SETVAR"OSMODE"0) (INITGET1) (SETQW(GETPOINT"\nINPUTX-YTEXTPOSITION: ")) (SETQWX(CARW)) (SETQWY(CADRW)));;(DEFUNDRLIN(CALPWL/ALPWWE)(DEFUNDRLIN() (SETQAL01(+PICAL)) (SETQALPW(ANGLEPW)) (SETQAG-D(-ALPWCAL)) (IF(>AG-D0) (PROGN (IF(AND( 0.5))(>AG-D(*PI0))) (SETQWE(POLARWCALL) BZ1)) (IF(AND(>AG-D(*PI 0.5))( 1.5))) (SETQWE(POLARWAL01L) BZ2)) (IF(AND(>AG-D(*PI 1.5))( (SETQWE(POLARWCALL) BZ3)) ;>>>>>)(PROGN ;<<<<< (IF(AND(>AG-D(*PI- 0.5))( (SETQWE(POLARWCALL) BZ1)) (IF(AND( 0.5))(>AG-D(*PI- 1.5))) (SETQWE(POLARWAL01L) BZ2)) (IF(AND( 1.5))(>AG-D(*PI-2))) (SETQWE(POLARWCALL) BZ3)) ;>>>>>)) (COMMAND"PLINE"P"W" 0.0""WWE""));;(DEFUNDRCORD(AL01ALPWHCALPXPY/) (DEFUNDRCORD() (IF(=BZ2) (SETQWBWE) (SETQWBW))(SETQWBX(POLARWB(+(*PI 0.5)CAL)H) WBY(POLARWB(+(*PI 1.5)CAL)H))(SETQAL_CAL(*180(/CALPI))) (COMMAND"TEXT""J""ML"WBXHAL_CALPY) (COMMAND"TEXT""J""ML"WBYHAL_CALPX));;(DEFUNDRELEV(AL01ALPWWECALWIPRE2) (DEFUNDRELEV() (IF( (SETQEPL(POLARWEAL01(*WI 0.5))) (SETQEPR(POLARWECAL(*WI 0.5))))(SETQDHH(GETREAL"\nINPUTDESIGNELEVATION: ")) (IF(=DHHNIL) (PROMPT"\nNOELEVATIONAVAILABLENOW! ") (PROGN (SETQDH(RTOSDHH2PRE2)) (SETQCLA(GETVAR"CLAYER")) (IF(/=CLA"ELEV") (ELA))(IF( (COMMAND"TEXT""J""MR"EPLHAL_CALDH) (COMMAND"TEXT""J""ML"EPRHAL_CALDH))))) (DEFUNPCR() (SETQTS 0.0) (SETVAR"OSMODE"33) (SETQXT) (WHILEX (INITGET1) (SETQPP1(GETPOINT"\nENTERTHEFIRSTPOINT: ")) (SETQP1(OSNAPPP1"INT,END")) (IF(/=P1NIL) (SETQXNIL) (PROGN(PROMPT"\nNOINTORENDFOUND,CONTINUE? [Y/N]")(INITGET1) (SETQJ(GETSTRING)) (IF(OR(=J"Y")(=J"y")) (PROGN(SETQP1PP1)(SETQXNIL)) (PROMPT"\nRESELECTPLEASE! "))))) (SETQOP1P1) (SETQP_NUMBER1) (SETQXT) (WHILEX (SETQP_NUMBER(+1P_NUMBER)) (SETQPRO_1(STRCAT"\nTHE<"(ITOAP_NUMBER))) (SETQPRO_1(STRCATPRO_1">POINT(ENTER=ENDSELECT: )")) (SETQP2(GETPOINTPRO_1)) (IF(/=P2NIL) (PROGN(SETQSS (*(+(CADRP1)(CADRP2))(-(CARP2)(CARP1))0.5))(SETQTS(+TSSS)) (SETQP1P2))(PROGN(SETQSS (*(+(CADROP1)(CADRP1))(-(CAROP1)(CARP1))0.5))(SETQTS(+TSSS)) (SETQXNIL))))(SETQS0(ABSTS)) (SETQTSS(RTOSS02PRE3)) (SETVAR"OSMODE"0) (INITGET1) (SETQW(GETPOINT"\nINPUTTEXTPOSITION: ")) (COMMAND"TEXT"WH 0.0(STRCAT"S="TSS)))(DEFUNETP() (SETQXT) (WHILEX (PROMPT"\nSELECTEDGEOFTHEPOLYGON: ") (SETQS_SET(SSGET)) (IF(=S_SETNIL) (PROMPT"\nINVALIDSELECTION,RESELECTPLEASE! ") (SETQXNIL))) (CA_AREA))(DEFUNLTP() (INITGET1) (SETQURC(GETCORNER (SETQDLC(GETPOINT"\nENTERFIRSTCORNER: ")) "\nTHESECONDCORNER: "))(SETQSSET(SSGET"W"DLCURC)) (COND ((OR(=ENTP"LINE")(=ENTP"ARC")) (COMMAND"PEDIT"(SSGETP10)"Y""J"SSET"""X"))((=ENTP"POLYLINE") (COMMAND"PEDIT"(SSGETP10)"J"SSET"""X"))(T(PROMPT"\nINVALIDENTITYFORPEDIT! ")))) (DEFUNRETP() (SETQSET1(SSGETP10)) (SETQENAME(SSNAMESET10)) (SETQELIST(ENTGETENAME)) (SETQENTP(CDR(ASSOC0ELIST))))(DEFUNPLTP() (SETQENTP2(CDR(ASSOC70ELIST))))(DEFUNPLS() (PLTP) (IF(=ENTP21) (PROGN(REDRAWENAME3) (PROMPT"\nIT'SACLOSEDPOLYLINE") (S))(PROGN (REDRAWENAME3) (PROMPT"\nIT'SNOTACLOSEDPLINE,TRYTOCLOSEIT! ") (LTP) (RETP) (PLTP) (IF(=ENTP21) (PROGN(PROMPT"\nNOWITHASBEENCLOSED! ") (S))(PROGN(REDRAWENAME3) (SETQX (GETSTRING (STRCAT "\nCAN'TBECLOSEDAUTOMATICALLY,CALCULATEISTAREA? ""\n<'Y'FORYES ANDANYOTHERKEYFORNO>")))(IF(OR(=X"Y")(=X"y")) (S) (PROMPT"\nTHISONEIGNORED,CALCULATENEXTPOLYGON! ")))))))(DEFUNS()(COMMAND"AREA""E"(SSGETP10)) (SETQSS(GETVAR"AREA")) (SETQS1(RTOSSS2PRE3)) (SETVAR"OSMO
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CADXY 坐标 标注 AUTOLISP 程序