新人学了一周的lisp 请大家指正 删除1种长度的尺寸带记忆
自己是做家装家具类的，因为家具板材的厚度一般都为18，画图时经常用qdim快速标注，尺寸多了看不清，18这个尺寸就可以不标注，就编了自己的第一个小程序，有没有完善的和可以优化的地方大家指正;; 删除1种长度的尺寸带记忆
(defun c:tt ()
(setq cc (Ureal 5 "" "输入要删除的尺寸" cc))
(if (setq ss (ssget (list '(0 . "DIMENSION") (cons 42 cc))))
(command "_.erase" ss "")
)
(princ)
) 谢谢 我编了一个早上你一会就写好了 ureal是个啥 没用过我去查查
你这也太简洁了我慢慢消化:lol xyp1964 发表于 2017-11-10 14:30
Ureal 这个是自定义函数吗？ 我这里 Ureal 现显的是 nil
版主能发下这个源码吗？谢谢 尒樣僮 发表于 2017-11-10 17:35
Ureal 这个是自定义函数吗？ 我这里 Ureal 现显的是 nil
版主能发下这个源码吗？谢谢
院长函数库大着呢。。。
一般的小东东。。
十行代码完工。。
ureal函数请在论坛里搜索
没找到这个函数。院长直接好人贴出来吧
页:
[1]