搜索lisp

prodromosm · 发表于 2022-7-5 20:03:02

你好我不知道如何解释我在找什么。请看*。dwg文件我在那里有插图。

谢谢
测验lsp。图纸

BIGAL · 发表于 2022-7-5 20:12:42

如果使用带有标题栏的布局，则缩放不是问题，不需要复制等。

prodromosm · 发表于 2022-7-5 20:15:00

嗨，比格尔，谢谢你的重播。我没有使用布局，所以我需要一个lisp。有什么想法吗？

谢谢

prodromosm · 发表于 2022-7-5 20:22:07

还有其他想法吗？

谢谢

pBe · 发表于 2022-7-5 20:29:33

比格尔建议的是实现你想要的最简单的方法。现在开始使用prodromosm布局有什么害处。？

prodromosm · 发表于 2022-7-5 20:31:35

1）我不使用布局，因为我没有打印图纸的绘图仪。当我出去打印图纸时，他们不知道如何从布局中打印。
2）我与其他办公室合作，他们不知道如何使用布局。他们对autocad知之甚少

所以我使用的图纸只在模型空间中。。。。。。

如果有人能帮我，我会很感激。。。

谢谢

anandhan · 发表于 2022-7-5 20:39:23

您可以在没有绘图仪的情况下打印PDF文件并发送，他们可以轻松打印出PDF文件。这是一种简单的情节描述方法。

prodromosm · 发表于 2022-7-5 20:41:51

告诉我你不认识他们。他们让我的生活很困难。

tombu · 发表于 2022-7-5 20:51:18

请理解，纸空间是23年前在r11中引入用于打印的。你可以教他们如何使用F1键，如果他们还需要帮助，你可以教他们如何使用论坛。如果与您一起工作的人不了解使用AutoCAD的最简单的基础知识，那么您可能需要雇用懂的人或将其承包出去？

prodromosm · 发表于 2022-7-5 20:55:59

我写了这个，但有一些问题

