yang686526

图层复制 插图框
www.dimcax.com
图层复制 插图框
(defun c:xxxx (/ os ce bm ss se la )
(prompt "")
(setq os (getvar "osmode")
ce (getvar "cmdecho")
bm (getvar "blimpode")
)
(setvar "osmode" 37)
(setq se (getstring "\n input layer name<any key>/select matching object <enter>")
)
(if (= se "")
(progn
(setq la (cdr (assoc '8 (entget (car (entsel "\n select an object to match it"
) ) ) ) ) )
(setq ss (ssget))
(command "copy" ss "" "@" "@")
(command "_change" ss "" "p" "la" la "")
)
(progn
(setq la (getstring "\n enter layer name>"))
(setq ss (ssget))
(command "copy" ss "" "@" "@")
(command "_change" ss "" "p" "la" la "")
)
)
(setvar "osmode" os)
(setvar "cmdecho" ce)
(setvar "blipmode" bm)
(princ)
)

lz做一下简介呀
progress every day!!!

插图框a3 出自foxcad中（foxconn）
(defun c:a3()
(setq mylayer (getvar "clayer"))
(setq layname1 (substr mylayer 1 2))
(setq layname2 (strcat layname1 "form"))
(if(setq ed1 (tblsearch "layer" layname2))
(progn
(setq ed2 (cdr (assoc 70 ed1)))
(cond
((= ed2 0) (command "layer" "on" layname2 ""))
((= ed2 1) (command "layer" "t" layname2 "on" layname2 ""))
((= ed2 4) (command "layer" "u" layname2 "on" layname2 ""))
((= ed2 5) (progn (command "layer" "t" str3 "u" layname2 "on" layname2 "")))
)
)
(setq layname2 "form")
)
(command "layer" "s" layname2 "")
(setq pt1 (getpoint "xxxxx第一点:\n"))
(setq pt2 (getcorner pt1 "xxxxx第2点::\n"))
(setq disx (abs (- (car pt1) (car pt2))))
(setq disy (abs (- (cadr pt1) (cadr pt2))))
(setq acx (/ disx 385.00))
(setq acy (/ disy 232.00))
(if (> acy acx)
(setq acx acy)
)
(setq acx (* (fix (+ (* acx 10) 0.9999)) 0.1))
(setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
(/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "insert" "a3.dwg" pt0 "x" acx "" "" "" "" "" "" "" "" "" ""
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ) ；；空格是块属性（原有判图层在填不同图框内容。。。）
(setvar "osmode" os)
;(c:l0001b)

)

dwg图形常用dxf群组码 在lisp编写时有用
共享dxf群码-1 = 像素名称 (entity name)
0 = 像素类型 (entity type)
5 = 像素处理码 (handle)
6 = 线型 (line type)
8 = 图层名称 (layer name)
48 = 线型比例 (line type scale)
62 = 颜色号码 (color number)
67 = 绘图空间 (1 = 图纸空间)
弧 (arc)
10 = 圆心点
40 = 半径
50 = 起点角度
51 = 终点角度
圆 (circle)
10 = 圆心点
40 = 半径

注标 (dimension)
1 = 注标文字
2 = 图块名称
3 = 文字字型
10 = 定义点坐标
11 = 文字中间点坐标
13 = 第1定义点坐标
14 = 第2定义点坐标
15 = 第3定义点坐标
50 = 注标线旋转角度
53 = 文字旋转角度
70 = 注标形式
(0=线性 1=对齐式 2=角度 3=直径 4=半径 6=坐标式 70=坐标式 128=文字巳被修改)
椭圆 (ellipse)
10 = 圆心点
11 = 长轴端点相对于圆心的相对坐标
40 = 长短轴百份比
41 = 椭圆弧起点角度
42 = 椭圆弧终点角度

填涂 (hatch)
2 = 图样名称
41 = 填涂比例
5 = 角度
71 = 是否为关系型
插入图块 (insert)
2 = 图块名称
10 = 插入点
41 = x方向比例
42 = y方向比例
43 = z方向比例
44 = 行间距
45 = 列间距
50 = 旋转角度
70 = 行数量
72 = 列数量

引线 (leader)
3 = 形式名称
7 = 字型
10 = 箭头起点坐标
40 = 文字高度
41 = 文字宽度
76 = 引线顶点数目

73 = 文字字型 (0=一般 1=公差 2=图块 3=没有)
线 (line)
10 = 起点
11 = 终点

细聚合线 (lwpolyline)
10 = 顶点坐标
40 = 区段起点宽度
11 = 区段终点宽度
42 = 弯曲系数(即凸度,直线为0)
43 = 是否单一线宽
70 = 断续线模式
90 = 顶点数目
(solid)
10 = 第1点坐标
11 = 第2点坐标
12 = 第3点坐标
14 = 第4点坐标
文字 (text)
1 = 文字内容
7 = 字型
10 = 插入点
11 = 对齐点
40 = 文字高度
50 = 旋转角度
41 = x方向比例系数
51 = 倾斜角度
71 = 显示模式 (1=正常 2=左右颠倒 3=上下颠倒)
72 = 水平对齐模式 (0=靠左 1=中央 2=靠右 3=align 4=middle 5=fit)
73 = 垂直对齐模式 (0=基线 1=底部 2=中央 3=顶部)
r
e:图层复制 插图框？？？？还有很多foxcad。lifecad 内的小程序