CAD中如何使用Lisp程序编写坐标标注功能

共享Lisp源码,可直接在CAD的lisp编辑器里运行执行，命令为zbbz

;;;坐标标注

(defun C:zbbz()

(setvar "cmdecho" 0)

(setq old-dimzin (getvar "DIMZIN"))

(setvar "DIMZIN" 1)

(setq p1(getpoint "\n请选第一点："))

(command "pline" p1)

(setq p2(getpoint p1 "\n请选择第二点："))

(command p2)

(if(<= (car p1) (car p2))

(progn

(setq p3(polar p2 0 20))

)

(progn

(setq p3(polar p2 pi 20))

)

(command p3 "")

(setq x(rtos(car p1) 2 2))

(setq y(rtos(cadr p1) 2 2))

(if(<= (car p1) (car p2))

(progn

(setq px(list (+ 2 (car p2)) (+ 2 (cadr p2))))

(setq py(list (+ 2 (car p2)) (- (cadr p2) 4)))

(command "text" "j" "l" px 2.5 0 (Strcat "X " x))

(command "text" "j" "l" py 2.5 0 (Strcat "Y " y))

)

(progn

(setq px(list (+ (car p3) 2) (+ 2 (cadr p3))))

(setq py(list (+ (car p3) 2) (- (cadr p3) 4)))

(command "text" "j" "l" px 2.5 0 (Strcat "X " x))

(command "text" "j" "l" py 2.5 0 (Strcat "Y " y))

)

(setvar "DIMZIN" old-dimzin)

(princ)

)

标注后的样式如下图所示，可进行左右标注，且可更改设置保留的小数位数

CAD中如何使用Lisp程序编写坐标标注功能相关推荐

lisp 中望cad 选项卡_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD的lisp编辑器_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
lisp提取长方形坐标_在CAD中，用LISP如何提取三维多段端点坐标？
答:请查看附件,写的lisp程序,输入tt运行程序,批量选择cad中的点,然后将坐标写入txt文件. 指定保存文件的位置及名称,... 答:(vl-load-com) (setq ptb (vlax- ...
cad简化螺纹lisp_几个CAD很有用的lisp程序_强劲动力
1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar 'cmdecho' 1) (setq en (ssget (list '(0 . ...
闭环控制和PID在闭环控制中的作用以及程序编写
说到PID,我们最先想到的就是闭环控制,那么什么是闭环控制呢?举个例子,我们很难在沙漠这样的环境中走成一条直线,因为没有参照物,或者参照物本身就是歪的,但是我们很容易在一条笔直的马路上走成直线,那我们 ...
Ubuntu中cc++语言简单程序编写以及使用gccg++方式编译简单程序（基础）
Ubuntu中c/c++语言简单程序编写以及使用gcc/g++方式编译简单程序(基础) 这里写目录标题 Ubuntu中c/c++语言简单程序编写以及使用gcc/g++方式编译简单程序(基础) 一.编写 ...
catia二维图坐标如何表示_CATIA二维工程制图中孔系尺寸及点坐标标注方法
CATIA作为一款高端CAD软件,目前在航空.汽车等领域有着广泛的应用,但目前很多企业尤其是中小规模公司仍然仅将其作为三维建模工具使用,在编辑二维工程图时还要将其转换为AutoCAD格式操作,使CAT ...
CAD中如何绘制带有箭头的引出标注？
我们在使用CAD标注快捷键的时候,通常是要在标注中使用箭头的,今天的CAD标注快捷键教程,小编将会给CAD制图初学入门小伙伴介绍国产CAD制图软件--浩辰CAD给排水软件中CAD箭头引注的相关操作技巧 ...
地籍cad的lisp程序大集合_几个CAD很有用的lisp程序
1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar "cmdecho" 1) (setq en (ssget ( ...

CAD中如何使用Lisp程序编写坐标标注功能

CAD中如何使用Lisp程序编写坐标标注功能相关推荐

最新文章

热门文章