askthesun 发表于 2014-2-15 13:14:01

这个不错，自己可扩展，感谢LZ！

ahlb2010 发表于 2016-1-13 23:24:39

多谢分享，继续学习。

ahlb2010 发表于 2016-1-14 23:38:36

多谢分享，继续学习。

alexmai 发表于 2017-10-26 19:27:08

本帖最后由 alexmai 于 2017-10-26 19:50 编辑

pxt2001 发表于 2012-7-15 10:49
;;复制标高，标高数字自动修改
(defun c:t ()
;(PXT_ER)

这个标高程序很好用，但想调整功能：

计算后的标高结果，若为正数，想在数字前加上"+"
      即3.000   （显示为→）   +3.000
             0.015   （显示为→）   +0.015

--------------------------------
我也知道是改这里，但苦于没找到加前序的函数 “+”

如果能指点一下就更好，谢谢！
             ;; 替换属性文字
             (setq da (entget (entnext en)))
             (setq da (subst (cons 1 txt-n) (assoc 1 da) da))
             (entmod da)
             (entupd en)
             (entupd (entnext en))

curugi 发表于 2017-12-27 11:27:27

整数不能延续小数点的位数，需要加一个循环
页: 1 2 [3]
查看完整版本: [原创]LISP的[复制标高后同时改变标高数字]程序，开源