|质心。lsp-在当前UCS坐标中返回可以在任何UCS中的选定对象的质心：-区域-三维实体-圆-椭圆-闭合多段线（重）-闭合LWpolyline-闭合平面样条线-闭合平面3DPOLYLINE如果透明使用，将点列表返回给调用命令：命令：line Specify first point：“质心选择要查找质心的对象：指定下一个点或[撤消]：如果不透明使用，则在当前图层上创建点对象。在任何一种情况下，最近选定对象的坐标都保存在symbol CENTRO中，以供以后使用。不适用于图案填充、自身相交的对象或其他无法转换为面域的2D对象。如果当前层已锁定或关闭，则会将其解锁并打开。Bill Gilliss Bill realerthanreal Com欢迎评论和建议。非常感谢Kent Cooper（PolylineSelfCrossing）gile（Normal3Points）对于此信息是否适合任何特定用途，我们不作任何明示或暗示的保证。所有材料均应按“原样”考虑，使用风险由您自行承担。版本1.0 2010年4月14日-首次公开发行请访问www.realerthanreal查看更新。com/autolispKeywords:AutoCAD AutoLISP质心OSNAP transparent==================================================================================================|；（defun c：质心（/*delobj*osmode e en entype ed obj prevEn newEn myerror polylineSelfCrossing Normal3Points CrossProduct Normalize ScaleVector setucstobject ucsSave makeRegion acadObj acadDoc*Modelspace newUCS origUCS objUCS lay status）（vl load com）=======子程序=====；；函数名称：PSC=多段线自交；；确定任何类型的多段线是否与自身相交；；对于三维多段线，必须在三维中具有真实相交；；2D中不明显；；如果自交，则返回T；如果不自交，则返回nil；；Kent Cooper（defun polylineSelfCrossing（poly/pltyp plobj plverts plints）（vl load com）（setq pltyp（cdr（assoc 0（entget poly）））plobj（vlax ename->vla object poly）plverts（length（safearray value（variant value（vla get Coordinates plobj）））plints（/（length（safearray value（变量值（vla与plobj plobj acExtendNone相交）））3）；end setq（setq plverts（/plverts（if（=pltyp“LWPOLYINE”）2 3））（if（vlax曲线为闭合多边形）（<plverts plints）；然后-闭合（if（equal（vlax curve getStartPoint poly）（vlax curve getEndPoint poly）1e-；else-open（vla object newEn））（setq centro（vlax get obj’centroid））（setq centro（trans centro 1 0））；；到WCS坐标（entdel newEn））（progn（vlr beep反应）（princ“\n无法导出质心”）（vla put ActiveUCS acadDoc origUCS）（setq centro（trans centro 0 1））；；WCS->原始UCS）（T（vlr beep反应）（princ“\n无法导出质心”）；cond（if（type centro）（if（=1（getvar'cmdactive））（progn；；返回UCS坐标中的centro以供透明使用（myerror“msg”）（osnap centro“u none”）（progn；；将centro转换为WCS坐标以创建实体（myerror“msg”）（vla addPoint*ModelSpace（vlax-3d-point（trans centro 1 0））；；注：在（if）之后没有代码，因此返回点是最后一个评估的东西）；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；（定义c:SWC（/U pac add ss i e temp it o a b pts tempC i3 ec）；；选择内/交叉曲线；；Alan J.Thompson，03.31.11（vl负载com）（defun _pac（e/l v d lst）（setq d（-（setq v（/（setq l（vlax curve getDistAtParam e（vlax curve getEndParam e）））100。））（while（<（setq d（+d v））l）（setq lst（cons（vlax curve getPointAtDist e d）lst））（initget 0“Crossing Within”）（setq*SWC:Opt*（cond（（getkword（strcat“\n指定选择方法witin curve[Crossing/Within]：”）（*SWC:Opt*））（princ“\n选择闭合曲线以选择：”）内的对象（如果（setq add（ssadd）ss（ssget’（-4“））（progn（repeat（setq i（sslength ss））（if（setq temp（ssget“_WP”）（_pac（setq e（ssname ss（setq i（1-i）））））（repeat（setq i2（sslength temp））（ssadd（ssname temp（setq i2（1-i2）））add）））（if（等式*SWC:Opt*“交叉”）（progn（vla getboundingbox（setq o（vlax ename->vla object e））‘a’b（setq pts（mapcar‘vlax safearray->list（list a b）））（if（setq tempC（ssget“_C）”（list（caar pts）（cadar pts）0。）（列表（caadr pts）（cadadr pts）0）（重复（setq i3（sslength tempC））（if（vlax invoke o’Intersectwith（vlax ename->vla object）（setq ec（ssname tempC（setq i3（1-i3 107;）а）acExtendNone）（ssadd ec add））））（sssetfirst nil add）（ssget“_I”）（命令“copy”）（setvar“OSMODE”111）（princ））；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；（defun C:RCC（/echo-wide-high-ptc ptll ptur scl）（if（and（setq-scl（getvar“useri1”））（not（zerop-scl））（setq-ptc（getpoint“\n矩形的点击中心：”）（progn（setq-echo（getvar'CMDECHO））（setvar“CMDECHO”0）（命令“u layer”“\u m”“exasf”“\u C”“3”“）（setq-wide（*0.0894 scl）high（*0.08975 scl）hwide（/wide 2.0）hhigh（/高2.0）ptll（list（-car ptc）hwide）（（cadr ptc）hhigh）ptur（list（+（car ptll）wide）（+（cadr ptll）high））（setvar“plinewid”0.0）（命令“.PLINE”ptll“W”“0”“0”。X“ptur”。Y“ptll ptur”。X“ptll”。Y“ptur”C”）（setvar“cmdecho”echo））（原理）；；；；；；；；；；；；；；；；；；；；；；；；；；；；（defun C:trigono（/pt1 pt2 dist ang lt2 lt3 sper tng）（setqpt1（getpoint“\n选择pt1：”）pt2（getpoint“\n选择pt2：”）pt3（getpoint“\n选择pt3：”）（命令“_layer”“\u m”“exasf”“\u C”“3”“）（命令“.PLINE”pt1 pt2 pt3“_C”）（princ））；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；（defun c:test（）（“A4”上的命令“layer”）（c:trigono）（c:centroid）（c:rcc）（c:SWC）；（命令“_erase”（ssget“x”'（（8。“exasf”）））

[编程交流] 搜索lisp

发表回复

精选推荐