cad中如何画平行线,能说的详细点吗？工具栏中的“平行线捕捉”怎么用啊？

Posted 2023-04-15

cad中如何画平行线,能说的详细点吗？工具栏中的“平行线捕捉”怎么用啊？我试验了半天也没弄出来，着也太不好使了

AutoCAD是目前国内应用最广范的CAD系统之一，AutoCAD 功能强大，是一个通用的CAD平台，但是如果不根据本专业的需要进行二次开发，使用起来是很不方便的。画对称中心线是机械设计中经常遇到的一个问题。
笔者用AutoLISP依据国家标准开发了两个程序，可以很方便地解决直线对称中心线的问题。

第一个程序适用于两条边是连续直线的情况。使用方法是：用LOAD命令装入GLS.LSP，运行C:GSL，依据屏幕提示，分别选择两边， 自动绘制出中心线。

GSL.LSP:

(defun mid(pt1 pt2 ) 计算两点之中点的功能函数

(setq pt (mapcar'+pt1 pt2 ))

(setq pt (mapcar'/pt'(2 2 2)))

)

(defun c:gsl/m cl1 cl cl2 e pt pt1 pt2 pt3 pt4 a) (SETQ M 1)

(WHILE M

(SETQ CL1 (ENTSEL"\n选择第一条直线 "))

(cond

((not cl1 ) (prompt"\n 没有发现实体"))

((/="LINE"(cdr (assoc 0 (setqe(entget (car cl1))))))

(prompt"\n 所选不是直线")

)

(t (prompt"找到了第一条直线”)

(setq m nil)；退出循环

)

)

)

(setq cl (ssget (nth 0 (cdr cl1))))；取得第一条直线的实体数据

(SETQ M 1)

(WHILE M

(SETQ CL2 (ENTSEL"\n选择第二条直线"))

(if cl2

(if (ssmemb (car cl2) cl )

(progn

(princ"\n选择重复，重新选择")

(setq cl2 nil)

)

)

)

(cond

((not cl2 ) (prompt"没有发现实体或重复"))

((／="LINE"(cdr (assoc 0 (setq e (entget (car cl2))))))

(prompt"\n 所选不是直线")

)

(t (prompt"\n两条直线已经选择完毕")

(setq m nil)；；；退出循环

)

)

)

；；；取得第一直线两端点的坐标

(setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e )))

(setq e (entget (car cl1)))；；取得第二条直线的实体数据

；；；取得第二直线两端点的坐标

(setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))

；；调整端点

(if (inters pt1 pt3 pt2 pt4 t)

(setq pt pt1

pt1 pt2

pt2 pt

)

)

；；；计算两端中点坐标

(setq pt1 (mid pt1 pt3 ))

(setq pt2 (mid pt2 pt4 ))

(setq a (angle pt1 pt2))；计算中心线的倾角

(setq pt2 (polar pt2 a 2.5))；；计算中心线的第一个端点

(setq pt1 (polar pt1 (＋pi a ) 2.5))

(command"layer""SET"5"")；；设置中心线层

(command "line" pt1 pt2 "")；；画出中心线

)

(princ "\nC:GSL has loaded")

(Princ "\n for symmetry line")

(princ)

第二个程序适用于阶梯轴，阶梯孔等各种情况。使用方法是：用LOAD命令装入GLS1.LSP，运行C:GSL1，依据屏幕提示，分别选择两边的端点， 自动绘制出中心线。

GSL1.LSP

(defun mid(pt1 pt2 )

(setq pt (mapcar '+ pt1 pt2 ))

(setq pt (mapcar '/ pt '(2 2 2)))

)

(defun c:gsl1(/ p1 p1 p3 p4 a )

；；保存环境变量

(setq os (getvar "osmode"))

(setq cm (getvar "cmdecho"))

；；设置环境变量

(setvar "osmode" 33)

(setvar "cmdecho" 0)

；；依次读取两条直线的端点

(initget 1)

(setq p1 (getpoint"\n选择第一条直线的第一个点"))

(initget 1)

(setq p2 (getpoint"\n选择第一条直线的第二个点"))

(initget 1)

(setq p3 (getpoint"\n选择第二条直线的第一个点"))

(initget 1)

(setq p4 (getpoint"\n选择第二条直线的第二个点"))

；；；；恢复环境变量

(setvar "osmode" os)

(setq p1 (mid p1 p3 ))

(setq p2 (mid p2 p4 ))

(setq a (angle p1 p2))

(setq p2 (polar p2 a 2.5))

(setq p1 (polar p1 (+ pi a ) 2.5))

(command "layer" "set" 5 "")

(command "line" p1 p2 "")

)

(princ "\nC:GSL1 has loaded")

(Princ "\n for symmetry line")

(princ)

王劲 西安远东公司工具制造厂

参考资料：http://www.cadjc.cn/html/AutoCADwenzijiaocheng/2008/1226/98.html

参考技术A 有两种方法:1画好直线后-使用指令O偏移;
2就是使用ML画多义线,可以设置好间距,线的数目和线形,就在格式-多线设置(好象,...我在网吧,反正是在格式的-_-L) 参考技术B 用偏移是最方便的。 参考技术C 就是，我感觉也是偏移最好 参考技术D 偏移O最好用了 ML也可以画出制定尺寸的平行线

winform中如何实现打印功能，能够打印出winform中的字，或者打印出数据库中一条数据，两种都可以

两个方法实现都可以
1.再面板上加一个“打印”按钮，点击能够打印出这个form中的所有字段的数据，图片如下
2.再面板上加一个“打印”按钮，点击能够打印出数据库中的第一条数据，
这两种方法都可以，望大神赐教

参考技术A 小票打印？这个用GDI+画出来就行了，你可以找一下打印的相关知识，很简单的！追问

能不能说的详细点，我可以给你源码的，帮我弄弄吧，大神

参考技术B 好好看下.net里工具箱中打印的组件 printDocument1等 调用一下就ok了追问

详细点吗，我可以给你我的源码，帮忙改改吧，谢谢了

追答

DialogResult result = printDialog1.ShowDialog();

if (result == DialogResult.OK)

printDocument1.Print();


打印代码
int TopMargin = printDocument1.DefaultPageSettings.Margins.Top;
Graphics g = e.Graphics;

g.DrawString(label1.Text, label1.Font, new SolidBrush(label1.ForeColor), label1.Location.X + 50, label1.Location.Y + TopMargin, new StringFormat());
设置 printDialog1的printDocument=printDocument1

本回答被提问者采纳 参考技术C 再在另一个窗口中画一个，再打印窗口追问

能详细点吗，我可以给你我的源码，帮忙改改吧，谢谢了