四边偏移lisp_双向偏移lisp

;;;

下载此文档后，将所有文字复制到文本文档保存，再将文本文档的后缀

txt

更改为

lsp

，启动

CAD

后加载此文件即可使用

;;;***

双向偏移直线

程序开始

***

(princ "

加载程序成功，输入

doo

命令可应用此工具

\n")

(defun c:doo (/ ob di date p1 p2 p3 p4 ang1 ang2 ang3 dist da)

(initget (+ 2 4))

(princ "\n

★提示

双向偏移直线

.\n")

(setq da (getdist "\n

请输入单边偏移量

<1.0>:"))

(if (null da)(setq da 1))

(princ "\n

★当前单边偏移量

:")(princ (rtos da 2))

(initget (+ 1 2 4))(setq ob (entsel "\n

选定偏移对象

:"))

(while ob

(setq date (entget(car ob)))

(setq p1 (cdr (assoc 10 date)))

(setq p2 (cdr (assoc 11 date)))

(setq ang1 (angle p1 p2))

(setq ang2 (+ ang1 (/ pi 2)))

(setq ang3 (+ ang1 (* pi 1.5)))

(setq p3 (polar p1 ang2 100))

(setq p4 (polar p1 ang3 100))

(setq dist da)

(command "LAYER" "M" "Double Offset" "C" "YELLOW" "Double Offset" "")

(command "CLAYER" "Double Offset")

(command "OFFSET" "L" "C" dist ob p3 ob p4 "")

(setq ob (entsel))

)

(setvar "offsetdist" da)

(princ)

四边偏移lisp_双向偏移lisp相关推荐

CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码
(defunc:gg(/abb1p1dpckbox)(PRINC"\双向偏移\(2005.8.8胡晓航\)")(setqd20p1nilpee(/pi2)e3pckbox(getv ...
ios7中使用scrollview来横向滑动图片，自动产生偏移竖向的偏移问题
ios7中使用scrollview来横向滑动图片,自动产生偏移竖向的偏移问题如图红色为scrollview的背景色,在scrollview上加了图片之后,总会有向下的偏移设置contentO ...
偏移出来的数据不准_cad偏移（cad偏移数据和输入的数据不准确）
cad偏移数据和输入的数据不准确 1.首先从你的截图来看,这两条紫线之间的距离就是192.因为如果是标注错误,这个误差差不多1/20一眼就能看出来.如图 2.因而很可能你的偏移操作出了问题.不知道你怎 ...
谷歌地球、谷歌地图卫星地图有偏移与无偏移
一.有偏移与无偏移差别 1.无偏移是指可以和实际测量的经纬度坐标完全重合,而不会发生偏差. 只有下载无偏移的数据才能在实际应用中发挥作用,包括定位.测绘.测量.设计.规划.套合CAD图纸等等. ...
理解文件偏移相对内存偏移节偏移
问题背景解决方法总结阅读之前注意: 本文阅读建议用时:5min 本文阅读结构如下表: 项目下属项目测试用例数量问题背景无 0 解决方法无 0 总结无 0 问题背景拜读<0da ...
协变量偏移与领域偏移
转载于https://zhuanlan.zhihu.com/p/195704051 协变量偏移Covariate Shift 数据集偏移 Dataset Shift的一种,源域与目标与边缘分布不同,条 ...
偏移变色lisp_直线偏移联动 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 masterlong 于 2018-11-4 15:08 编辑 ;| 类似于edata发布的程序"直线偏移连动~偏移后修改与其相接触的直线" 和他不同的是 edata的 ...
cad lisp 两侧偏移并删除_cad lisp 两侧偏移并删除_知道这些技巧-轻松攻克CAD所有困难...
28.如何使图形只能看而不能修改? 要是自己的图把它全部图层锁定就行了,打开不会变的:如果以后不想用了,就把里面所有东西都炸碎也可以:还有一种方法是用lisp语言写个加密程序,一旦运行后,图就只能看, ...
cad lisp 两侧偏移并删除_cad lisp 两侧偏移并删除_学会这12个CAD制图命令，走遍天下都不怕，有没有兴趣？......
学习CAD最主要就是掌握快捷键命令,如果不会快捷键只能用鼠标在屏幕上点,这样制图效率特别慢,大家一定掌握这12个CAD制图命令,学会了走遍天下都不怕. 一.了解相关工具当我们使用CAD绘制图纸完成后 ...

四边偏移lisp_双向偏移lisp

四边偏移lisp_双向偏移lisp相关推荐

最新文章

热门文章