AutoLisp 源代码 实用程序1rev3Word下载.docx

AutoLisp 源代码 实用程序1rev3Word下载.docx

《AutoLisp 源代码 实用程序1rev3Word下载.docx》由会员分享，可在线阅读，更多相关《AutoLisp 源代码 实用程序1rev3Word下载.docx（17页珍藏版）》请在冰豆网上搜索。

（SETQVX1））

（if（=va4）

（setqdo800）

（SETQVX0.03937））

（setq1a'

（000））

（setq1b（polar1a0do））

（setq1c（polar1b（*pi0.5）do））

（setq1d（polar1a（*pi0.5）do））

pline"

1a1b1c1d1a"

chprop"

（entlast）"

la"

insert"

STRBLOCK"

'

（000）VXVX0）

1279）

（prin1）

dxff（/ent）

（setqa1（car（entsel）））

（setqb1（entgeta1（list"

*"

）））

;

e（/cmd_entcmd_selcmd_no）

（setqcmd_ent（cadr（ssgetfirst）））

（cond（（=nilcmd_ent）

（setqcmd_sel（ssget））

（setqcmd_no（sslengthcmd_sel））

_.erase"

cmd_sel"

（alert（strcat"

Total****"

（rtoscmd_no20）

"

****Deleted"

\nTotal****"

）

（（/=nilcmd_ent）

（setqcmd_no（sslengthcmd_ent））

（princ）

***************************************************************************************************************************************************

m（/cmd_entcmd_selcmd_nocmd_distcmd_ptcmd_pt1）

（if（=nilcmd_ent）

（setqcmd_selcmd_ent）

（princ（strcat（rtoscmd_no20）"

FoundByElvis"

move"

cmd_sel

（setq

cmd_pt（getpoint

"

\nSpecifybasepointor[Displacement]<

Displacement>

:

pause

（setqcmd_pt1（getvar"

lastpoint"

（setqcmd_dist（distancecmd_ptcmd_pt1））

（rtoscmd_no20）

****Moved"

\n"

\nStartPoint****（"

（rtos（carcmd_pt）24）

"

（rtos（cadrcmd_pt）24）

（rtos（caddrcmd_pt）24）

）****"

\nEndPoint****（"

（rtos（carcmd_pt1）24）

（rtos（cadrcmd_pt1）24）

（rtos（caddrcmd_pt1）24）

\nDistance****"

（rtoscmd_dist24）

****"

（Propak_Str_Elviscmd_sela"

MOVE"

co（/cmd_copyentcmd_distcmd_entcmd_entlastcmd_nocmd_ptcmd_pt1cmd_sel）

（SETQA（GETVAR"

（setqcmd_pt

（getpoint

\nSpecifysecondpointor[Array]<

usefirstpointasdisplacement>

（whilet

（setqcmd_copyent（ssadd））

（setqcmd_entlast（entlast））

copy"

cmd_ptpause）

（setqcmd_pt1（getvar"

（while（if（=cmd_entlastnil）nil（setqcmd_entlast（entnextcmd_entlast）））

（if（member（cdr（assoc0（entgetcmd_entlast）））

'

（"

LINE"

CIRCLE"

LWPOLYLINE"

TEXT"

3DSOLID"

ELLIPSE"

ARC"

DIMENSION"

LEADER"

POLYLINE"

MTEXT"

INSERT"

（setqcmd_copyent（ssaddcmd_entlastcmd_copyent））

））

****Copy"

（Propak_Str_RevTextcmd_copyent）

（Propak_Str_Elviscmd_copyenta"

COPY"

mi（/cmd_copyentcmd_distcmd_entcmd_entlastcmd_methodcmd_nocmd_ptcmd_pt1cmd_selcmd_st）

mirror"

cmd_ptpause"

N"

（setqcmd_st（strcase（getstring"

\nErasesourceobjects?

[Yes/No]<

N>

（if（=cmd_st"

Y"

（setqcmd_method"

erase"

****Mirror"

（while（setqcmd_entlast（entnextcmd_entlast））

（Propak_Str_Elviscmd_copyentacmd_method）

s（/cmd_entcmd_selcmd_nocmd_distcmd_ptcmd_pt1）

stretch"

STRETCH"

============

（defunPropak_Str_Elvis（Elvis_SelaElvis_method/

Elvis_rnoElvis_data

Elvis_TElvis_typ

Elvis_coloElvis_colo_bk

Elvis_xdata

）

（if（=a"

!

1"

（regapp"

PROPAK_ELVIS"

（setqElvis_rno0）

（repeat（sslengthElvis_Sel）

（setqElvis_data（entget（ssnameElvis_SelElvis_rno）））

（if（=nil（assoc-3（entget（ssnameElvis_SelElvis_rno）（list"

））））

（setqElvis_Tt）

（setqElvis_Tnil）

（setqElvis_typ（cdr（assoc0Elvis_data）））

（setqElvis_colo（cdr（assoc62Elvis_data）））

（if（=Elvis_colonil）

（setqElvis_colo_bk256）

（setqElvis_colo_bkElvis_colo）

）

（cond（（and（or（=Elvis_typ"

（=Elvis_typ"

）

Elvis_T

）

（setqElvis_xdata

（list'

-3

（cons"

（list'

（1002."

{"

（cons1000（rtosElvis_colo_bk20））

（cons1000Elvis_method）

'

}"

）

（entmod（appendElvis_data（list（cons6210））（listElvis_xdata）））

（setqElvis_rno（1+Elvis_rno））

（defunPropak_Str_RevText（RevText_Sel/dcl_idddentrevtext_datarevtext_namerevtext_rnorevtext_typ）

（setqRevText_rno0）

（repeat（sslengthRevText_Sel）

（setqRevText_data（entget（ssnameRevText_SelRevText_rno）））

（setqRevText_typ（cdr（assoc0RevText_data）））

（cond（（or（=RevText_typ"

（=RevText_typ"

（setqent（cdr（assoc1RevText_data）））

（setqdcl_id（load_dialog"

dde"

（new_dialog"

dcl_id）

（set_tile"

dimt"

ent）

（action_tile"

accept"

（getdata）（done_dialog1）"

cancle"

（done_dialog）"

（setqdd（start_dialog））

（if（=dd1）

（entmod（subst（cons1ent）（assoc1RevText_data）RevText_data）））

（（=RevText_typ"

（if（="

SUPTAG"

（cdr（assoc2RevText_data）））

（setqRevText_name

（entnext（ssnameRevText_SelRevText_rno））

（setqRevText_data（entgetRevText_name））

（setqent（cdr（assoc1RevText_data）））

（setqdcl_id（load_dialog"

（new_dialog"

（set_tile"

（action_tile"

（setqdd（start_dialog））

（if（=dd1）

（entmod（subst（cons1ent）

（assoc1RevText_data）

RevText_data