lisp
CAD二次开发lisp程序分享
weixin_42318078
这个作者很懒,什么都没留下…
展开
-
在lisp中使用rtos函数对数值进行强制设置保留位数注意事项
切记要设置系统的DIMZIN的值,否则小数末尾为0会被抹掉在程序中具体设置方式如下(setq old-dimzin (getvar "DIMZIN")) (setvar "DIMZIN" 1)原创 2021-06-02 18:11:35 · 2049 阅读 · 1 评论 -
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 · 2302 阅读 · 0 评论 -
绘制三角形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 · 317 阅读 · 0 评论