- 博客(3)
- 收藏
- 关注
原创 在lisp中使用rtos函数对数值进行强制设置保留位数注意事项
切记要设置系统的DIMZIN的值,否则小数末尾为0会被抹掉在程序中具体设置方式如下(setq old-dimzin (getvar "DIMZIN")) (setvar "DIMZIN" 1)
2021-06-02 18:11:35 2091 1
原创 绘制三角形lisp源码分享如下
(defun C:t1() (setq pa(getpoint "\n请输入三角形的直角坐标点:")) (setq ww(getreal "\n请输入三角形底边长:")) (setq hh(getreal "\n请输入三角形的高:")) (setq pb(polar pa 0 ww)) (setq pc(polar pa (/ pi 2) hh)) (command "pline" pa pb pc "c") (princ) )...
2021-06-02 18:00:23 334
原创 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(<
2021-06-02 17:51:17 2327
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人