cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区

;;用LISP实现将PL环向内或向外偏移

;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654

(defun C:TEE ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)

(defun LEN (CURVE / TLEN)

(setq TLEN (vlax-curve-getdistatparam

CURVE

(vlax-curve-getendparam CURVE)

)

(command "_.UNDO" "BE")

(if (null tee_dist)

(setq tee_dist 1000.0)

) ;_设置全局变量

(setq HOLDOSMODE (getvar "OSMODE"))

(setq HOLDCMD (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(setvar "OSMODE" 0)

(if (setq ss (ssget '((0 . "*LINE,CIRCLE,ARC"))))

(progn

(setq n 0)

(initget 2)

(if (setq tmp

(getdist

(strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移):

(rtos tee_dist 2)

">"

)

(setq tee_dist tmp)

) ;_不输入时自动使用上一次输入数值

(repeat (sslength ss)

(setq ent (ssname ss n)

n (1+ n)

)

(setq CURVE (vlax-ename->vla-object ENT)

x (vlax-curve-getParamAtDist curve (/ (len curve) 3.33))

pt (vlax-curve-getPointAtParam curve x)

);_获得线上指定距离值的点及参数

(setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))

(setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))

(setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))

(command "_.OFFSET" (abs tee_dist) ENT PT1 "")

(if (or (and (> tee_dist 0) (> (LEN CURVE) (LEN (entlast))))

(and (< tee_dist 0) (< (LEN CURVE) (LEN (entlast))))

)

(progn

(entdel (entlast))

(command "_.OFFSET" (abs tee_dist) ENT PT2 "")

)

(setvar "OSMODE" HOLDOSMODE)

(setvar "CMDECHO" HOLDCMD)

(command "_.UNDO" "E")

(princ)

)

cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;;============================================================= ;;; 一般平面曲线参数方程的曲率离心公式 ;;; 功能: 获取曲线上 ...
lisp 发凹圆角_请问：如何将倒圆角的命令修改一下？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
谢谢大家的帮助! 按xhf大虾的说法,虽然可以不擦除线,但两条直线交点靠近圆角一边的两条小线段也保留了下来:我想可不可能得到这样一个结果:圆角后剩下一条折线和一条倒过圆角的折线(曲线?),而两条线之间 ...
偏移变色lisp_直线偏移联动 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 masterlong 于 2018-11-4 15:08 编辑 ;| 类似于edata发布的程序"直线偏移连动~偏移后修改与其相接触的直线" 和他不同的是 edata的 ...
方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
特别行政区界线lisp_CAD 系统变量参数大全 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 1291500406 于 2019-1-29 20:52 编辑 CAD 系统变量参数大全一.数学运算功能函数 1.1(十数值数值-)返回:累计实数或整数数值 1.2(一数值数 ...
lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
偏移变色lisp_渐进式多重偏移，见图片效果 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 偏移 - Powered by Discuz!...
本帖最后由荒野孤行于 2015-6-23 19:28 编辑渐进式多重偏移,图片效果如下: 附上源码: ;;; *****多重偏移程序开始***** (defun c:dcpy () (setv ...
块内拉升lisp_多重插入块的炸开问题？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
标注界址点号lisp_动态引线标注（改版） - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 动态 - Powered by Discuz!...
本帖最后由 958620832 于 2013-10-16 12:01 编辑兄弟贴:动态引线标注 http://bbs.mjtd.com/forum.php?mod=viewthread&ti ...

cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

最新文章

热门文章