lisp画示坡线_大家来讨论一下示坡线的画法吧

断裂线绘制程序，源代码如下：

(defun c:DLX();;主程序

(setvar "cmdecho" 0)

(initget "Set Draw")

(setq sl (getkword "n 设定断裂线尺寸(S)/绘制断裂线(D)"))

(if (null sl) (setq sl "Draw"))

(if (null setdlx_ratio) (setq setdlx_ratio 1))

(if (null setdlx_drawratio) (setq setdlx_drawratio 1))

;;(alert sl)

(cond ((= sl "Set") (SetDLX))

((= sl "Draw") (DrawDLX))

(T)

)

;;(setq a (getreal "请输入a值:"))

)

(defun SetDLX()

;;(setvar "cmdecho" 0)

(setq strs (strcat "n 请输入断裂线长宽比:"))

(setq sx_ra (getreal strs))

(if sx_ra (setq setdlx_ratio sx_ra))

(setq strs (strcat "n 请输入断裂线绘图比例:"))

(setq sx_ra1 (getreal strs))

(if sx_ra1 (setq setdlx_drawratio sx_ra1))

(drawdlx)

)

(defun DrawDLX()

(setvar "cmdecho" 0)

(setq OSM (getvar "OSMODE"))

(initget)

(setq spt1 (getpoint "n 指定点1:"))

(setq spt2 (getpoint "n 指定点2:"))

(setq ang (angle spt1 spt2))

(setq midpt (list (/ (+ (car spt1) (car spt2)) 2) (/ (+ (cadr spt1) (cadr spt2)) 2)))

(setq dpt1 (polar midpt ang setdlx_drawratio))

(setq dpt3 (polar midpt (+ ang pi) setdlx_drawratio))

(setq dpt2 (polar dpt1 (- ang (/ pi 2)) (* setdlx_ratio setdlx_drawratio)))

(setq dpt4 (polar dpt3 (+ ang (/ pi 2)) (* setdlx_ratio setdlx_drawratio)))

(setvar "OSMODE" 0)

(command "pline" spt2 dpt1 dpt2 dpt4 dpt3 spt1 "")

(prin1)

(setvar "OSMODE" osm)

)

lisp画示坡线_大家来讨论一下示坡线的画法吧相关推荐

cad lisp 画四边形_多年经验总结CAD技巧6
51.[对图形夹点操作 ] 答:夹点,你用过吗?当你用鼠标左键点击图形,图形上便会出现许多方框这些就是夹点. 通过控制夹点便能进行一些基本的编辑操作.如:COPY,MOVE,改变图形所在的图层等基本操 ...
如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙，编写一个，快速填充图案的 LISP程序 - Powered by Discuz!...
这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...
lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...
b_screw_column.dcl /*;这是一个基于AutoCad 14.0下画螺钉的程序 ;本程序作者b.w ;本程序无偿使用 ;如有更好建议,请联系b.w ;版本:2.0.01 ;日期:14/ ...
lisp画垫圈_基于DCL和AutoLISP语言开发的垫圈标准件库
0.引言AutoCAD是目前CAD软件中应用较广泛的软件之一.在产品设计已系列化的趋势下,为提高绘图效率,常用DCL与AutoLISP语言对其进行二次开发.其中,DCL是设计用户对话框的语言,Auto ...
如何用lisp画蔓叶线_用Autolisp 在AutoCAD中实现多种曲线的绘制
用 Autolisp 在 AutoCAD 中实现多种曲线的绘制一.引言: AutoCAD 自 1982 年由 Autodesk 公司推出以来, 经历了 20 年的发展更新,目前,已深入到包括机械. ...
lisp画配筋_请教：CAD中如何用lisp画四棱台？
2007年08月27日 17:45:46 4楼更多信息,我发布在这个贴子里面,里面有详细的解释和动画 http://acad.net.cn/viewthread.php?tid=420&pa ...
如何用lisp画蔓叶线_利用 TI 图形计算器绘制美丽的极坐标曲线
利用 TI 图形计算器绘制美丽的极坐标曲线规定有单位长度的射线 Ox,O 为极点,Ox 为极轴,这样就建立了极坐标系. 又把平面上一点 P 到极点 O 的距离称为极径 ρ,OP 与 Ox 轴的夹角 ...
cad lisp 画梯形_应用于Auto CAD 的 Auto Lisp 编程画出如图所示图形
2014-05-12 回答打开对象捕捉,右键点击对象捕捉,勾选好捕捉点,再打开对象追踪,配合着来. 重心啊,我以为中心呢命令massprop 命令输入 massprop 选择对象: 使用对象选择方 ...
如何用python画雪人_pygame画雪人_函数与图形示例.py
"""pygame画雪人_函数与图形示例.py """ # 导入pygame模块 import pygame def draw_snowma ...

lisp画示坡线_大家来讨论一下示坡线的画法吧

lisp画示坡线_大家来讨论一下示坡线的画法吧相关推荐

最新文章

热门文章