CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码

(defunc:gg(/abb1p1dpckbox)(PRINC"\双向偏移\(2005.8.8胡晓航\)")(setqd20p1nilpee(/pi2)e3pckbox(getvar"pickbox")line"")(if(=#parofnil)(setq#parof(/(getvar"viewsize")10)))(pr...

(defun c:gg (/ a b b1 p1 d pckbox)

(PRINC "\ 双向偏移 \(2005.8.8胡晓航\) ")

(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")

(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))

(princ "\n当前偏移量

(setq answer(getstring ">: "))

(if (/= (atof answer) 0.0)(setq #parof(atof answer)))

(princ line)

(setvar "pickbox" pckbox)

(setq ent(entsel "\n拾取线： "))

(setvar "pickbox" 2)

(setq point(cadr ent))

(princ line)

(setq side(getpoint "\n拾取要偏移的一方： "))

(setq dist(distance side point))(setq ang(angle side point))

(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))

(setq ang(- 0 ang))(setq ang(- pi ang))

);end if

(setq other(polar point ang dist))

(command "offset" #parof ent side ent other "")

;(entdel(car ent))

(setvar "pickbox" pckbox)

(princ)

)

(Prompt "\n键入OO唤起命令：")

这个代码有2个问题

1.我看不到上次偏移的数值(我关闭命令行的时候)

2.如果我没点到目标对象，我的选取框会变小

展开

CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码相关推荐

Lisp尺寸标注增加前后缀_求一CAD标注加前缀与后缀lisp
回答: 1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar "cmdecho" 1) (setq en (ssg ...
cad面积累计lisp怎么用_求一个cad的lisp：一次计算多个封闭线框的面积，并显示每个面积和总面积...
2019-02-17 回答 ;求spline,polyline,lwpolyline,arc面积 (defun c:ss () (setq 总面积 0) (setq 总亩数 0) (setq 面积 0 ...
cad面积累计lisp怎么用_求一个cad的lisp：一次计算多个封闭线框的面积，并显示每个面积和总面积。...
匿名用户 1级 2016-12-02 回答 ;求spline,polyline,lwpolyline,arc面积 (defun c:ss () (setq 总面积 0) (setq 总亩数 0) (s ...
中望CAD的引线标注格式怎么改_分享一个CAD逆天神插件，记再多的快捷键，画图也不是我的对手...
相信每位进入设计院的孩纸们,一定都经历过CAD的洗(cui)礼(can),一天到晚的画图,最惨的是还画的贼慢. 平时画图时,除了CAD的熟练使用之外,还要把快捷键记全,速度才能上来,会用快捷键是制图速 ...
php程序员述职材料_求一个PHP程序员的试用期转正的述职报告要求详细一点的分数不够可以再加，在线急等...
匿名用户 1级 2014-05-15 回答述职报告大家好,我是XXX项目组的XXX,我于****年**月进入公司做PHP程序开发,至今已***长时间了.初来公司,曾经很担心不知该怎么与人共处,该如 ...
cad镜像后标注尺寸数字反了_急！CAD镜像后文字反向应该怎么处理？
原标题:急!CAD镜像后文字反向应该怎么处理? 镜像MI在CAD中用到的频率非常大,例如上期的CAD实操,老式挂钟的绘制,其中钟盘的刻点和数字,就没有使用环形阵列而是用镜像实现:又好像上上期的CAD实 ...
CAD中用lisp程序实现批量偏移_AutoCAD如何批量偏移
AutoCAD 如何批量偏移 1. 在 AutoCAD 里面,有的时候, 需要批量偏移封闭的多段线, 这个偏移的偏移距离是一样的,并向外偏移,可以使用 autoLISP 来解决: 2. 下面有一段程 ...
lisp自动生成界址点表_基于AUTO CAD绘制宗地界址点成果表程序的研发
基于 AUTO CAD 绘制宗地界址点成果表程序的研发陈亚明 ; 杨俊杰 ; 张胜利 [期刊名称] <科技创新与生产力> [年 ( 卷 ), 期] 2007(161)006 [摘要] 针 ...
lisp工具箱for中望_中望CAD绘制地面排版图
CAD绘图行业中做了很多年了,很钟情于LISP程序.很多时候我们需要的功能可以和CAD联系,一起探讨需要编译的LISP程序.下面介绍一个由中望CAD开发工程师按我们要求编译的一个LISP程序,带来的设 ...

CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码

CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码相关推荐

最新文章

热门文章