AutoLisp 源代码 实用程序1rev3Word下载.docx
- 文档编号:19964753
- 上传时间:2023-01-12
- 格式:DOCX
- 页数:17
- 大小:17.31KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- AutoLisp 源代码 实用程序1rev3 实用程序 rev3
![提示](https://static.bdocx.com/images/bang_tan.gif)