新人学了一周的lisp 请大家指正 删除1种长度的尺寸带记忆

尒樣僮

自己是做家装家具类的，因为家具板材的厚度一般都为18，画图时经常用qdim快速标注，尺寸多了看不清，18这个尺寸就可以不标注，就编了自己的第一个小程序，有没有完善的和可以优化的地方大家指正

xyp1964

1. ;; 删除1种长度的尺寸带记忆
   
2. (defun c:tt ()
   
3.   (setq cc (Ureal 5 "" "输入要删除的尺寸" cc))
   
4.   (if (setq ss (ssget (list '(0 . "DIMENSION") (cons 42 cc))))
   
5.     (command "_.erase" ss "")
   
6.   )
   
7.   (princ)
   
8. )

;; 删除1种长度的尺寸带记忆<br /> (defun c:tt ()<br />   (setq cc (Ureal 5 "" "输入要删除的尺寸" cc))<br />   (if (setq ss (ssget (list '(0 . "DIMENSION") (cons 42 cc))))<br />     (command "_.erase" ss "")<br />   )<br />   (princ)<br /> )

尒樣僮

谢谢 我编了一个早上  你一会就写好了 ureal是个啥 没用过  我去查查
你这也太简洁了  我慢慢消化

尒樣僮

xyp1964 发表于 2017-11-10 14:30

Ureal 这个是自定义函数吗？ 我这里 Ureal 现显的是 nil
版主能发下这个源码吗？谢谢

ysq101

尒樣僮 发表于 2017-11-10 17:35
Ureal 这个是自定义函数吗？ 我这里 Ureal 现显的是 nil
版主能发下这个源码吗？谢谢

院长函数库大着呢。。。
一般的小东东。。
十行代码完工。。

vlisp2012

ureal函数请在论坛里搜索
没找到这个函数。院长直接好人贴出来吧