UPAARX五金模设计外挂===值的关注

先看视频

更多视频请看https://1295389245.qzone.qq.com/

好些命令可以自由使用，欢迎大家试用。
本程序在本人的淘宝网店有出售。
https://shop63769552.taobao.com

程序文件

自由使用，欢迎 试用

我的QQ：1295389245
有问题反应请加我QQ联系！

UPAARX命令集中未上锁的命令

请利用ACAD.PGP文件简化命令。

命令UPAXY7：更改所选坐标尺寸的原点，先用UPAXY设置好原点。
    命令UPADA: 调整坐标尺寸端点位置，点一次调整一个。
    命令UPADA1: 调整坐标尺寸端点位置，点一次调整多个。
    命令UPADA2: 与upada1的效果类似，但是不拉直尺寸。
命令UPADAV: 调整坐标尺寸的起点位置。

    命令UPAHSC1：将不连续递增的代号变成连续递增。比如所选代号分别为P1,P3,P5,P6，则分别会变成P1，P2，P3，P4。也可同时将代号美观化，比如将N1改为N01。
    命令UPAHSC2：将代号重新编号，比如选取了5个代号，按选取的先后顺序分别是D,D3，B,B1，P,然后按提示输入P3，则所选代号重新编为P3,P4,P5,P6,P7。

    命令UPATABLE1：生成加工说明表，可自动选物件，并自动放置表格。
命令UPATABLE2：生成加工说明表，需手动选物件，并手动放置表格。

    LISP函数(UPABDY)：依上一次的参数生成入子外形，不选物件可设置参数。已经定义BDY        命令调用(UPABDY),如有命名冲突请在upadraw.lsp中更改。
    (defun C:BDY() (UPABDY));defun

    LISP函数(UPABDY1)：依输入的5个参数生成入子外形。函数用法为：
    (UPABDY1  offset  d1  d2  d3  d4)

命令UPANU：出现对话框，设置选项然后选物件对齐。
命令UPANUU：以上一次的设置来对齐物件，不出现对话框。

命令UPAHORIT：将镶件放置水平或竖直。一次一个。以最长线段为基准判断。
命令UPAHORITA：将镶件放置水平或竖直。一次多个。以最长线段为基准判断。
命令UPAMULTIC：从模板中提取镶件。不选物件可设置参数。
命令UPALWRADIUS1：将LWPOLYLINE中的圆角变为尖角。原来物件变成暗色。不选物件可设置半径数值，半径数值可设置范围为(0.01 < R < 100.0)，大于此半径的圆角会被忽略不处理。旧的物件用命令E55删除。
命令UPALWRADIUS2：将LWPOLYLINE中的尖角变为圆角。原来物件变成暗色。不选物件可设置圆角数值，半径数值可设置范围为(0.01 < R < 100.0)。

    命令UPAXXA：选相同角度的直线。有时剖面线被炸开后要选取，用此命令好用。
    命令UPAXXCM：选相同颜色的物件，每次可以有多种颜色标准。可处理BYLAYER颜色。
    命令UPAXXCE：反向选择相同颜色的物件，刚好与UPAXXCM相反。
    命令UPARBYC：将BYLAYER颜色还原成它的本来颜色。比如物件的颜色为BYLAYER，在图层H上，图层H的颜色为3，则经过UPARBYC命令后，该物件的颜色将更改为3。
    命令UPARBYL：将BYLAYER线型还原成它的本来线型。
    命令UPAZEROL：有时图档中可能会有零长度的直线，可用此命令来选取然后删除。

    命令UPAGAP：调整两条平行线之间的距离，两条平行线可对称移动或一个固定一个移动。
        如果一次选了两条直线，则这两条直线会依中心线对称移动位置到新距离。
        如果一次只选一条直线，该直线会固定不动，再选另一条直线，这个直线会移动到新距离。
        命令UPAGAP有视频演示文件为upagap01.gif。
    命令UPAQDIM1：选物件然后标注高度尺寸。

    命令UPACENLINE1：为圆孔（或圆弧）加上十字形中心线。
    命令UPACENLINE2：为圆孔（或圆弧）加上X字形中心线。
    这两个命令在不选物件时可设置参数：
[Arc excluded]：输入A切换要不要处理圆弧。默认处理圆弧。
[minRadius <0.45>]：输入R并然后设置数值，可让比这个半径小的圆被忽略，不处理。
[Ext value <0.00>]：输入出头的数值，默认不出头。
    命令UPADIAMETER：更改圆孔（或圆弧）的直径或半径数值。

;;; BDY:  依内孔画镶件外形
;;; R5:   以圆孔为基点替换物件，可快速将圆孔替换为螺牙
;;; SXC:  复制所选物件到当前图层
;;; SX:   复制所选物件到指定图层，要求图层名字字符少才好用
;;; Y:    快速关闭或打开指定图层，一般料带图层会经常关闭或打开
;;; CB:   公制或英制螺牙
;;; XH:   固定销正面视图，会插入一个图块
;;; GH:   导柱孔正面视图，会插入一个图块
;;; DC:   快速标注倒角，程序会考虑下一个跟上面几个对齐
;;; E55:  删除颜色为55或56的物件

    命令UPAS2：单开指定的群组，群组名称在"GRP="中设定。
    命令UPAS2S：设置参数1. Initiate 2. List 3. Freeze 4. Off:
        1. Initiate：重新读取upalayer1.dat的内容，或读取upalayer11.dat，upalayer12.dat的内容，分别输入0或1或2。
        2. List： 显示当前内存中的群组详细。
        3. Freeze: 关闭图层选用的方式为Freeze。
        4. Off: 关闭图层选用的方式为Off，一般用Off方式，此为默认值。

    命令UPAS2A：将CAD中的当前图层状态保存为一个群组。此为暂时的，重启动CAD后便不见了。
    命令UPASF：加开指定的群组，不含尺寸图层。不输入字符默认为“BLANK_S”群组。
    命令UPASFF：加开指定的群组，包含尺寸图层。
    命令UPAHY：关闭指定的群组，包含尺寸图层。不输入字符默认为“BLANK_H”群组。
    命令UPALAYERCASE：将图层名字全部改写为大写或小写形式。