AutoLisp 源代码 实用程序1.docx
- 文档编号：29329598
- 上传时间：2023-07-22
- 格式：DOCX
- 页数：18
- 大小：16.93KB
AutoLisp 源代码 实用程序1.docx
《AutoLisp 源代码 实用程序1.docx》由会员分享，可在线阅读，更多相关《AutoLisp 源代码 实用程序1.docx（18页珍藏版）》请在冰豆网上搜索。
AutoLisp源代码实用程序1
（defunc:
1（/1a1b1c1dchklaydovavx）
（setvar"OSMODE"1024）
（setqchklay（tblsearch"layer""FL"））
（if（nullchklay）
（command"layer""n""FL""c""161""FL"""）
）
（setqva（getvar"lunits"））
（if（=va2）
（progn
（setqdo20000）
（SETQVX1））
）
（if（=va4）
（progn
（setqdo800）
（SETQVX0.03937））
）
（setq1a'（000））
（setq1b（polar1a0do））
（setq1c（polar1b（*pi0.5）do））
（setq1d（polar1a（*pi0.5）do））
（command"pline"1a1b1c1d1a""）
（command"chprop"（entlast）"""la""FL"""）
（command"insert""STRBLOCK"'（000）VXVX0）
（setvar"OSMODE"1279）
（prin1）
）
（defunc:
dxff（/ent）
（setqa1（car（entsel）））
（setqb1（entgeta1（list"*"）））
）
;;;（defunc:
e（/cmd_entcmd_selcmd_no）
;;;（setqcmd_ent（cadr（ssgetfirst）））
;;;（cond（（=nilcmd_ent）
;;;（setqcmd_sel（ssget））
;;;（setqcmd_no（sslengthcmd_sel））
;;;（command"_.erase"cmd_sel""）
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;"\nTotal****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;"\nTotal****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;）
;;;）
;;;）
;;;（（/=nilcmd_ent）
;;;（setqcmd_no（sslengthcmd_ent））
;;;（command"_.erase"）
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;"\nTotal****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;"\nTotal****"
;;;（rtoscmd_no20）
;;;"****Deleted"
;;;）
;;;）
;;;）
;;;）
;;;（princ）
;;;）
;***************************************************************************************************************************************************
;;;（defunc:
m（/cmd_entcmd_selcmd_nocmd_distcmd_ptcmd_pt1）
;;;（setqcmd_ent（cadr（ssgetfirst）））
;;;（if（=nilcmd_ent）
;;;（setqcmd_sel（ssget））
;;;（setqcmd_selcmd_ent）
;;;）
;;;（setqcmd_no（sslengthcmd_sel））
;;;（princ（strcat（rtoscmd_no20）"FoundByElvis"））
;;;（command"move"
;;;cmd_sel
;;;""
;;;（setq
;;;cmd_pt（getpoint
;;;"\nSpecifybasepointor[Displacement]
"
;;;）
;;;）
;;;pause
;;;）
;;;（setqcmd_pt1（getvar"lastpoint"））
;;;（setqcmd_dist（distancecmd_ptcmd_pt1））
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Moved"
;;;"\n"
;;;"\nStartPoint****（"
;;;（rtos（carcmd_pt）24）
;;;","
;;;（rtos（cadrcmd_pt）24）
;;;","
;;;（rtos（caddrcmd_pt）24）
;;;"）****"
;;;"\n"
;;;"\nEndPoint****（"
;;;（rtos（carcmd_pt1）24）
;;;","
;;;（rtos（cadrcmd_pt1）24）
;;;","
;;;（rtos（caddrcmd_pt1）24）
;;;"）****"
;;;"\n"
;;;"\nDistance****"
;;;（rtoscmd_dist24）
;;;"****"
;;;）
;;;）
;;;
;;;（Propak_Str_Elviscmd_sela"MOVE"）
;;;（princ）
;;;）
;;;（defunc:
co（/cmd_copyentcmd_distcmd_entcmd_entlastcmd_nocmd_ptcmd_pt1cmd_sel）
;;;（SETQA（GETVAR"OSMODE"））
;;;（setqcmd_ent（cadr（ssgetfirst）））
;;;（if（=nilcmd_ent）
;;;（setqcmd_sel（ssget））
;;;（setqcmd_selcmd_ent）
;;;）
;;;（setqcmd_no（sslengthcmd_sel））
;;;（princ（strcat（rtoscmd_no20）"FoundByElvis"））
;;;（setqcmd_pt
;;;（getpoint
;;;"\nSpecifysecondpointor[Array]
"
;;;）
;;;）
;;;（whilet
;;;（setqcmd_copyent（ssadd））
;;;（setqcmd_entlast（entlast））
;;;（command"copy"cmd_sel""cmd_ptpause）
;;;（setqcmd_pt1（getvar"lastpoint"））
;;;（setqcmd_dist（distancecmd_ptcmd_pt1））
;;;
;;;（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））
;;;））
;;;
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Copy"
;;;"\n"
;;;"\nStartPoint****（"
;;;（rtos（carcmd_pt）24）
;;;","
;;;（rtos（cadrcmd_pt）24）
;;;","
;;;（rtos（caddrcmd_pt）24）
;;;"）****"
;;;"\n"
;;;"\nEndPoint****（"
;;;（rtos（carcmd_pt1）24）
;;;","
;;;（rtos（cadrcmd_pt1）24）
;;;","
;;;（rtos（caddrcmd_pt1）24）
;;;"）****"
;;;"\n"
;;;"\nDistance****"
;;;（rtoscmd_dist24）
;;;"****"
;;;）
;;;）
;;;（Propak_Str_RevTextcmd_copyent）
;;;（Propak_Str_Elviscmd_copyenta"COPY"）
;;;
;;;）
;;;
;;;（princ）
;;;）
;;;（defunc:
mi（/cmd_copyentcmd_distcmd_entcmd_entlastcmd_methodcmd_nocmd_ptcmd_pt1cmd_selcmd_st）
;;;（setqcmd_ent（cadr（ssgetfirst）））
;;;（if（=nilcmd_ent）
;;;（setqcmd_sel（ssget））
;;;（setqcmd_selcmd_ent）
;;;）
;;;（setqcmd_no（sslengthcmd_sel））
;;;（princ（strcat（rtoscmd_no20）"FoundByElvis"））
;;;（setqcmd_pt
;;;（getpoint
;;;"\nSpecifysecondpointor[Array]
"
;;;）
;;;）
;;;（setqcmd_copyent（ssadd））
;;;（setqcmd_entlast（entlast））
;;;（command"mirror"cmd_sel""cmd_ptpause"N"）
;;;（setqcmd_pt1（getvar"lastpoint"））
;;;（setqcmd_dist（distancecmd_ptcmd_pt1））
;;;
;;;（setqcmd_st（strcase（getstring"\nErasesourceobjects?
[Yes/No]
"）））
;;;（if（=cmd_st"Y"）
;;;（progn
;;;（setqcmd_method"MOVE"）
;;;（command"erase"cmd_sel""）
;;;）
;;;（setqcmd_method"COPY"）
;;;
;;;）
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Mirror"
;;;"\n"
;;;"\nStartPoint****（"
;;;（rtos（carcmd_pt）24）
;;;","
;;;（rtos（cadrcmd_pt）24）
;;;","
;;;（rtos（caddrcmd_pt）24）
;;;"）****"
;;;"\n"
;;;"\nEndPoint****（"
;;;（rtos（carcmd_pt1）24）
;;;","
;;;（rtos（cadrcmd_pt1）24）
;;;","
;;;（rtos（caddrcmd_pt1）24）
;;;"）****"
;;;"\n"
;;;"\nDistance****"
;;;（rtoscmd_dist24）
;;;"****"
;;;）
;;;）
;;;（while（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））
;;;）
;;;）
;;;（Propak_Str_RevTextcmd_copyent）
;;;（Propak_Str_Elviscmd_copyentacmd_method）
;;;
;;;（princ）
;;;）
;;;（defunc:
s（/cmd_entcmd_selcmd_nocmd_distcmd_ptcmd_pt1）
;;;（setqcmd_ent（cadr（ssgetfirst）））
;;;（if（=nilcmd_ent）
;;;（setqcmd_sel（ssget））
;;;（setqcmd_selcmd_ent）
;;;）
;;;（setqcmd_no（sslengthcmd_sel））
;;;（princ（strcat（rtoscmd_no20）"FoundByElvis"））
;;;（command"stretch"
;;;cmd_sel
;;;""
;;;（setq
;;;cmd_pt（getpoint
;;;"\nSpecifybasepointor[Displacement]
"
;;;）
;;;）
;;;pause
;;;）
;;;（setqcmd_pt1（getvar"lastpoint"））
;;;（setqcmd_dist（distancecmd_ptcmd_pt1））
;;;（alert（strcat"Total****"
;;;（rtoscmd_no20）
;;;"****Moved"
;;;"\n"
;;;"\nStartPoint****（"
;;;（rtos（carcmd_pt）24）
;;;","
;;;（rtos（cadrcmd_pt）24）
;;;","
;;;（rtos（caddrcmd_pt）24）
;;;"）****"
;;;"\n"
;;;"\nEndPoint****（"
;;;（rtos（carcmd_pt1）24）
;;;","
;;;（rtos（cadrcmd_pt1）24）
;;;","
;;;（rtos（caddrcmd_pt1）24）
;;;"）****"
;;;"\n"
;;;"\nDistance****"
;;;（rtoscmd_dist24）
;;;"****"
;;;）
;;;）
;;;（Propak_Str_Elviscmd_sela"STRETCH"）
;;;（princ）
;;;）
;============
（defunPropak_Str_Elvis（Elvis_SelaElvis_method/
Elvis_rnoElvis_data
Elvis_TElvis_typ
Elvis_coloElvis_colo_bk
Elvis_xdata
）
（if（=a"!
1"）
（progn
（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"LINE"）
（=Elvis_typ"CIRCLE"）
（=Elvis_typ"LWPOLYLINE"）
（=Elvis_typ"TEXT"）
（=Elvis_typ"3DSOLID"）
（=Elvis_typ"ELLIPSE"）
（=Elvis_typ"ARC"）
（=Elvis_typ"POLYLINE"）
（=Elvis_typ"MTEXT"）
）
Elvis_T
）
（setqElvis_xdata
（list'-3
（cons"PROPAK_ELVIS"
（list'（1002."{"）
（cons1000（rtosElvis_colo_bk20））
（cons1000Elvis_method）
'（1002."}"）
）
）
）
）
（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"TEXT"）
（=RevText_typ"MTEXT"）
）
（setqent（cdr（assoc1RevText_data）））
（setqdcl_id（load_dialog"dde"））
（new_dialog"dde"dcl_id）
（set_tile"dimt"ent）
（action_tile"accept""（getdata）（done_dialog1）"）
（action_tile"cancle""（done_dialog）"）
（setqdd（start_dialog））
（if（=dd1）
（entmod（subst（cons1ent）（assoc1RevText_data）RevText_data）））
）
（（=RevText_typ"INSERT"）
（if（="SUPTAG"（cdr（assoc2RevText_data）））
（progn
（setqRevText_name
（entnext（ssnameRevText_SelRevText_rno））
）
（setqRevText_data（entgetRevText_name））
（setqent（cdr（assoc1RevText_data）））
（setqdcl_id（load_dialog"dde"））
（new_dialog"dde"dcl_id）
（set_tile"dimt"ent）
（action_tile"accept""（getdata）（done_dialog1）"）
（action_tile"cancle""（done_dialog）"）
（setqdd（start_dialog））
（if（=dd1）
（entmod（subst（cons1ent）
（assoc1RevText_data）
RevText_data
）
）
）
）
）
）
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- AutoLisp 源代码 实用程序1 实用程序
冰豆网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
#2机组现场施工用电布置措施.docx
-
《个人贵金属质押借款合同》兴业银行.docx
-
《科学发展观和小康社会的经济建设》复习导学案.docx
-
《我和祖父的园子》第一课时教案两篇word.docx
-
《质量》教学案例与设计.docx
-
2惠农小册子.docx
-
7A版个人与团队模拟考试题及答案.docx
-
10篇新部编四年级下册语文课内外阅读理解专项练习题及答案.docx
-
16初四物理热和能知识点总结精讲.docx
-
20XX社会语言经典语录流行风暴.docx
-
48篇教学案例分析报告题.docx
-
《电子工厂安全管理制度汇总》.docx
-
《机械制造课程设计》指导.docx
-
《钱学森》教案第二课时.docx
-
《边城》读后感5篇.docx
-
《固定式压力容器安全技术监察规程》.docx
-
《论雷峰塔的倒掉》.docx
-
《手术台就是阵地》教学设计三年级语文下册.docx
-
《夏洛的网》课外阅读教学设计.docx
-
《自己的花是让别人看的》教案.docx
-
3C检查表090429.docx
-
7客运专线CRTSⅡ型板式无砟轨道施工工法.docx
-
《笔算除法》课时教案设计.docx
-
11#楼高大模板支撑体系专项方案.docx
-
17科学分析经济形势.docx
-
《电流和电路》易错题精讲综合检测题与答案.docx
-
《会计信息系统》习题含答案.docx
-
《汽车电器设备与维修》发电机分教考分离试题及标准答案.docx
-
《四川省排污许可证管理暂行办法》.docx
-
《新编实用英语》教案第一册Unit.docx
-
0母版锅炉值班员计算题WORD版.docx
-
3年级下册英语单词记忆人教版.docx
胆汁淤积000621PPT推荐.ppt
-
胚胎学PPT课件下载推荐.ppt
-
新人教版二年级数学下册《有余数的除法》例5PPT定PPT资料.ppt
-
胃十二指肠溃疡外科治疗PPT课件下载推荐.ppt
-
新人教版二年级数学下册第三单元《图形的运动一对称》课件PPT文档格式.ppt
-
胃癌的护理教学查房PPT文档格式.ppt
-
胆道疾病-研究生PPT文档格式.ppt
-
胃痛PPT文件格式下载.ppt
-
新人教版二年级数学下册万以内数的认识整理和复习一课件PPT文件格式下载.ppt
-
胆碱受体激动剂PPT课件下载推荐.ppt
-
新人教版二年级数学下册第九单元数学广角推理课件PPT文档格式.ppt
-
新人教版二年级数学下册《平移和旋转》PPT推荐.ppt
-
胆道课件优质PPT.ppt
-
新人教版二年级数学下册有余数的除法解决问题例6课件优质PPT.ppt
-
胚胎学总论PPT文档格式.ppt
-
胎儿期发育PPT文件格式下载.ppt
-
胚胎发生总论PPT文件格式下载.ppt
-
胸壁胸膜疾病--同济大学同济医院PPT推荐.ppt
-
胸前区、腋区PPT资料.ppt
